以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  逻辑列勾选后复制数据到新的一个表错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118833)

--  作者:yifan3429
--  发布时间:2018/5/11 19:15:00
--  逻辑列勾选后复制数据到新的一个表错误
If e.DataCol.Name = "赢单" Then
    If e.DataRow("赢单") = True
        
        ----------------------------------------------
        
        Dim Result As DialogResult
        Result = MessageBox.Show("确认生成新的报价订单吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            e.DataRow("阶段备注") = "赢单客户"
            e.DataRow("客户等级") = "赢单客户"
            Dim fdr As DataRow = DataTables("订单总表").find("用户ID = \'" & Tables("终端用户").current("用户ID") & "\'")
            If fdr Is Nothing Then
                Dim dt1 As DataTable = DataTables("终端用户") \'指定数据来源
                Dim dt2 As DataTable = DataTables("订单总表")
                                   Dim dr As DataRow = dt2.AddNew
                    dr("用户ID") = drs(0)("用户ID")
                    dr("用户姓名") = drs(0)("用户姓名")
                    dr("楼盘") = drs(0)("楼盘")
                    dr("单元房号") = drs(0)("单元房号")
                    systemready = False
                    For i As Integer = 1 To drs.Count - 1
                        Dim ndr As DataRow = dt2.AddNew
                        ndr("用户ID") = drs(i)("用户ID")
                        ndr("用户姓名") = drs(i)("用户姓名")
                        ndr("楼盘") = drs(i)("楼盘")
                        ndr("单元房号") = drs(i)("单元房号")
                    Next
                    systemready = True
                    \'DataTables("终端用户").DeleteFor("选择 = true")
                End If
                DataTables("报价总表").Save()
                msgbox("新增成功")
            Else
                msgbox("订单已存在")
            End If
        End If
        ---------------------------
    Else
        e.DataRow("阶段备注") = Nothing
    End If
End If




--  作者:有点蓝
--  发布时间:2018/5/11 20:00:00
--  
什么错误?截图或者上传实例说明