主题：[求助]材料组合

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