以文本方式查看主题 - 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 -- 什么错误?截图或者上传实例说明 |