代码就是很一般的那种,从文本筐到MSFlexgird的复制。。
rsl.Edit
writerecord i
rsl.Update
Public Sub writerecord(r As Integer)
Dim i As Integer
MSFlexGrid1.Row = r
For i = 0 To col_num - 1
MSFlexGrid1.Col = i
If MSFlexGrid1.Text = "" Then
rsl.Fields(i) = Null
Else
rsl.Fields(i) = MSFlexGrid1.Text
End If
Next
谢谢了先~