如果表已经建立,可以用循环来做呀,两层循环就可以了,第一层是记录的循环也就是纵向的循环,内部循环是字段的循环,也就是横向的循环
For i = 0 To Me.MSFlexGrid1.Rows
For j = 0 To Me.MSFlexGrid1.Cols
Me.MSFlexGrid1.Col = j
Me.MSFlexGrid1.Row = i
adoPrimaryRS.Fields(j) = Me.MSFlexGrid1.Text
adoPrimaryRS.UpdateBatch adAffectAll
Next j
Next i
我并没有试这段代码,不过我想应该可以吧
For i = 0 To Me.MSFlexGrid1.Rows
For j = 0 To Me.MSFlexGrid1.Cols
Me.MSFlexGrid1.Col = j
Me.MSFlexGrid1.Row = i
adoPrimaryRS.Fields(j) = Me.MSFlexGrid1.Text
adoPrimaryRS.UpdateBatch adAffectAll
Next j
Next i
我并没有试这段代码,不过我想应该可以吧
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货