Question

VB datagrid的修改、删除、增加与显示问题

'“修改”按钮的程序
Private Sub cmdEdit_Click()
sql = "select * from 停时统计 where date = cdate('" & Text8.Text & "') and ycqk = '" & Combo1.Text & "'and id = '" & DataGrid1.Columns(2).CellText(DataGrid1.Bookmark) & "'"
rs.Open sql, dm, adOpenDynamic, adLockOptimistic
rs.Fields("id") = Text7.Text
rs.Fields("ycqk") = Combo1.Text
rs.Fields("date1") = Text1.Text
rs.Fields("time1") = Text2.Text
rs.Fields("date2") = Text3.Text
rs.Fields("time2") = Text4.Text
rs.Update
rs.Close
End Sub

'“删除”按钮的程序
Private Sub cmdDelete_Click()
strFCode = DataGrid1.Columns(0).CellText(DataGrid1.Bookmark)
strSCode = DataGrid1.Columns(2).CellText(DataGrid1.Bookmark)
strCCode = DataGrid1.Columns(1).CellText(DataGrid1.Bookmark)
sql = "select * from 停时统计 where date='" & strFCode & "' and id='" & strSCode & "' and ycqk='" & strCCode & "'"
rs.Open sql, dm, adOpenDynamic, adLockOptimistic
rs.Delete
rs.Update
rs.Close
End Sub

'“增加”按钮的程序
Private Sub Command1_Click()
sql = "select * from 停时统计 order by id"
rs.Open sql, dm, adOpenDynamic, adLockOptimistic
rs.AddNew
rs.Fields("date") = Date
rs.Fields("id") = Text7.Text - 1
rs.Fields("ycqk") = Combo1.Text
rs.Fields("date1") = Text1.Text
rs.Fields("time1") = Text2.Text
rs.Fields("date2") = Text3.Text
rs.Fields("time2") = Text4.Text
rs.Update
rs.Close

With Adodc1
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from 停时统计 where date = cdate('" & Text8.Text & "') and ycqk = '" & Combo1.Text & "' order by id"
Adodc1.Refresh
DataGrid1.Refresh
End With
End Sub

运行修改或删除时老是出错，提示下面的信息：
实时错误'-2147217913(80040e07)'
标准表达式中数据类型不匹配
然后点调试后，就跳到下面的这句话：
rs.Open sql, dm, adOpenDynamic, adLockOptimistic

增加数据的时候，在datagrid中显示总是少一条，增加第一条数据的时候什么也没显示，但明明已经增加到数据库里了。增加第二条数据的时候显示出第一条，增加第三条的时候才显示出第一、第二条，但数据库里明明有三条记录了。
请教VB高手，就高手们指点一下！谢谢了！答对还有加分!
急急急急急急盼高手们的回复，现在领导等着我的程序要用。

Answer 1

sql = "select * from 停时统计 where date='"
access里日期用##来引

你的代码里有一段不明白你用来干吗的。。。
拿来调试下最好了

Answer 2

飘过..

Answer 3

那就是你显示数据的有问题了!
你可以让显示的哪个属性值减1啊,我以前也写过这类东西啊,但是好象都可以实现,不知道你控制没有控制 在其中一个按扭被点的同时,别的按扭不能用啊