Printable View
hi
I want to add item to ListView1 with below code:
but i get error "Item cannot be added to ListView." in "Dim MyItem = ListView1.Items.Add(Row)"Code:Dim Row As Integer = 1
Dim MyItem = ListView1.Items.Add(Row)
With MyItem
.SubItems.Add("Second Item")
End With
I use this code in other place of project (other forms) without any error.
wait for your idea :wave:
Your code works fine if I do as below. This creates two columns called "A" and "B" with "1" and "Second Item" in the first row. Is this what you intended?
Code:ListView1.View = View.Details
ListView1.Columns.Add("A")
ListView1.Columns.Add("B")
Dim Row As Integer = 1
Dim MyItem = ListView1.Items.Add(Row)
With MyItem
.SubItems.Add("Second Item")
End With
Bulldog thanks for your reply but don't resolve my problem with this code
I make Columns with Edit Columns in design mode and set properties of View to Details, too
other idea :o
It semms you are transfering from vb6 to .Net. You need to set the "Option explicit and option strict" properties ON in your VS. Or you need to have these two lines on top of your code
copy them as it is shown than you will see why it doesn't work.vb Code:
vb Code:
no no :ehh:Quote:
It semms you are transfering from vb6 to .Net.
I have this code in my form codeQuote:
copy them as it is shown than you will see why it doesn't work.
other help
If you have the "Option Explicit On" and "Option Strict On" on top of your class then the parts that are not correct in your code should be underlined. If you move the mouse on top of them then it will tell you what is wrong.
your code should look like this:
vb Code:
I useing this code but i get error againQuote:
your code should look like this:
vb Code:
Dim MyItem As New ListViewItem("I am new")
MyItem = ListView1.Items.Add(MyItem)
With MyItem
.SubItems.Add("Second Item")
End With
error: "Item cannot be added to ListView." in "MyItem = ListView1.Items.Add(MyItem)"
Can you show your code?
yes. I attached My Code
I attached 2 code. AllD.vb work very well but ProSearch.vb have an error
It would be better if you just post the section of the code because some people have issues with downloading staff.
is piece of my codeCode:If CheckBox1.Checked = True Then
Select Case SeaType
Case "allname"
TSQL = "SELECT * FROM hd WHERE fname LIKE '" & LLike & TextBox3.Text & RLike & "' AND lname LIKE '" & LLike & TextBox2.Text & RLike & "'"
Case "status"
If RadioButton5.Checked = True Then TSQL = "SELECT * FROM hd WHERE status ='inact'"
If RadioButton6.Checked = True Then TSQL = "SELECT * FROM hd WHERE status ='act'"
Case "cost"
TSQL = "SELECT * FROM hd WHERE cost " & Opera & " '" & TextBox5.Text & "'"
Case "allcost"
TSQL = "SELECT * FROM hd WHERE allcost " & Opera & " '" & TextBox5.Text & "'"
Case "fname"
TSQL = "SELECT * FROM hd WHERE fname LIKE '" & LLike & TextBox1.Text & RLike & "'"
Case "lname"
TSQL = "SELECT * FROM hd WHERE lname LIKE '" & LLike & TextBox1.Text & RLike & "'"
Case "uname"
TSQL = "SELECT * FROM hd WHERE uname LIKE '" & LLike & TextBox1.Text & RLike & "'"
Case "coname"
TSQL = "SELECT * FROM hd WHERE coname LIKE '" & LLike & TextBox1.Text & RLike & "'"
Case "tel"
TSQL = "SELECT * FROM hd WHERE tel LIKE '" & LLike & TextBox1.Text & RLike & "'"
Case "mob"
TSQL = "SELECT * FROM hd WHERE mob LIKE '" & LLike & TextBox1.Text & RLike & "'"
Case "address"
TSQL = "SELECT * FROM hd WHERE address LIKE '" & LLike & TextBox4.Text & RLike & "'"
Case "email"
TSQL = "SELECT * FROM hd WHERE email LIKE '" & LLike & TextBox1.Text & RLike & "'"
Case "domain"
TSQL = "SELECT * FROM hd WHERE [domain] LIKE '" & LLike & TextBox1.Text & RLike & "'"
Case "host"
TSQL = "SELECT * FROM hd WHERE host LIKE '" & LLike & TextBox1.Text & RLike & "'"
Case "panel"
TSQL = "SELECT * FROM hd WHERE panel LIKE '" & LLike & TextBox1.Text & RLike & "'"
Case "info"
TSQL = "SELECT * FROM hd WHERE info LIKE '" & LLike & TextBox4.Text & RLike & "'"
Case "khost"
TSQL = "SELECT * FROM hd WHERE khost LIKE '" & LLike & ComboBox2.Text & RLike & "'"
Case "time"
TSQL = "SELECT * FROM hd WHERE time LIKE '" & LLike & Numeric.Value & RLike & "' AND KDuration='" & Duration & "'"
Case "bdate"
TSQL = "SELECT * FROM hd WHERE bdate LIKE '" & LLike & MTextBox1.Text & RLike & "'"
Case "edate"
TSQL = "SELECT * FROM hd WHERE edate LIKE '" & LLike & MTextBox1.Text & RLike & "'"
End Select
con.Open()
cmd.CommandText = TSQL
cmd.Connection = con
data = cmd.ExecuteReader
Do While data.Read
If data("Panel") <> "nothing" Then
Pnl = data.Item("Panel")
Else
Pnl = "-----"
End If
If data("status") = "act" Then
Sta = "فعال"
ElseIf data("status") = "inact" Then
Sta = "غيرفعال"
End If
Dim MyItem As New ListViewItem
Name = data("Fname") & " " & data("Lname")
MyItem = ListView1.Items.Add(Row)
With MyItem
.SubItems.Add("هاست و دامين")
.SubItems.Add(data("uname"))
.SubItems.Add(Name)
.SubItems.Add(data("Coname"))
.SubItems.Add(data("tel"))
.SubItems.Add(data("Mob"))
.SubItems.Add(data("Email"))
.SubItems.Add(data("address"))
.SubItems.Add(data("domain"))
.SubItems.Add(data("host"))
.SubItems.Add(data("BandW"))
.SubItems.Add(data("khost"))
.SubItems.Add(Pnl)
.SubItems.Add(data("cost"))
.SubItems.Add(data("allcost"))
.SubItems.Add(data("bdate"))
.SubItems.Add(data("time") & " " & ComboBox4.Text)
.SubItems.Add(data("edate"))
.SubItems.Add(Sta)
.SubItems.Add(data("info"))
End With
Row += 1
Loop
con.Close()
End If
some of string is persian :p
Shamsoft, I thought we went through this but it seems you didn’t understand it. What is the “Row”? It is an integer! Does “ListView1.Items.Add” method except integer type parameter? No!
So why and how come you have it there? You said that you have the “Option Strict” set to On so how come you don’t see that it is underlined?
you need to convert the "Row" integer to string
vb Code:
yeah. is integer. it mean i cannot using integer value in this parameter?Quote:
What is the “Row”? It is an integer! Does “ListView1.Items.Add” method except integer type parameter? No!
no. I don't use Option Explicit On & Option Strict On. because i don't use this Option for my codes but they have not any error message. for example i don't use Option Explicit On & Option Strict On in AllD.vb and also using ListView. but it have not any errorQuote:
You said that you have the “Option Strict” set to On so how come you don’t see that it is underlined?
No you cant. You need to take a look what types the method excepts as a parameter.Quote:
Originally Posted by shamsoft
I don't know why you don't use Option Explicit On & Option Strict On in your projects but it is a good way of notifing about the errors. My guess is that you don't use it becuse you have non latin letters in your code. But you still can use it and ignore some errors while you are coding. And when you want to run the project than just comment them out.Quote:
no. I don't use Option Explicit On & Option Strict On. because i don't use this Option for my codes but they have not any error message. for example i don't use Option Explicit On & Option Strict On in AllD.vb and also using ListView. but it have not any error
ok. thanks a lot. My problem Resolved :thumb:Quote:
No you cant. You need to take a look what types the method excepts as a parameter.
yeah. i must be use the Option Explicit On & Option Strict On in my project. because i programming by vb6 in last (and now) and i beginner in vb.net, i don't habit to use Option Explicit On & Option Strict On in my project. but i try to using this.Quote:
I don't know why you don't use Option Explicit On & Option Strict On in your projects but it is a good way of notifing about the errors. My guess is that you don't use it becuse you have non latin letters in your code. But you still can use it and ignore some errors while you are coding. And when you want to run the project than just comment them out.
thanks to your helps again ;)
Just a tip, you can set these options for your Visual Studion so that you don't need to have these lines on top of each class. To set it in vs you need to do:
Click on Tools menu button and select "Options" menu item. Expend the "Projects and Solution" node and select "VB Defaults" and set the options to On at the right.
thanks again ;)