如何禁止重置某个数据列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

日常工作->数据下面有一个“重置列”按钮，我想在这里不允许对某个数据表的某个数据列进行重置，请问代码该如何写？谢谢。

if currenttable.name = "某某表" andalso currenttable.cols(currenttable.colsel).name = "某某列" then return

原重置列代码

请问上述2楼的代码要放在哪个事件里面去？

导入系统菜单，放到原“重置列”按钮代码

我把它放在 reset 的 click 事件里面去，但是没有效果，一按重置这个按钮，还是会发生变化。

更改后的 reset 的 click 事件完整代码发上来看看

'此代码针对所有数据行进行重置 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

为什么发出去给你时“piao”字变成“piao”了呢？实际代码里面是“piao”字的。

都已经重置了，再判断有啥用啊

重置的代码放到最后