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有一列客户列, 我需要根据客户的不同,调用不同的价格。 就是这个意思。
卡在这里两天了, 有没有老师可以帮助我一下,或者告诉我在帮助的什么位置也行。 我查了两天了,没查到。
[此贴子已经被作者于2016/12/5 14:03:13编辑过]