- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]材料组合 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77480)
-- 发布时间：2015/11/19 9:25:00
-- [求助]材料组合
见下表
在材料组合表的代号组合列里输入代号组合，在名称组合列里能自动列出具体材料的组合， 如何实现呢
此主题相关图片如下：qq截图20151119085600cl.png
此主题相关图片如下：qq截图20151119085541cl.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:材料组合150809.foxdb |
-- 发布时间：2015/11/19 9:38:00
--
DataColChanged事件
Select Case e.DataCol.Name
Case "代号组合"
If e.NewValue IsNot Nothing
Dim nv As String = e.NewValue
Dim s As String = DataTables("材料表").GetComboListString("材料名称","材料代号 in (\'" & nv.Replace("+","\',\'") & "\')")
e.DataRow("名称组合") = s.Replace("|","+")
End If
End Select
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:材料组合150809.foxdb |
-- 发布时间：2015/11/19 9:54:00
--
把代号组合的加号去掉，名称组合的加号更改为“/”, 代码如何更改
-- 发布时间：2015/11/19 10:06:00
--
代号组合的加号去掉，就没法做了，比如1+6，去掉+号变成16，那是要查找1和6呢还是查找16呢，所以必须要有分隔符。
名称组合的加号更改为“/”, 代码也把加号更改为“/”
-- 发布时间：2015/11/19 10:17:00
--
我如果把1,2，3，4， 更改为K1，K2，K3，K4呢
根据分类走， 比如材料分类A里有个代号K1， 材料分类B里也有个K1, 如何做呢
[此贴子已经被作者于2015/11/19 10:18:51编辑过]
-- 发布时间：2015/11/19 10:26:00
--
代号必须唯一，不然没法做啊。
-- 发布时间：2015/11/19 10:32:00
--
我如果把1,2，3，4， 更改为K1，K2，K3，K4。。。如果更改代码， 我的意思是输入K1K6K12，去掉代号组合里的加号
[此贴子已经被作者于2015/11/19 10:46:48编辑过]
-- 发布时间：2015/11/19 11:11:00
--
如果把材料分类去掉， 如何更改代码
-- 发布时间：2015/11/19 11:20:00
--
Select Case e.DataCol.Name
Case "代号组合"
If e.NewValue IsNot Nothing
Dim nv As String = e.NewValue
Dim s As String = DataTables("材料表").GetComboListString("材料名称","材料代号 in (\'" & nv.Replace("K","\',K\'").Substring(2) & "\')")
e.DataRow("名称组合") = s.Replace("|","/")
Else
e.DataRow("名称组合") = Nothing
End If
End Select
End If
End Select
-- 发布时间：2015/11/19 11:21:00
--
Select Case e.DataCol.Name
Case "代号组合"
If e.NewValue IsNot Nothing
Dim arys() As String = e.NewValue.split("K")
Dim str As String = ""
For Each s As String In arys
If s > "" Then
Dim fdr As DataRow = DataTables("材料表").find("材料代号=\'" & s & "\'")
If fdr IsNot Nothing Then
str &= fdr("材料名称") & "+"
Else
str &= "没找到+"
End If
End If
Next
e.DataRow("名称组合") = str.trim("+")
Else
e.DataRow("名称组合") = Nothing
End If
End Select