doubleclick代码:
If e.Col.name = "预入库单号" Then
e.Cancel = True
vars("rkdh") = e.Row("预入库单号")
vars("控件文本") = "预入库单号:" & e.Row("预入库单号") & "- - -" & "(" & e.Row("总数量") & ")台"
forms("收货扫描").open
End If
收货扫描窗口的afterload代码
sum6 = DataTables("待入库").Compute("count([SN])","[入库单号] = '" & vars("rkdh") & "'and (提示 = '重复扫描' or 提示 = '序列号不存在' or 提示 = '非本入库单物料')")
msgbox(vars("rkdh"))
msgbox(sum6)
ychz.text = "异常共计:(" & sum6 & ")条"
现象，第一次双击入库单号A111，msgbox(vars("rkdh")) = A111，msgbox(sum6) = 11.
第二次，双击入库单号A444，msgbox(vars("rkdh")) = A444，msgbox(sum6) = 0
第三次，双击入库单号A111，msgbox(vars("rkdh")) = A111，msgbox(sum6) = 0-------问题来了，怎么sum6等于0？不应该等于11吗？
第四次，双击入库单号A111，msgbox(vars("rkdh")) = A111，msgbox(sum6) = 11--------又正常了。
加好友 
发短信
Post By：2015/11/30 11:02:00 [只看该作者]
