- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 同表中相同条件的计数 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119241)
-- 发布时间：2018/5/21 12:51:00
-- 同表中相同条件的计数
此主题相关图片如下：f0w6euc~mt3p3}b0)f)d7.png
-- 发布时间：2018/5/21 14:41:00
--
没看懂你要表达的意思。
你要得到什么结果？目前得到的什么结果？
不然请上传实例测试。
-- 发布时间：2018/5/21 17:41:00
--
我分开说可能比较清楚点。我是想把这三个列给合成一个条件[生产入库单]&[来源单号]&[子件品号]，而且子件品号开头是8-0的才组合。以我刚发的图为例:WF2018010200002W02017122000018-0101-235,把这个算一下有多少个数。
-- 发布时间：2018/5/21 17:51:00
--
没看懂你组合的意思，组合后你要做什么？把数据显示到哪里？
获取单价的问题，参考
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)
Dim drs = e.DataTable.Select("生产入库单号=\'" & e.DataRow("生产入库单号") & "\' and 来源单号=\'" & e.DataRow("来源单号") & "\' and 子件品号=\'" & e.DataRow("子件品号") & "\'", "_Identify")
For i As Integer = 0 To drs.count-1
If i = 0 Then
drs(i)("半成品单价") = pr("成本单价")
Else
drs(i)("半成品单价") = 0
End If
Next
End If
End Select
-- 发布时间：2018/5/22 9:55:00
-- 重置列后出现这个错误信息
-- 发布时间：2018/5/22 10:46:00
--
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 Is Nothing Then
msgbox("没找到")
Else
Dim drs = e.DataTable.Select("生产入库单号=\'" & e.DataRow("生产入库单号") & "\' and 来源单号=\'" & e.DataRow("来源单号") & "\' and 子件品号=\'" & e.DataRow("子件品号") & "\'", "_Identify")
For i As Integer = 0 To drs.count-1
If i = 0 Then
drs(i)("半成品单价") = pr("成本单价")
Else
drs(i)("半成品单价") = 0
End If
Next
End If
End If
End Select
-- 发布时间：2018/5/22 12:07:00
--
解决了，谢谢。