用一个循环来判断每一行的列数,套用下面的代码
If Adodc1.Recordset.RecordCount > 0 Then '总记录数
For Rowjs = 0 To Adodc1.Recordset.RecordCount - 1 '行列数
Data1.Recordset.AddNew '向目标表中写记录
For Coljs = 0 To 7 'DataGrid中有8字段
Data1.Recordset.Fields(Coljs) = DataGrid1.Text '向目标表中写数据
If Coljs < 7 Then DataGrid1.Col = DataGrid1.Col + 1 '向后走一列
Next
DataGrid1.Col = 0 '重新置0
Data1.Recordset.Update '更新目标表中的记录
If Rowjs < Adodc1.Recordset.RecordCount - 1 Then DataGrid1.Row = DataGrid1.Row + 1 '向后走一行
Next
End If