1.如果是绑定状态。那根本不用管,移动到另一行后,会自动保存。 如果是非绑定状态,那要比较烦。 for i =0 to datagrid1.columns.count-1 adodc1.fields(i)= datagrid1.columns(i).text next adodc1.recordset.update2.设定adodc2和datagrid2相绑定。Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) adodc2.recordsource="select * from tblcity where ProvinceID = '" & DataGrid1.Columns("ProvinceID") & "'" adodc2.refresh End Sub
如果是非绑定状态,那要比较烦。
for i =0 to datagrid1.columns.count-1
adodc1.fields(i)= datagrid1.columns(i).text
next
adodc1.recordset.update2.设定adodc2和datagrid2相绑定。Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
adodc2.recordsource="select * from tblcity where ProvinceID
= '" & DataGrid1.Columns("ProvinceID") & "'"
adodc2.refresh
End Sub
2,我不是很明白你的意思!清楚点我会帮你的!!!!!