If e.DataCol.Name = "撤回报价" AndAlso e.DataRow("撤回报价") = True Then
    Dim nma() As String = {"图号"} \'A表数据来源列
    Dim nmb() As String = {"图号"} \'B表数据接收列
    Dim dr As DataRow = DataTables("报价管理系统").RemoveFor
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
    Next
End If

这样写为什么不对

为啥看你们写的代码  就觉得那么简洁呢   我写的不是不对就是像老太太的棉裤腰 

3If e.DataCol.Name = "传递报价" AndAlso e.DataRow("传递报价") = True Then
    Dim nma() As String = {"图号", "业务员"}
    Dim nmb() As String = {"图号", "业务员"}
    Dim dr As DataRow = DataTables("报价管理系统").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
    Next
End If

1/Select Case e.DataCol.Name
    Case "传递报价", "撤回报价"
        If e.NewValue = True Then
            Dim nms() As String = {"传递报价", "撤回报价"}
            For Each nm As String In nms
                If nm <> e.DataCol.Name AndAlso e.DataRow(nm) = True Then
                    e.DataRow(nm) = False
                End If
            Next
        End If
End Select

此主题相关图片如下：40.png


此主题相关图片如下：750.png

三个问题：

1、已经做了逻辑列排他选择   但为啥不执行

2、订单号提醒 我也没写相关代码  但是不知道怎么出现

3、业务员内容 为啥没有复制过去