MSFlexGrid 加载数据库的问题

来源：百度知道 编辑：UC知道 时间：2024/09/27 07:21:32
我只要遍历的代码..从数据库加载到MSFlexGrid 表格上!
我出50分了

还有7天。。难道中国没有人才了？？？？

你看一下面的代码可以实现，不懂问我，QQ369232913
Private Sub listmembersdispSql(StrSQL As String)
Command3.Enabled = False
Command4.Enabled = False

listmembers.Visible = True
listall.Visible = False

sum = 0
com = 0
Dim ii%, jj%

Dim MemCard(10) As String
Dim j%, k%

Dim keep As String
keep = Trim(Combo2.Text)
Combo2.Clear
Combo2.Text = keep

Dim roww As Integer ''行
roww = 1
listmembers.Clear
listmembers.rows = 1
Call ListMembersDef
members.RecordSource = StrSQL
members.Refresh
If members.Recordset.EOF = False Then
members.Recordset.MoveFirst
Else '无查询结果
spy = ""

End If
Do While members.Recordset.EOF = False
For i = 0 To 9 '给空值赋值
If IsNull(members.Recordset.Fields(i)) = True Then