先上代码

If e.DataCol.Name = "产品编码"  Or  e.DataCol.Name = "客户" Or e.DataCol.Name = "产品名称_商品名" Or e.DataCol.Name = "包装规格"  Then
    Dim dr As DataRow
    Dim kd As DataRow
    Dim Filter As String
    Filter = "[产品编码] = \'" & e.DataRow("产品编码") & "\' And [客户] = \'" & e.DataRow("客户") & "\'"
    dr = DataTables("产品目录").Find("[产品编码] = \'" & e.DataRow("产品编码") & "\'")
    kd = DataTables("客户价目表").find(filter)
    If kd IsNot Nothing Then
        e.DataRow("剂型")=dr("剂型")
        e.DataRow("产品名称_通用名")=dr("产品名称_通用名")
        e.DataRow("产品名称_商品名")=dr("产品名称_商品名")
        e.DataRow("包装规格")=dr("包装规格")
        e.DataRow("价格")= kd("价格")
    Else
        If dr IsNot Nothing Then
            e.DataRow("剂型")=dr("剂型")
            e.DataRow("产品名称_通用名")=dr("产品名称_通用名")
            e.DataRow("产品名称_商品名")=dr("产品名称_商品名")
            e.DataRow("包装规格")=dr("包装规格")
            If e.DataRow("批发")=True            
                e.DataRow("价格")= dr("批发")
            Else
                e.DataRow("价格")=dr("价格")
            End If
        Else
            e.DataRow("剂型")=Nothing
            e.DataRow("产品名称_通用名")=Nothing
            e.DataRow("产品名称_商品名")=Nothing
            e.DataRow("包装规格")=Nothing
            e.DataRow("价格")= Nothing
        End If
    End If
   
    Dim dra As DataRow
    Dim kda As DataRow
    Dim Filtera As String
    Filtera = "[产品名称_商品名] = \'" & e.DataRow("产品名称_商品名") & "\' And [包装规格] = \'" & e.DataRow("包装规格") & "\' and [客户]=\'" & e.DataRow("客户")& "\'"
    dra = DataTables("产品目录").Find("[产品名称_商品名] = \'" & e.DataRow("产品名称_商品名") & "\' And [包装规格] = \'" & e.DataRow("包装规格") & "\'" )
    kda= DataTables("客户价目表").find(filtera)
    If kd IsNot Nothing Then
        e.DataRow("产品编码") = dra("产品编码")
        e.DataRow("价格")= kda("价格")
    Else
        If dra IsNot Nothing Then
            e.DataRow("产品编码") = dra("产品编码")
            If e.DataRow("批发")=True
                e.DataRow("价格")= dr("批发")
            Else
                e.DataRow("价格")=dr("价格")

            End If
        Else
            e.DataRow("产品编码") =Nothing
            e.DataRow("价格")=Nothing
        End If
    End If
End If

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目.rar

求老师帮忙教教，到底是哪里出问题了。

第一句

If e.DataCol.Name = "批发" Or e.DataCol.Name = "产品编码"  Or  e.DataCol.Name = "客户" Or e.DataCol.Name = "产品名称_商品名" Or e.DataCol.Name = "包装规格"  Then