好像里面的 LISTVIEW 跟VB中的不一样啊,
比如
   VB中可以
       //  int i,j
       dim i as integer
       dim j as integer 
       for i=1 to 100
        for j=1 to 20
        
                listview.listitems(i).subitem(j)=val("212.215")
         next
       next
 可是在VB.NET 中 ,在第一层循环就跳出来了,怎么也无法进入第二次循环
          

解决方案 »

  1.   


    Private Sub Form_Load()
     Dim i As Integer
     Dim Itm As ListItem
     ListView1.View = lvwReport
      Dim j As Integer
        For j = 1 To 20
            ListView1.ColumnHeaders.Add j, "a" & j, "第" & j & "列"
           ' Set Itm = ListView1.ListItems.Add(i)
               ' Itm.SubItems(ListView1.ColumnHeaders("第" & j & "列").SubItemIndex) = "212.215"
                   ' .SubItems(ListView1.ColumnHeaders(j).SubItemIndex) =
            Next
              For i = 1 To 100
               Set Itm = ListView1.ListItems.Add(i, "a" & i, "第" & i & "行")
               
         Next
    For i = 1 To 100
    For j = 1 To 20
    ListView1.ListItems(i).ListSubItems.Add j, , "212.215"
    Next
    Next
    End Sub