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

If e.Row("客服人员") = User.Name Then

        If e.Row.isnull("接单日期")  OrElse e.Row.isnull("下单日期") OrElse  e.Row.isnull("客服备注") OrElse  e.Row.isnull("交货日期") OrElse  e.Row.isnull("发货地址") OrElse  e.Row.isnull("订单内容") OrElse e.Row.isnull("材质") OrElse e.Row.isnull("颜色") Then

            e.Cancel = True '则取消编辑

            messagebox.show( "接单,下单,交货日期,材质,颜色 订单内容,备注 发货地址不能为空" ,"提示" )

            forms("订单必填项").show

我想把这个判断加入到

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 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

里面  如果勾选的列有没有完善如上这些数据填写将不能执行下面的代码  

同时返回没有填写数据的行显示为整行红色  请教老师

------------------------------------------------------------------------

或者通过逻辑列下单设计勾选时就有判断   全部填写完毕才能够勾选  否则停止编辑

If e.Col.name= "下单设计"  True Then

    If e.Row("客服人员") <> User.Name Then '如果是其他用户,且业务员和登录用户名不同

        messagebox.show( "我是好员工 一般不愿意帮别人 是吗?" ,"提示")

        e.Cancel = True '则取消编辑

    Else If e.Row("客服人员") = User.Name Then

        If e.Row.isnull("接单日期")  OrElse e.Row.isnull("下单日期") OrElse  e.Row.isnull("客服备注") OrElse  e.Row.isnull("交货日期") OrElse  e.Row.isnull("发货地址") OrElse  e.Row.isnull("订单内容") OrElse e.Row.isnull("材质") OrElse e.Row.isnull("颜色") Then

            e.Cancel = True '则取消编辑

            messagebox.show( "接单,下单,交货日期,材质,颜色 订单内容,备注 发货地址不能为空" ,"提示" )

            forms("订单必填项").show

        Else

            forms("订单明细").show

        End If

    End If

End If