以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  新增行判断  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109380)
--  作者：yifan3429
--  发布时间：2017/11/10 16:04:00
--  新增行判断
Dim Result As DialogResult
Result = MessageBox.Show("确认生成新的订单吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Tables("终端用户.订单总表").AddNew()
Tables("终端用户.订单总表.往来金额").AddNew()
End If

通过客户ID关联  新增订单表 需要在订单表判断是否 客户ID 是否存在  存在的提示已经存在  不存在提示增加成功
--  作者：有点甜
--  发布时间：2017/11/10 16:10:00
--  
Dim Result As DialogResult
Result = MessageBox.Show("确认生成新的订单吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Dim fdr As DataRow = DataTables("订单总表").find("客户ID = \'" & Tables("终端客户").current("终端客户") & "\'")
    If fdr Is Nothing Then
        Tables("终端用户.订单总表").AddNew()
        Tables("终端用户.订单总表.往来金额").AddNew()
        msgbox("新增成功")
    Else
        msgbox("已存在")
    End If
End If