ADORS.AddNew
For i = 1 To MSFlexGrid1.Rows
For j = 0 To MSFlexGrid1.Cols - 1
ADORS(j) = MSFlexGrid1.TextMatrix(i, j)
Next j
Next i
ADORS.UpdateBatch
ADORS.Close
Set ADORS = Nothing
Set ADOCN = Nothing
想把表格内的数据从1行,0列开始保存,第一行是字段名称,所以第一行不用保存到ACCESS中。
图片附件: 游客没有浏览图片的权限,请
登录 或
注册