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

来源：百度知道 编辑：UC知道 时间：2024/07/02 08:53:47
'“修改”按钮的程序
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 & "&#

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

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

飘过..

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