向vsflexgrid填充数据

Question

谁能帮我写个向vsflexgrid表格控件填充数据基本程序啊谢谢假如：已经有个数据库 里面有个表：库存表.有四个字段分别为。本期库存，上期库存。收入，发出。

Answer 1

一、可以直接绑字，速度比较理想
1、建立数据的连接,比如是 con
2、建立recordset，比如是rs用下面的方法rs.open "本期库存,上期库存,收入,发出 from 库存表",cn
with  vsflexgrid
   set .recordsource=rs
   rs.close 
end with 二、用additem方法实现
 with  vsflexgrid
   .additem "第一列"& vbtab & "第二列"
end with  三、用.TextMatrix赋值
Private Sub Form_Load()
    Dim i As Integer
    Dim j As Integer    With VSFlexGrid1
        For i = 0 To .Rows - 1            For j = 0 To .Cols - 1
                .TextMatrix(i, j) = CStr(i) & "-" & CStr(j)            Next        Next    End With
End Sub 

Answer 2

Private Sub Form_Load()
    Dim i As Integer
    Dim j As Integer    With VSFlexGrid1
        For i = 0 To .Rows - 1            For j = 0 To .Cols - 1
                .TextMatrix(i, j) = CStr(i) & "-" & CStr(j) '将括号中的内容转换为字符串,i的值是0吧 那是不是第一次循环不等于.Textmatrix(0,0)=0-0??是不是我理解错了啊
            Next        Next    End With
End Sub 

Answer 3

Private Sub Form_Load()
    Dim i As Integer
    Dim j As Integer
    '请增加出错处理,比如空数据记录情况
    With VSFlexGrid1
        For i = 0 To rs1.count -1
            For j = 0 To 3
                .TextMatrix(i, j) = rs1(j)             Next
            Next
            rs.movenext
         next
    End With
End Sub 

Answer 4

........
这样
前面定义好变量 数据库连接 数据集 等
然后下面的代码
SqlStr="select * from 库存表"
set rs=conn.excute(sql)
do while not rs.eof
   Grid.AddItem rs!本期库存 & vbtab & rs!上期库存 & vbtab & rs!收入 & vbtab & rs!发出
   rs.MoveNext
loop