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有一列客户列， 我需要根据客户的不同，调用不同的价格。   就是这个意思。

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

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

是这样的，谢谢。