主题：[讨论]新的订单转接代码 生效不产生效果

代码没有问题，没有数据，说明，没有符合条件的行；

 代码没有错，肯定没有对应条件的数据 （下单设计 = true）

 那现在你想说什么？

ndr("XT_日期") = dr("XT_日期") 取第一行的日期值

Dim fdr As DataRow = dt1.Find("下单设计 = true and (接单日期 is null or 下单日期 is null)")

If fdr IsNot Nothing Then

    msgbox("不行，数据不能为空")

    return

End If

Dim Result As DialogResult

Result = MessageBox.Show("确定将新的订单提交到设计部?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then
   
   
   
    Dim dt1 As DataTable = DataTables("订单") '指定数据来源
   
    Dim dt2 As DataTable = DataTables("设计部")'指定数据接受表
   
    Dim fdr As DataRow = dt1.Find("下单设计 = true and (接单日期 is null or 下单日期 is null)")
   
    If fdr IsNot Nothing Then
       
        msgbox("不行,数据请填写完毕")
       
        Return Nothing
       
    End If
   
    Dim drs As List(Of DataRow) = dt1.Select("下单设计 = true")'指定数据条件
   
    If drs.Count > 0 Then
       
        Dim dr As DataRow = dt2.AddNew
       
        dr("订单编号") = drs(0)("订单编号")
       
        dr("终端称呼") = drs(0)("终端称呼")
       
        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("订单编号") =  drs(i)("订单编号")
           
            ndr("终端称呼") = drs(i)("终端称呼")
           
            ndr("订单类别") = drs(i)("订单类别")
           
            ndr("交货日期") = drs(i)("交货日期")
           
            ndr("客服备注") = drs(i)("客服备注")
           
            ndr("XT_日期") =  dr("XT_日期")
           
            ndr("XT_姓名") =  dr("XT_姓名")
           
        Next
       
        systemready = True
       
        DataTables("订单").DeleteFor("下单设计 = true") '删除之前的行
       
    End If
   
    DataTables("设计部").Save()
   
    MessageBox.Show("好了,已经将新的订单转交给了设计部.","提示")
   
Else
   
    MessageBox.Show("好吧,等你准备好.","提示")
   
End If

Return Nothing

改成

Return