新增行判断 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

主题：新增行判断