1,453
社区成员
发帖
与我相关
我的任务
分享
'-----------------mshflexgrid 赋值 。---------------------
With MSFGList'
.Redraw = False
If RstTemp.RecordCount <> 0 Then
If RstTemp.RecordCount > 69999 Then
MsgBox "数据量过大,内存溢出! "
Exit Sub
Else
RowCount=1' 第0行是固定行,用于显示列名
RstTemp.MoveFirst
Do Until RstTemp.EOF
.AddItem Trim(RstTemp.Fields("XX")) & vbTab & _
Trim(RstTemp.Fields("XX")) & vbTab & _
Trim(RstTemp.Fields("姓名")) & vbTab & " " & _
Trim(RstTemp.Fields("XX编号")) & vbTab & _
Trim(RstTemp.Fields("XXXX")), RowCount
RowCount = RowCount + 1
RstTemp.MoveNext
Loop
End If
End If
.Redraw = True
End With
'-----------------------------------------