Select Case e.DataCol.Name
Case "生产入库单号","主件品号","子件品号","耗用量"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("生产入库单号") OrElse dr.IsNull("主件品号") Then
dr("单价") = Nothing
Else
Dim filter1 As String
filter1 = "成品品号 = '" & dr("主件品号") & "' And 半成品品号 = '" & dr("子件品号") & "'"
pr = DataTables("半成品成本").Find(filter1)
If pr IsNot Nothing Then
dr("半成品单价") = pr("成本单价")
Else
dr("半成品单价") = 0
End If
End If
End Select
我已经在跨表的“半成品成本表”中提取了单价，但我只想把列为[生产入库单]+[来源单号]+[子件品号]开头为8-0，的单价，只取一个，其他为O,这个代码要怎么写？
此主题相关图片如下：f0w6euc~mt3p3}b0)f)d7.png
加好友 
发短信
Post By：2018/5/21 12:51:00 [只看该作者]
