主题：[求助]关于根据单元格不同的内容调用不同列

If e.DataCol.Name = "产品编码" Then
    Dim dr As DataRow
    dr = DataTables("产品目录").Find("产品编码= '" & e.DataRow("产品编码") & "'" )
    If dr IsNot Nothing
        e.DataRow("剂型")= dr("剂型")
        e.DataRow("产品名称_通用名")= dr("产品名称_通用名")
        e.DataRow("产品名称_商品名")= dr("产品名称_商品名")
        e.DataRow("包装规格")=dr("包装规格")
 dr = DataTables("客户价目表").Find("产品编码= '" & e.DataRow("产品编码") & "'" )
 If dr IsNot Nothing     
 e.DataRow("价格")= dr("价格='r & [客户]'" )    这个位置，我想调用单元格内容来确定所要调用的列，这个格式。该如何输入呢？
        End If
    Else
        e.DataRow("剂型")= Nothing
        e.DataRow("产品名称_通用名")= Nothing
        e.DataRow("产品名称_商品名")= Nothing
        e.DataRow("价格")= Nothing
        e.DataRow("包装规格")=Nothing
        e.DataRow("数量")=Nothing
        End If
    End If

 

额， 表A有一列客户列， 我需要根据客户的不同，调用不同的价格。   就是这个意思。

 

卡在这里两天了， 有没有老师可以帮助我一下，或者告诉我在帮助的什么位置也行。 我查了两天了，没查到。

 

 

求帮助啊， 有木有人啊， 在线等噻。

e.DataRow("价格")= dr("r" & [客户] )   

If e.DataCol.Name = "产品编码" Then
    Dim dr As DataRow
    dr = DataTables("产品目录").Find("产品编码= '" & e.DataRow("产品编码") & "'" )
    If dr IsNot Nothing
        e.DataRow("剂型")= dr("剂型")
        e.DataRow("产品名称_通用名")= dr("产品名称_通用名")
        e.DataRow("产品名称_商品名")= dr("产品名称_商品名")
        e.DataRow("包装规格")=dr("包装规格")
        dr = DataTables("客户价目表").Find("产品编码= '" & e.DataRow("产品编码") & "' and 客户 = '" & e.DataRow("客户") & "'" )
        If dr IsNot Nothing
            e.DataRow("价格")= dr("价格" )   
        End If
    Else
        e.DataRow("剂型")= Nothing
        e.DataRow("产品名称_通用名")= Nothing
        e.DataRow("产品名称_商品名")= Nothing
        e.DataRow("价格")= Nothing
        e.DataRow("包装规格")=Nothing
        e.DataRow("数量")=Nothing
    End If
End If

是这样的，谢谢。