'此代码针对所有数据行进行重置 2020/6/20注释
'If CurrentTable IsNot Nothing AndAlso CurrentTable.ColSel >= 0 Then
' Dim dc As DataCol = CurrentTable.Cols(CurrentTable.ColSel).DataCol
' dc.RaiseDataColchanged()
'End If
'此代码针对筛选出的数据行进行重置 2020/6/20增加
If CurrentTable IsNot Nothing AndAlso CurrentTable.ColSel >= 0 Then
Dim dc As DataCol = CurrentTable.Cols(CurrentTable.ColSel).DataCol
dc.RaiseDataColchanged(CurrentTable.filter)
End If
'不允许对某个数据表的某个数据列进行重置
If CurrentTable.name = "JP944任务单" AndAlso CurrentTable.cols(CurrentTable.colsel).name = "piao号" Then Return
If CurrentTable.name = "JPK612任务单" AndAlso CurrentTable.cols(CurrentTable.colsel).name = "装配piao号" Then Return
If CurrentTable.name = "工位912" AndAlso CurrentTable.cols(CurrentTable.colsel).name = "piao号" Then Return
If CurrentTable.name = "接头巴任务单" AndAlso CurrentTable.cols(CurrentTable.colsel).name = "装配piao号" Then Return
If CurrentTable.name = "弯头开料单" AndAlso CurrentTable.cols(CurrentTable.colsel).name = "生产piao号" Then Return
If CurrentTable.name = "直身开料单" AndAlso CurrentTable.cols(CurrentTable.colsel).name = "生产piao号" Then Return
If CurrentTable.name = "珠江弯头开料单" AndAlso CurrentTable.cols(CurrentTable.colsel).name = "生产piao号" Then Return
If CurrentTable.name = "珠江直身开料单" AndAlso CurrentTable.cols(CurrentTable.colsel).name = "生产piao号" Then Return
加好友 
发短信
Post By：2021/3/10 17:10:00 [显示全部帖子]
