请教datagrid中添加的问题
Private Sub cmdAdd_Click() '添加
txtName = "" '用户点击添加时，所有的文本框被清空
txtStartTime = ""
txtSchool = ""
dtpOverTime.Value = Now '日期选择控件设置为当前时间
(1)Adodc1.Recordset.AddNew '问题一：运行时出错：操作已被取消？？？？？？？
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
End Sub
__________________________________________________________________________________
Private Sub cmdSave_Click() '保存
'问题二：将(1)删除
用户点击添加之后，填写需要添加的项目过程中会影响datagrid中黑三角所在的行，
填写的过程中，datagrid中黑三角所在的行显示的是用户正在填写的值，这是为什么呢？
当用户点击保存之后却可以正确的保存，且datagrid中黑三角所在的行也不会受到影响？
gRst.AddNew
gRst.Fields!姓名 = txtName.Text
gRst.Fields!起始时间 = txtStartTime.Text
gRst.Fields!结束时间 = Format(dtpOverTime.Value, "yyyy年m月d日")
gRst.Fields!学校 = txtSchool
gRst.Update
MsgBox "新节点添加完毕", vbOKOnly, "提示"
Adodc1.Refresh
End Sub
_________________________________________________________________________________________
Private Sub Form_Load()
Dim strDataSource As String
strDataSource = "select 起始时间,结束时间,学校 from student where 姓名 = '" & Form2.txtName.Text & "' "
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DataBase.mdb;Persist Security Info=False"
Adodc1.CursorLocation = adUseClient
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = strDataSource
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
Set txtStartTime.DataSource = Adodc1
Set dtpOverTime.DataSource = Adodc1
Set txtSchool.DataSource = Adodc1
txtStartTime.DataField = Adodc1.Recordset.Fields(0).Name
dtpOverTime.DataField = Adodc1.Recordset.Fields(1).Name
txtSchool.DataField = Adodc1.Recordset.Fields(2).Name
Dim strSOL As String
Set gCon = New ADODB.Connection
strSOL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DataBase.mdb;Persist Security Info=False"
gCon.Open strSOL
Set gRst = New ADODB.Recordset
gRst.Open "select * from student", gCon, adOpenDynamic, adLockOptimistic
End Sub
问题点数：20、回复次数：1Top
1 楼changechange（http://access911.net 是我的个人网站，欢迎光临）回复于 2006-03-06 08:37:26 得分 0
datagrid 不是 ACCESS 控件Top
