以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  暂停执行事件代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147780)
--  作者：xxm653232
--  发布时间：2020/3/24 9:00:00
--  暂停执行事件代码
按照教程做了一个暂停事件的代码，但是发现在点击“出库”按钮之后暂停的事件就一直都不执行了，这是为什么？请各位老师帮帮忙，解答一下疑惑。
出库按钮下的代码：

pause = True
If MessageBox.Show("是否出库","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
For Each r As Row In Tables("订单主表.订单详细")
With DataTables("成品库")
Dim dd As DataRow
dd = .Find("[编号] = \'" & r("产品编码简化") & "\'and [原料]=\'" & r("原料") & "\' ","日期 Desc, _Identify desc",0) \'找出倒数第二次订购PD01产品的记录
If dd IsNot Nothing Then
If r("数量")<= dd("库存")Then
If r("出库数量") <> r("数量") Then
        Dim wr As Row =Tables("成品库").addnew
        wr("出库单号")=r("详细编号")
        wr("批号")=1
        wr("编号")=r("产品编码简化")
        wr("原料")=r("原料")
        wr("名称")=r("颜色")
        wr("材质")=r("材质")
        wr("入库")=0
        wr("出库")=r("数量")
r("出库数量") = r("数量")
Else
MessageBox.show("产品已经出库,请不要重复出库")
End If
Else 
MessageBox.Show( "型号: " & r("产品编码简化") &   "    库存不足")
End If
Else
MessageBox.Show( "型号: " & r("产品编码简化") &   "    仓库不存在此型号库存产品,请及时与仓库核实")
End If
End With
Next
End If
Tables("订单管理_Table5").AutoSizeCols
MessageBox.show("完成处理")
Tables("订单主表").current("出库")=True
DataTables("成品库").Save()
pause = False


下面的是CurrentChanged下面被暂停的代码
 If pause = True Then
                Return
                
                
                Dim jb2 As New SQLJoinTableBuilder("产品详细","产品表")
                jb2.C
                jb2.AddTable("产品表","组件号","产品信息2","键",JoinModeEnum.left)
                jb2.AddCols("父键","描述")
                jb2.Filter="[产品编号]=\'" & Tables("订单主表.订单详细").current("产品编码") & "\'"
                Tables("订单管理_Table3").DataSource=jb2.BuildDataSource
                For Each r As Row In Tables("订单管理_Table3")
                    r("父键")=DataTables("产品信息2").find("[键]=\'" & r("父键") & "\'")("描述")
                Next
                \'MessageBox.show ("5")
                
                
                
                
                
                Dim fl As String
                fl=Tables("订单主表.订单详细").current("详细编号")
                Dim jb As new SQLJoinTableBuilder("分解信息","订单详细")
                jb.C
                jb.addtable("订单详细","产品编码","产品表","产品编号")
                jb.addtable("订单详细","原料","原料主表","原料编号",JoinModeEnum.left)
                jb.AddTable("产品表","组件号","BOM","父键")
                jb.AddTable("BOM","键","零件表","键",JoinModeEnum.left)
                jb.addtable("零件表","键","零件检验标准","零件编号",JoinModeEnum.left)
                jb.Filter="[详细编号] = \'" & fl & "\'"
                jb.AddCols ("详细编号","{零件表}.模具编号","{零件表}.名称",True)
                
                jb.AddExp ("数量","sum({BOM}.数量)") \'承接上级窗口使用
                jb.AddCols ("{零件检验标准}.单重",True)
                jb.AddExp ("重量","Round(单重 * 数量,1)")
                jb.AddCols ("{零件表}.型号","{零件表}.键","原料","固定原料","BOM原料","{原料主表}.材质",True)
                Tables("订单管理_Table4").DataSource =jb.BuildDataSource()
                With Tables("订单管理_Table4")
                    .Cols("数量").GrandTotal = True
                    .Cols("重量").GrandTotal = True
                    .GrandTotal = True
                End With
                
                \'MessageBox.show ("6")
                For Each r As Row In Tables("订单管理_Table4")
                    If r.Isnull("BOM原料") Then
                        \'MessageBox.show ("6.1")
                    Else
                        r("原料")=r("BOM原料")
                        r("材质")=DataTables("原料主表").Find("[原料编号]=\'" & r("原料") & "\'")("材质")
                    End If
                    \'MessageBox.show ("7")
                    If r.Isnull("固定原料") Then
                        \'MessageBox.show ("7.1")
                    Else
                        r("原料")=r("固定原料")
                        r("材质")=DataTables("原料主表").Find("[原料编号]=\'" & r("原料") & "\'")("材质")
                    End If
                Next
                \'MessageBox.show ("8")
                With Tables("订单管理_Table4")
                    .Cols("固定原料").Visible = False
                    .Cols("BOM原料").Visible = False
                    \'.Cols("需求数量").Visible = False
                    .AutoSizeCols
                    .Sort="型号"
                End With
            End If
        End If
    End If
End If
--  作者：有点蓝
--  发布时间：2020/3/24 9:15:00
--  
CurrentChanged

If pause = True Then
    Return
end if

其它代码
--  作者：xxm653232
--  发布时间：2020/3/24 9:55:00
--  
谢谢，老师