Select Case e.DataCol.Name Case "收款方式" If E.DataCol.Expression ="货到付款单" Then Forms("货到付款输入明细窗口").Open() Else e.Cancel=True End If End Select e.Cancel=True
以上的代码事件是在列内容改变后执行的,但会出错,我该怎么改,我昨天把文件给你发过去了
2楼
狐狸爸爸 发表于:2012/1/11 10:49:00
文件在那?
3楼
blackzhu 发表于:2012/1/11 11:57:00
Select Case e.DataCol.Name Case "收款方式" If e.DataRow("收款方式") ="货到付款单" Then Forms("货到付款输入明细窗口").Open() Else e.Cancel=True End If End Select e.Cancel=True