以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口闪退  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121912)
--  作者：有点甜
--  发布时间：2018/7/15 18:45:00
--  
If Tables("订单主表.订单明细表").Rows.Count > 0 Then
systemready = False
    For Each r1 As Row In Tables("订单主表.订单明细表").GetCheckedRows
        Dim  r2 As Row = Tables("出库明细表").AddNew
        r2("送货单号") = Tables("出库主表").current("送货单号")
        r2("订单编号") = r1("订单编号")
        r2("物料编号") = r1("物料编号")
        r2("物料名称") = r1("物料名称")
        r2("客户名称") = r1("客户名称")
        r2("版本号") = r1("版本号")
        r2("单价") = r1("单价")
        r2("料号") = r1("料号")
    Next
systemready = True
    e.Form.close
Else
    MessageBox.Show("该订单无未交项!")
End If
--  作者：有点甜
--  发布时间：2018/7/15 20:09:00
--  

订单明细表，datacolchanged

 

Select Case e.DataCol.Name
    Case "客户名称","物料编号","物料名称","版本号","订单编号","订单数量"
If e.newvalue <> e.oldvalue Then
        DataTables("出库明细表").DataCols("订单编号").RaiseDataColChanged("客户名称=\'" & e.DataRow("客户名称")  & "\' and 物料编号=\'" & e.DataRow("物料编号")  & "\'and 版本号=\'" & e.DataRow("版本号")  & "\'and 订单编号=\'" & e.DataRow("订单编号")  & "\'and 物料名称=\'" & e.DataRow("物料名称")  & "\'")
End If
End Select