标题: 各位大侠，有无碰到过这种情况，请指教！ [打印本页] 作者: majian77 时间: 2003-9-24 06:18 标题: 各位大侠，有无碰到过这种情况，请指教！ [attach]1802[/attach]upload=bmp][UploadFile/20039232217462367.bmp[/img]
我的是ADP，子窗体的数据源为视图，通过主子段与子子段相连接，并当鼠标点向一记录时，会更改此记录中的一个数值，以此来填允颜色，开始运行一切正常，但没过多久，就会出现此现象，并标示点击的记录已删除，如图所示，以前我在论坛上发表过此问题，不过那时的数据源为存贮过程，当我把数据源改为视图并取消后面的VBA代码后，就变的正常了，但我不了解的是，为什么有时会出现这种情况，有时又不出现，它并不是单独针对某个数据，没有规律，有时运行很长时间不出现这种情况，但有时点击记录不过几个它就出现，请高手指点，是那里的原因，谢谢。
后台数据库为SQL SERVER2000，前台为WINXP+ACCESS2002，通过局域网连接。[作者: majian77 时间: 2003-9-24 06:22
第二张图
请高手务必要出手帮帮小弟呀[attach]1804[/attach]作者: majian77 时间: 2003-9-24 06:35
出现问题的代码为：
Sub LEFT()
Dim CNN1 As New ADODB.Connection
Dim RS1 As New ADODB.Recordset, RS2 As New ADODB.Recordset
Dim SQLSTR As String, SQLSTR1 As String
SQLSTR = "select Sum([FVBAOrderDetails].[VEXQTY]) AS [EXQTY之Sum], Sum([FVBAOrderDetails].[CT]) AS [CT之Sum] FROM [FVBAOrderDetails] where ODeatilID=" & Me.ID & ""
SQLSTR1 = "select finish,course from [order details] where id=" & Me.ID & ""
Set CNN1 = CurrentProject.Connection
RS1.Open SQLSTR, CNN1, adOpenKeyset, adLockPessimistic
RS2.Open SQLSTR1, CNN1, adOpenKeyset, adLockPessimistic
If RS1.RecordCount > 0 Then
Me.Parent![剩余数量] = Me.ODRQTY - Nz(RS1.Fields(0), 0)
Me.Parent![累计出货数] = Nz(RS1.Fields(0), 0)
Me.Parent![CT] = Me.CT - Nz(RS1.Fields(1), 0)
If Me.ODRQTY - Nz(RS1.Fields(0), 0) = 0 Then
Me.Finish = 1
Me.Course = 0
ElseIf Nz(RS1.Fields(0)) > 0 Then
Me.Finish = 0
Me.Course = 1
Else
Me.Finish = 0
Me.Course = 0
End If
Exit Sub
End If
Me.Parent![剩余数量] = Me.ODRQTY
Set RS1 = Nothing
End Sub作者: majian77 时间: 2003-9-24 06:41
问题就出在
If Me.ODRQTY - Nz(RS1.Fields(0), 0) = 0 Then
Me.Finish = 1
Me.Course = 0
ElseIf Nz(RS1.Fields(0)) > 0 Then
Me.Finish = 0
Me.Course = 1
Else
Me.Finish = 0
Me.Course = 0
End If
这段代码中，如果我改用ADO直接改表中的FINISH、COURSE的值则不会出现上述情况，搞不明白，请各位指教。谢谢。作者: tmtony 时间: 2003-9-24 06:50
因为这个代码改变值后, 窗体在保存时也要修改表,你检查你的程序有否其它地方同时对此字段同步修改, 或会有冲突而致