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

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