引用adodb库 然后添加控件:名字datagrPrivate Sub Form_Load() dataGr.AllowAddNew = True Dim adore As New ADODB.Recordset adore.Fields.Append "mm", adInteger adore.Fields.Append "nn", adInteger adore.Fields.Append "oo", adInteger adore.Open Set dataGr.DataSource = adoreadore.AddNew End Sub
[email protected]
rs.addnew
rs.fields(0).value="datagrid1.text"
但这一程序的前提是datagrid1中已经有数据了,而我要说的是指在datagrid中没有数据的前提下,输入记录到datagrid中。然而我发现即使把datagrid1.allowaddnew属性设为true,datagrid也只是只读的,它根本不能接受用户的输入。
唉!怎办,怎办,各位大哥帮帮忙啊!!
然后添加控件:名字datagrPrivate Sub Form_Load()
dataGr.AllowAddNew = True
Dim adore As New ADODB.Recordset
adore.Fields.Append "mm", adInteger
adore.Fields.Append "nn", adInteger
adore.Fields.Append "oo", adInteger
adore.Open
Set dataGr.DataSource = adoreadore.AddNew
End Sub
RS.AddNew
...
RS.Update
才能有用