主题：[求助]材料组合

见下表

 

在材料组合表的代号组合列里输入代号组合，在名称组合列里能自动列出具体材料的组合， 如何实现呢

 

 

此主题相关图片如下：qq截图20151119085600cl.png


此主题相关图片如下：qq截图20151119085541cl.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:材料组合150809.foxdb

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

把代号组合的加号去掉，名称组合的加号更改为“/”, 代码如何更改

代号组合的加号去掉，就没法做了，比如1+6，去掉+号变成16，那是要查找1和6呢还是查找16呢，所以必须要有分隔符。

 

名称组合的加号更改为“/”, 代码也把加号更改为“/”

我如果把1,2，3，4， 更改为K1，K2，K3，K4呢

根据分类走， 比如材料分类A里有个代号K1， 材料分类B里也有个K1, 如何做呢

代号必须唯一，不然没法做啊。

我如果把1,2，3，4， 更改为K1，K2，K3，K4。。。如果更改代码， 我的意思是输入K1K6K12，去掉代号组合里的加号

如果把材料分类去掉， 如何更改代码

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) & "')")

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