为何表中的内容没有更新

yodong

在ADP中,运行了如下代码:

Private Sub 产品编号_AfterUpdate()

On Error GoTo aa

Dim rs6 As ADODB.Recordset

Dim cn As ADODB.Connection

Dim sqlstr As String

Set rs6 = New ADODB.Recordset

Set cn = Application.CurrentProject.Connection

sqlstr = "select 产品编号,一体化编号,返修,返修日期  from  [tbl交检单-编号] where 产品型号='" & Me.产品型号 & "'" & " and 产品编号='" & Me.产品编号 & "'" & " And (出厂登记 = 0)"

rs6.Open sqlstr, cn, adOpenDynamic, adLockOptimistic

MsgBox rs6.RecordCount

If rs6.EOF Then

                MsgBox "没有此产品编号或已出厂,请重新输入!", , "订单系统"

                Me.Undo

Else

                If MsgBox("你确定此产品要返修吗?", vbYesNo, "订单管理系统") = vbYes Then

                MsgBox rs6("返修")

                MsgBox rs6("产品编号")

                rs6("返修") = True '把返修登记为真

                'rs6("返修日期") = Format(getsqlsvrtime(), "yy-mm-dd")

                'Me.一体化编号 = rs6("一体化编号")

                'rs6("一体化编号") = "dd"

                Else

                Me.Undo

                End If

End If

bb:

Exit Sub

aa:

MsgBox Err.Description, , "订单"

Resume bb

End Sub

本来想达到的效果是"返修字段"的值改为"true"的,

可是运行后却没有改变,记录是找到的.

MsgBox rs6("返修")

MsgBox rs6("产品编号")

有显示结果.

不知何故,难道ACCESS真的是不能做大型开发吗?

yodong

唉!原来漏了一个rs6.updata搞得我还以为ACCESS有问题了.害我弄了一个下午呀.头都痛了.