老师，我想把表中开头为8-0的品号，在半成品成本表中的成本单价中，提取到表中，写了红色这个代码，重置列也没反映，不知是哪里写错了呢？Select Case e.DataCol.Name
Case "品号","销退货单号"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
Dim filter2 As String
filter2 = "品号 = '" & dr("品号") & "' And 单号 = '" & dr("销退货单号") & "' And 出库数量 = '" & dr("交易数量") & "'"
pr = DataTables("出入库成本").Find(filter2)
If pr IsNot Nothing Then
dr("成本单价") = pr("出库单价")
End If
If dr("品号") = "Like '8-0%'" Then
Dim filter1 As String
filter1 = "成品品号 = '" & dr("品号") & "'"
pr = DataTables("半成品成本").Find(filter1)
If pr IsNot Nothing Then
dr("成本单价") = pr("成本单价")
End If
此主题相关图片如下：k$u$d7)zvaicns{zn~0`s(a.png
End If
End Select
[此贴子已经被作者于2018/7/21 19:38:58编辑过]
加好友 
发短信
Post By：2018/7/21 19:38:00 [只看该作者]
