Private madoPrimaryRS As RecordsetPrivate Sub Command1_Click() madoPrimaryRS.AddNew End SubPrivate Sub Command2_Click() madoPrimaryRS.Delete adAffectCurrent End SubPrivate Sub Form_Load() Set madoPrimaryRS = New Recordset madoPrimaryRS.Fields.Append "TestColumn1", adVarChar, 20 madoPrimaryRS.Fields.Append "TestColumn2", adVarChar, 20 madoPrimaryRS.Fields.Append "TestColumn3", adVarChar, 20 madoPrimaryRS.Open Set grdDataGrid.DataSource = madoPrimaryRS End Sub 以上代码中创建了一个不连接数据库的记录集,是否满足你的要求
madoPrimaryRS.AddNew
End SubPrivate Sub Command2_Click()
madoPrimaryRS.Delete adAffectCurrent
End SubPrivate Sub Form_Load()
Set madoPrimaryRS = New Recordset
madoPrimaryRS.Fields.Append "TestColumn1", adVarChar, 20
madoPrimaryRS.Fields.Append "TestColumn2", adVarChar, 20
madoPrimaryRS.Fields.Append "TestColumn3", adVarChar, 20
madoPrimaryRS.Open
Set grdDataGrid.DataSource = madoPrimaryRS
End Sub
以上代码中创建了一个不连接数据库的记录集,是否满足你的要求