MSFlexGrid 能和 Data 绑定!建议你不要绑定, 而是工具用户点击的行列号,对应数据库的字段 进行Update // 不过很麻烦,效率不高。
在你将文本框的内容写回MSFlexGrid的同时向数据库发出Updata命令
定义rows=265,cols=4,m_rs as adodb.recordsource,假设已经连接数据库 For i = 1 To 255 MSFlexGrid1.Row = i MSFlexGrid1.Col = 1 If MSFlexGrid1.Text <> "" Then m_rs.AddNew m_rs.Fields(1) = id m_rs.Fields(2) = MSFlexGrid1.Text MSFlexGrid1.Col = 2 m_rs.Fields(3) = MSFlexGrid1.Text m_rs.Update Else Clean Exit Sub End If Next i
不过很麻烦,效率不高。
For i = 1 To 255
MSFlexGrid1.Row = i
MSFlexGrid1.Col = 1
If MSFlexGrid1.Text <> "" Then
m_rs.AddNew
m_rs.Fields(1) = id
m_rs.Fields(2) = MSFlexGrid1.Text
MSFlexGrid1.Col = 2
m_rs.Fields(3) = MSFlexGrid1.Text
m_rs.Update
Else
Clean
Exit Sub
End If
Next i