主题：关于DataColChanging的设置

If e.DataCol.Name = "审核意见" AndAlso e.DataRow.isnull("审核意见")=False Then '如果是已结帐列的内容变动
        msgbox("已批复意见,不能修改")
        e.cancel = True
End If

If e.DataCol.Name = "审核日期" AndAlso e.DataRow.isnull("审核日期")=False Then '如果是已结帐列的内容变动
        msgbox("已批复意见,不能修改")
        e.cancel = True
End If

If e.DataCol.Name = "批准意见" AndAlso e.DataRow.isnull("批准意见")=False Then '如果是已结帐列的内容变动
        msgbox("已批复意见,不能修改")
        e.cancel = True
End If

If e.DataCol.Name = "批准日期" AndAlso e.DataRow.isnull("批准日期")=False Then '如果是已结帐列的内容变动
        msgbox("已批复意见,不能修改")
        e.cancel = True
End If

If e.DataCol.Name = "终审意见" AndAlso e.DataRow.isnull("终审意见")=False Then '如果是已结帐列的内容变动
        msgbox("已批复意见,不能修改")
        e.cancel = True
End If

If e.DataCol.Name = "终审日期" AndAlso e.DataRow.isnull("终审日期")=False Then '如果是已结帐列的内容变动
        msgbox("已批复意见,不能修改")
        e.cancel = True
End If