老师好：原来有个需求是从表事件实现的，但是随着需求变化，有些需求集在一起就矛盾了。有些功能要移植出来：比如自动根据规则进行一键自动计划排单，请帮2段代码合并在一个按钮代码，谢谢！'原按钮重置列代码
Dim dc As DataCol = DataTables("表A").DataCols("合并文本")
dc.RaiseDataColChanged()
'原表A DataColChanged事件代码
Select Case e.DataCol.name
Case "合并文本"
If e.DataRow.Isnull("合并文本") = False Then
Dim dr As DataRow = DataTables("规则").find("合并文本 = '" & e.DataRow("合并文本") & "'")
If dr IsNot Nothing Then
e.DataRow("产线") = dr("产线")
End If
Else
e.DataRow("产线") = Nothing
End If
End Select
加好友 
发短信
Post By：2018/11/26 13:13:00 [显示全部帖子]
