主题：[讨论]程序不执行

1、订单表通过"零件图号" 去价格表找零件名称,含税单价,供应商简称；合同编号表通过"供应商简称" 去供应商信息表找采购通则号和供应商代码。

    单独第一个可以执行，为什么加上一个就不行了呢？

If e.DataCol.Name = "零件图号" Then   '订单零件名称,含税单价,供应商简称的来源
    Dim nms() As String = {"零件名称","A点含税单价更新后","供应商简称"}
    If e.NewValue Is Nothing Then
        For Each nm As String In nms
            e.DataRow(nm) = Nothing
        Next
    Else
        Dim dr As DataRow
        dr = DataTables("价格表").Find("[零件图号] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            For Each nm As String In nms
                e.DataRow(nm) = dr(nm)
            Next
        End If
    End If
End If

If e.DataCol.Name = "供应商简称" Then   '合同采购通则和供应商代码更新
    Dim nms() As String = {"供应商代码","合同编号_采购通则"}
    If e.NewValue Is Nothing Then
        For Each nm As String In nms
            e.DataRow(nm) = Nothing
        Next
    Else
        Dim dr As DataRow
        dr = DataTables("供应商信息表").Find("[供应商简称] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            For Each nm As String In nms
                e.DataRow(nm) = dr(nm)
            Next
        End If
    End If
2、我的供应商信息表需自己只能看见自己的的供应商，但是供应商是唯一的，采购员可能是多个。

 如下图附件，怎么通过登录用户与采购员列的名字比对，是就可以查看编辑呢？

 

此主题相关图片如下：catch.jpg

1、 原来只有订单的这个没有问题，现在订单操作供应商简称时 提示  调用的目标发生了异常。列“供应商代码”不属于表 采购订单。  

      合同编号表中带过来的编号都没有办法编辑。

2、用户有30个，你的第二条没有办法写啊？能具体点吗?

   采购员列我手工输入，通过登录的账号来比对此列就可以了。

3、列属性-列表项目-过滤条件，怎么设置不重复？

If e.DataTable.Name <> "采购订单"  AndAlso e.DataCol.Name = "零件图号" Then   '订单零件名称,含税单价,供应商简称的来源
    Dim nms() As String = {"零件名称","A点_含税单价_更新后","A点_供应商简称"}
    If e.NewValue Is Nothing Then
        For Each nm As String In nms
            e.DataRow(nm) = Nothing
        Next
    Else
        Dim dr As DataRow
        dr = DataTables("价格表").Find("[零件图号] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            For Each nm As String In nms
                e.DataRow(nm) = dr(nm)
            Next
        End If
    End If
End If
If e.DataTable.Name <> "合同编号"  AndAlso e.DataCol.Name = "供应商简称" Then   '订单零件名称,含税单价,供应商简称的来源
    Dim nms() As String = {"供应商代码","合同编号_采购通则"}
    If e.NewValue Is Nothing Then
        For Each nm As String In nms
            e.DataRow(nm) = Nothing
        Next
    Else
        Dim dr As DataRow
        dr = DataTables("供应商信息表").Find("[供应商简称] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            For Each nm As String In nms
                e.DataRow(nm) = dr(nm)
            Next
        End If
    End If
End If

程序还是有问题，始终不能执行