If e.DataCol.Name = "客户" Then
dr = DataTables("仓库").Find("[客户] = '" & e.DataRow("客户") & "'")
e.datarow("价格") = dr(“价格”)
endif
类似这样