主题：[求助]材料组合

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呢，所以必须要有分隔符。

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