1、
重置列这种功能正常不应该给普通用户使用的。因为一般是事件代码更改后,希望重置列处理一下旧数据。而发布后的程序是无法编辑事件代码的,也就不存在处理旧数据这种情况。 这个也有道理,一重置就会把所有历史数据都修改了
|
2、这个写也是不能起到判断的作用
If CurrentTable.cols(CurrentTable.ColSel).name <> "日期" Or CurrentTable.cols(CurrentTable.ColSel).name <> "单据类型" Or CurrentTable.cols(CurrentTable.ColSel).name <> "类型"Or CurrentTable.cols(CurrentTable.ColSel).name <> "类别"Or CurrentTable.cols(CurrentTable.ColSel).name <> "单据类别"Then
If CurrentTable IsNot Nothing AndAlso CurrentTable.ColSel >= 0 Then
Dim dc As DataCol = CurrentTable.Cols(CurrentTable.ColSel).DataCol
dc.RaiseDataColchanged()
End If
End If