public一个全局变量也可(逻辑型),按钮控制全局变量,表事件根据这个变量按行不同的编码方案
if 全局变量 = True then
If e.DataCol.Name = "日期" Then '按月编码
----
End If
end if
----------------
if 全局变量 = False then
If e.DataCol.Name = "日期" Then '按日编码
-----End If