|
Hi All,
I’m using the following coding for my searching function at listview, but I facing some problem here, if I use this code I only able to search the item at column 0 for the listview. But for my case, I want to let user click on the header of the column then the user only can key in the data for that column they select, what mean is if user click on the column 0 at the header of the listview then user only can search what ever data appear at the column 0 for the listview. As well for column 1, column 2 for the listview. The following coding only allow me to search the data at column 0 even I use the select case for the column click. What mistake I have made? Can anyone give me some advice on this? Thanks.
This is my coding for the searching function at lisview:-
Private Sub ListView_Master_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles ListView_Master.ColumnClick
Dim Search_Code As String
Dim exactMatch As Boolean
Dim mySearchText As String
Select Case e.Column
Case 0 'column one BOM ID
'MsgBox(e.Column)
Case 1 'column two Cust Part # = BOM
MsgBox(e.Column)
mySearchText = Trim(InputBox("Please enter your Customer Part #", "Search Product Master Entry Data"))
'For Each itm As ListViewItem In ListView_Master.Items
For Each itm As ListViewItem In ListView_Master.Items
If exactMatch Then
If itm.Text = mySearchText Then
' an exact match was found ...
MsgBox("Exact")
End If
Else
mySearchText &= "*"
If itm.Text Like mySearchText Then
' a partial match was found ...
MsgBox("Partial")
'ListView_Master.Select()
'ListView_Master.Focus()
End If
End If
Next
Case 2 'column three Child Part#A = CodeAChild Part#B = CodeB
MsgBox(e.Column)
Case 3 'column three Child Part#B = CodeB
MsgBox(e.Column)
End Select
End Sub
|
|
|
|
|
Is there a command that I can use that once I open a text file for input will count the rows in the file?
Right now I'm just using a counter (i += 1) and that works fine but I would think there would be a way to immediately get that rowcount right off the bat. Any ideas, suggestions?
Thanks!
|
|
|
|
|
John Waclawski wrote: but I would think there would be a way to immediately get that rowcount right off the bat
No, there isn't. You have to count the rows yourself, like you already are, or by loading the entire file in a String variable, split it on, or count the number of, CR characters in the string. But this second method can take quite a lot of memory with large text files.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
I need to seach to see if something is in an array and i for the life of me cant figure it out
the array i have is :
Dim department As String() = {"PR", "AD", "CI", "GC", "MK", "ED", "FI", "IT", "HR", "DC", "UN"}
What im trying to do is somthing like
for each userrow as datarow
if department.find(userrow"department"),????) = -1 then (not found)
then
UserRow("department") = "UN"
end if
next
but i just cant get the search to work
What im doing now instead
<br />
For Each UserRow As DataRowView In Me.userbindingsource<br />
Select Case UserRow("department").ToString<br />
Case Is = "PR"<br />
Case Is = "AD"<br />
Case Is = "CI"<br />
Case Is = "GC"<br />
Case Is = "MK"<br />
Case Is = "ED"<br />
Case Is = "FI"<br />
Case Is = "IT"<br />
Case Is = "HR"<br />
Case Is = "DC"<br />
Case Is = "UN"<br />
Case Else<br />
MessageBox.Show(UserRow("Name") & " Has An Invalid Department")<br />
UserRow("department") = "UN"<br />
End Select<br />
Next UserRow<br />
-- modified at 16:27 Sunday 16th July, 2006
|
|
|
|
|
You need to use the Array.IndexOf method and pass it the name of the array and the item you wish to find.
To search the department array you provided in your post for, say, "HR", you would do this:
dim i as Integer = Array.IndexOf(department,"HR")
The i variable would then contain the index of the item, or -1 if it was not found.
Hope this helps,
Keith
|
|
|
|
|
|
Hi there.
You should loop through the array and try to find a match...
Example:
Dim strSearchString As String = " un " ' String to search for...
Dim strArray As String() = {"PR", "AD", "CI", "GC", "MK", "ED", "FI", "IT", "HR", "DC", "UN"} ' Array of strings
Dim intLoop As Integer
Dim mflgFound As Boolean
For intLoop = 0 To UBound(strArray)
If UCase(Trim(strArray(intLoop))) = UCase(Trim(strSearchString)) Then ' Trim and uppercase strings to ensure match
mflgFound = True
Exit For
End If
Next
A programmer's life is good... or is it?? Ek dink nie so nie!
|
|
|
|
|
Hello All,
I have an application in VB.NET 2003, I want to import a delimiter text file into SQL Server. How do I go about doing this with vb.net code?
Please help me out!
regards
Mubashir
|
|
|
|
|
hi Mubashir,
its not clear what kind of process would u like to proceed. assuming you want to insert the data into table from file.try using BULK INSERT statement available on sql server2000. If you want to exec a select query stored in a text file there is no straight method to procede. i've manipulated some different approach for that,
assuming you have entere some "select * from Products" in a text file called test.txt. the steps involved are as,
Declare @cmd varchar(100)
Declare @sqlcmd varchar(2000)
set @cmd = 'type e:\test.txt'
CREATE TABLE #temptable (id int identity(1,1), string VARCHAR(4000))
Insert #temptable
exec master..xp_cmdshell @cmd
Declare @Max int, @Min int
select @sqlcmd=string from #temptable
Drop Table #temptable
Exec(@sqlcmd)
stay smart
|
|
|
|
|
can we add icon to mainmenu control in windows form? how?
thanks. is there a sub or function like "mainmenu.items(x).icon=(filename)... "
|
|
|
|
|
When you sy main menu, are you referring to a menustrip that you have placed on the form.
Posted by The ANZAC
|
|
|
|
|
yes, i am.. i dont know how to add icon to it.
|
|
|
|
|
i dont know about VB.NET.But in VB6 you need to use this API function:
Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As Any) As Long
This is how you use it in VB6
Get the handle of the form's menu<br />
hMenu = GetMenu(Me.hWnd)<br />
'Get the handle of the form's submenu<br />
hSubMenu = GetSubMenu(hMenu, 0)<br />
<br />
'Change first item (index=0)<br />
picBitmaps(0).Picture = picBitmaps(0).Image<br />
lngID = GetMenuItemID(hSubMenu, 0)<br />
Call ModifyMenu(hMenu, lngID, MF_BITMAP, lngID, CLng(picBitmaps(0).Picture))<br />
i heard VB.NET has some API inbuilt.So look it up OK!
hope i helped
Gideon
|
|
|
|
|
ok, i will try it out, thankz for the info..
Ghost
|
|
|
|
|
I NEED HELP IN VB.NET CAN ANYONE HELP ME PLEASE
I NEED TO SEND A VIDEO FILE THROUGH THE INTERNET USING AN ADSL CONNECTIONS
CAN ANY ONE HELP ME WITH THAT
THX A LOT
YOUR,
MAY
|
|
|
|
|
First, read this[^].
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
HELLO,
i need some help please
i need to send a video file through the internet using an ADSL connection, can anyone help me please??
yours
may
|
|
|
|
|
The type of connection doesn't matter. What does matter is how your sending this file. Is your application a server, streaming the file to a Media Player, or are you trying to upload this file to a web server, FTP server, ...???
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
I'M TRYING TO UPLOAD THE FILE TO A FTP SERVER
|
|
|
|
|
You could have said that in your original post.
Is there some reason why your YELLING?
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Under the .NET Framework 2.0, you can use the WebFtpRequest[^] class. The link is complete with examples.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
thx
|
|
|
|
|
I'm using VB2005, how to make a string to contain double quotes?
and MORE IMPORTANTLY how to replace an existing string to contain double quotes?
eg. FROM visual basic TO vi"sua"l b"asi"c
I appreciate your help.
|
|
|
|
|
In a string, you specify double quotes by using pairs of them:
Dim str As String = "vi""sua""l b""asi""c"
pedestrian797 wrote: how to replace an existing string to contain double quotes?
Smae as you would any other String Replace operation.
' Replace all occurances of ' with "
newStr = str.Replace("'", """")
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
That's great! Thanks ...
|
|
|
|