- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 代码不执行问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88289)
-- 发布时间：2016/7/30 22:55:00
-- 代码不执行问题
如下图所示，希望订单明细中数量发生变化时，对应的申请单的数量也要变化。我在窗体关闭按钮中放了代码，但不执行
此主题相关图片如下：1.png
关闭按钮的代码如下：
If Tables("pomain.posub").Current IsNot Nothing Then
Dim rrr As Row = Tables("pomain").Current
For Each dr1 As DataRow In DataTables("posub").Select("[订单号] = \'" & rrr("订单号") & "\'" )
Dim Val As Integer
Val = DataTables("posub").SQLCompute("Sum(数量)","申请单子表标识 = \'"& dr1("申请单子表标识") &"\'")
Dim dr As DataRow = DataTables("prsub").find("pr子表标识 = \'" & dr1("申请单子表标识") & "\' ")
If dr IsNot Nothing Then
dr("订单数量") = Val
End If
Next
Else
Tables("pomain").Current.Delete
End If
DataTables("posub").save
Tables("pomain").AllowEdit = False
Tables("pomain.posub").AllowEdit = False
Tables("posub").AllowEdit = False
e.Form.close
我又单独放了一个按钮，代码如下，就可以更新数据，不知道为什么关闭窗体的按钮代码不执行。
Dim rrr As Row = Tables("pomain").Current
For Each dr1 As DataRow In DataTables("posub").Select("[订单号] = \'" & rrr("订单号") & "\'" )
Dim Val As Integer
Val = DataTables("posub").SQLCompute("Sum(数量)","申请单子表标识 = \'"& dr1("申请单子表标识") &"\'")
Dim dr As DataRow = DataTables("prsub").find("pr子表标识 = \'" & dr1("申请单子表标识") & "\' ")
If dr IsNot Nothing Then
dr("订单数量") = Val
End If
Next
-- 发布时间：2016/7/30 23:19:00
--
关闭按钮的代码怎么不执行呢？
-- 发布时间：2016/7/31 9:55:00
--
以下是引用mayazql在2016/7/30 23:19:00的发言：
关闭按钮的代码怎么不执行呢？
关闭按钮的代码怎么不执行呢？
不可能，加入msgbox，看执行到哪里。
-- 发布时间：2016/7/31 12:35:00
--
明白了，要先保存下posub
DataTables("posub").save
谢谢大红袍指点