vb.net无效的ADD方法，请大家帮我看看

Question

 

目的：将数据库的数据放在ULtralistbar里面

代码：

             Dim sql2 As String = ""
            Dim mrc2 As New DataTable
            sql2 = "select distinct pzh,zdr,sfsh from pzdjb"
            mrc2 = exec(sql2)
            If mrc2.Rows.Count > 0 Then
                Me.UltraListBar1.Groups(0).Items.Clear()
                For Each rowj As DataRow In mrc2.Rows
                    TextBox12.Text = mrc2.Rows(0).Item("sfsh")
                    Me.UltraListBar1.Groups(0).Items.Add(rowj.Item("pzh") +rowj.Item("zdr") &"")

                Next

 

——————————————————————————————————

 Me.UltraListBar1.Groups(0).Items.Clear()
这句话，是正确的，能清除里面的Item

 

为什么  Me.UltraListBar1.Groups(0).Items.Add(rowj.Item("pzh") +rowj.Item("zdr") &"")

会提示错误：Invalid Item object in ItemsCollection.Add（无效的itemcollection.Add方法）

用LISTVIEW没问题，但一用LISTBAR这个控件就不行，搞了几天没搞懂，我把ADD换成INSERT

出现的错误是：无法将字符串“2008001 张三”转换为Integer，

 

所以请大家帮我看看，我该怎么改才正确

 

感谢大家

Answer 1

 

http://devcenter.infragistics.com/Support/KnowledgeBaseArticle.aspx?ArticleID=958

Answer 2

feiyun0112老师，你给的这个地址我看过，但也没弄明白，所以才上贴.....请你帮我参考一下，我该怎么写？

 

Dim sql2 As String = ""
            Dim mrc2 As New DataTable
            sql2 = "select distinct pzh,zdr,sfsh from pzdjb"
            mrc2 = exec(sql2)
            If mrc2.Rows.Count > 0 Then
                Me.UltraListBar1.Groups(0).Items.Clear()
                For Each rowj As DataRow In mrc2.Rows
                    TextBox12.Text = mrc2.Rows(0).Item("sfsh")
                    Me.UltraListBar1.Groups(0).Items.Add()

                     If Val(TextBox12.Text & "")= "0" Then
                        Me.UltraListBar1.ItemAppearance.Image = Me.ImageList2.Images(0)
                    Else
                        Me.UltraListBar1.ItemAppearance.Image = Me.ImageList2.Images(1)
                    End If
                Next

我这样写，在LISTbar里面也有有Item，样子只不过是默认状态的，text=New listitem

Answer 3

 

Me.UltraListBar1.Groups(0).Items.Add(“key”，“text”)

Answer 4

feiyun0112 写:

Me.UltraListBar1.Groups(0).Items.Add(“key”，“text”)

 

这样写吗？

 

Me.UltraListBar1.Groups(0).Items.Add(“??”，rowj.item("pzh"))

Answer 5

谢谢feiyun0112安装你的方法，搞定了，再次感谢