none
vb.net无效的ADD方法,请大家帮我看看 RRS feed

  • 问题

  •  

    目的:将数据库的数据放在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,

     

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

     

    感谢大家

    2008年11月7日 13:39

答案

全部回复

  • 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
    2008年11月7日 15:54
  •  

    Me.UltraListBar1.Groups(0).Items.Add(“key”,“text”)
    2008年11月8日 5:39
    版主
  •  feiyun0112 写:

     

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

     

    这样写吗?

     

    Me.UltraListBar1.Groups(0).Items.Add(“??”,rowj.item("pzh"))
    2008年11月8日 12:54
  • 谢谢feiyun0112安装你的方法,搞定了,再次感谢

     

    2008年11月8日 14:00