Private Sub CmdAdd_Click()
Data1.Recordset.AddNew
Data1.Recordset!id=Text1.text '多了引号
Data1.Recordset!姓名=Text2.text
... ...
'控件内容清空
Data1.Recordset.Update
End Sub
Data1.Recordset.AddNew
Data1.Recordset!id=Text1.text '多了引号
Data1.Recordset!姓名=Text2.text
... ...
'控件内容清空
Data1.Recordset.Update
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货