[求助]请问怎么用MSFlexGrid1里的全部数据传送添加到（list1）列表框里显示呢？

Question

         (VB)请问怎么用MSFlexGrid1里的全部数据传送添加到（list1）列表框里显示呢?                 期望快来详细指教问题。    

Answer 1

把第一列的数据添加到list1
如果要添加多列，再添加循环就可以了
Private Sub Command1_Click()
    Dim i As Long
    For i = 1 To MSFlexGrid1.Rows - 1
        List1.AddItem MSFlexGrid1.TextMatrix(i, 1)
    Next
End Sub

Answer 2

    列表框里的排列方式为什么不能多列方式显示吗？  columns=1 改了1还是无用。

Answer 3

'这个是增加至ListView中的.
Private Sub Command1_Click()
 Dim Item As ListItem
 ListView1.View = lvwReport
 For i = 1 To MSHFlexGrid1.Cols - 1
    ListView1.ColumnHeaders.Add , , "第" & i & "列"
 Next For i = 1 To MSHFlexGrid1.Rows - 1
   Set Item = ListView1.ListItems.Add(, , MSHFlexGrid1.TextMatrix(i, 1))
   For j = 2 To MSHFlexGrid1.Cols - 1
     Item.SubItems(j - 1) = MSHFlexGrid1.TextMatrix(i, j)
   Next
 Next
End Sub
'这个是增加至List1中的,因List1中只能有一列,所以就只增加MSHFlexGrid1的第一列
Private Sub Command2_Click()
 For i = 1 To MSHFlexGrid1.Rows - 1
   list1.AddItem MSHFlexGrid1.TextMatrix(i, 1)
 Next
End Sub