以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何把附加费用加到总费用中  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129737)
--  作者：mirco
--  发布时间：2019/1/4 20:35:00
--  如何把附加费用加到总费用中
老师 如何把附加费用加到总费用中     把订单明细窗体中 附加费用 TextBoX7 的值 加到 订单表的 总金额。谢谢！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:订单管理.table
--  作者：有点蓝
--  发布时间：2019/1/4 21:03:00
--  
保存按钮

If Tables("订单明细").Current IsNot Nothing Then
    Dim dr As DataRow = DataTables("订单").Find("订单编号=\'" & Tables("订单明细").Current("订单编号") & "\'")
    If dr IsNot Nothing Then
        dr("总金额") = dr("总金额") + val(e.Form.Controls("TextBox7").text)
        dr.save
    End If
    Tables("订单明细").Current.Save()
    DataTables("订单明细").Save()
    
End If