各位大侠，有无碰到过这种情况，请指教！

majian77

upload=bmp][UploadFile/20039232217462367.bmp[/img]
我的是ADP，子窗体的数据源为视图，通过主子段与子子段相连接，并当鼠标点向一记录时，会更改此记录中的一个数值，以此来填允颜色，开始运行一切正常，但没过多久，就会出现此现象，并标示点击的记录已删除，如图所示，以前我在论坛上发表过此问题，不过那时的数据源为存贮过程，当我把数据源改为视图并取消后面的VBA代码后，就变的正常了，但我不了解的是，为什么有时会出现这种情况，有时又不出现，它并不是单独针对某个数据，没有规律，有时运行很长时间不出现这种情况，但有时点击记录不过几个它就出现，请高手指点，是那里的原因，谢谢。
后台数据库为SQL SERVER2000，前台为WINXP+ACCESS2002，通过局域网连接。[

majian77

第二张图
请高手务必要出手帮帮小弟呀

majian77

出现问题的代码为：
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

问题就出在
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

因为这个代码改变值后, 窗体在保存时也要修改表,你检查你的程序有否其它地方同时对此字段同步修改, 或会有冲突而致