各路英雄，请帮帮我啊

我用以下的写法，结果在listview只是display出一个row的资料，但是当我的debug, query how many rows in dataset时，答案显示是有两个的rows的！但为何listview只显示一个row的data呢？

        Dim ds As New DataSet
        Dim dt As DataTable
        Dim dr As DataRow

        ds = log.GetCustomer(txt_keyword.Text)

        ListView1.Items.Clear()
        ListView1.BeginUpdate()

        For Each dt In ds.Tables

            For Each dr In dt.Rows

                ListView1.Items.Add(dr("CUSID" ))
                ListView1.Items(0).SubItems.Add(dr("name" ))
                ListView1.Items(0).SubItems.Add(dr("address" ))

            Next

        Next

        ListView1.EndUpdate()

好像是少了点code

Dim ds As New DataSet
        Dim dt As DataTable
        Dim dr As DataRow
dim lstREc as ListItem
        ds = log.GetCustomer(txt_keyword.Text)

        ListView1.Items.Clear()
        ListView1.BeginUpdate()

        For Each dt In ds.Tables
            For Each dr In dt.Rows
            set lstrec = listview1.ListItems.Add(, ,("CUSID")
                lstrec .SubItems(1)=(dr ))
                lstrec .SubItems(2)=(dr("name" ))
                lstrec .SubItems(3)=((dr("address" ))

            Next

        Next

        ListView1.EndUpdate()

不行啊。。当我dim lstREc as ListItem 时，debugger说

Type 'ListItem' is not defined.

superwei

For Each dt In ds.Tables

            For Each dr In dt.Rows

                ListView1.Items.Add(dr("CUSID" ))
                ListView1.Items(0).SubItems.Add(dr("name" ))
                ListView1.Items(0).SubItems.Add(dr("address" ))

            Next

        Next


---------
第一row,item(0)
第二row, 应该是item(1)
第三row,  应该是item(2)....

你的loop每次都是item(0)...

对。。 也是有人指出了我这个问题。。。 但还没有解决方案。。。你有idea 吗？

gao dim.. juz like this.....


        For Each dt In ds.Tables

            For Each dr In dt.Rows

                If i = 0 Then
                    i = 0
                End If

                ListView1.Items.Add(dr("CUSID"))
                ListView1.Items(i).SubItems.Add(dr("name"))
                ListView1.Items(i).SubItems.Add(dr("address"))

                i = i + 1

            Next

        Next

flashang

好奇怪的寫法

1. 
   
2. If i = 0 Then
   
3.     i = 0
   
4. End If
   

复制代码

1. 
   
2.        i = 0
   
3. 
   
4.        For Each dt In ds.Tables
   
5. 
   
6.             For Each dr In dt.Rows
   
7. 
   
8.                 ListView1.Items.Add(dr("CUSID"))
   
9.                 ListView1.Items(i).SubItems.Add(dr("name"))
   
10.                 ListView1.Items(i).SubItems.Add(dr("address"))
    
11. 
    
12.                 i = i + 1
    
13. 
    
14.             Next
    
15. 
    
16.         Next
    

复制代码