- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何提取品号为“8-0”开头的单价 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=122267)
-- 发布时间：2018/7/21 19:38:00
-- 如何提取品号为“8-0”开头的单价
老师，我想把表中开头为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
此主题相关图片如下：k$u$d7)zvaicns{zn~0`s(a.png End If
End Select
[此贴子已经被作者于2018/7/21 19:38:58编辑过]
-- 发布时间：2018/7/21 21:34:00
--
用StartsWith
-- 发布时间：2018/7/22 18:04:00
--
改成
If dr("品号") Like "8-0*" Then
-- 发布时间：2018/7/23 9:28:00
-- 可以了，谢谢
可以了，谢谢老师