主题：求助：条件重置列

老师：

我要设置一个按钮进行重置列，已批准的列不要重置，不知怎么弄？？。

条件重置列错误：

1、在按钮中写：

DataTables("挤出部生产日报表A").DataCols("产品规格").RaiseDataColChanged("[批准] = false")
DataTables("挤出部生产日报表A").DataCols("标准工时编号").RaiseDataColChanged("[批准] = false")
DataTables("挤出部生产日报表A").DataCols("生产日期").RaiseDataColChanged("[批准] = false")
DataTables("挤出部生产日报表A").DataCols("操作员").RaiseDataColChanged("[批准] = false")

点击批准自动关闭系统。

附上批准按钮的代码：

If User.Name = "挤出主管" Then
    If Tables("挤出部生产日报表A").current("确认") = False Then
        MessageBox.Show("不能批准还未通过确认的行.")
    Else
        Tables("挤出部生产日报表A").Current("批准") = True
        Tables("挤出部生产日报表A").Current("批准时间") = Date.Today()
        Tables("挤出部生产日报表A").Current.Locked = True
        For Each dt As DataTable In DataTables
            dt.Save()
        Next       
    End If
Else
    MessageBox.show("你无批准权限,挤出主管方可批准!")
End If

2、在DataColChanged写：

If e.DataRow.Locked = False Then
    DataTables("挤出部生产日报表A").DataCols("产品规格").RaiseDataColChanged()
    DataTables("挤出部生产日报表A").DataCols("标准工时编号").RaiseDataColChanged()
    DataTables("挤出部生产日报表A").DataCols("生产日期").RaiseDataColChanged()
    DataTables("挤出部生产日报表A").DataCols("操作员").RaiseDataColChanged()
End If

用按钮重置，条件无效。