代码就是很一般的那种,从文本筐到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 谢谢了先~
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
谢谢了先~