以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  还是昨天的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15777)
--  作者：sdscen
--  发布时间：2012/1/11 10:44:00
--  还是昨天的问题

Select Case e.DataCol.Name
    Case "收款方式"
    If E.DataCol.Expression ="货到付款单" Then
      Forms("货到付款输入明细窗口").Open()
    Else
        e.Cancel=True
    End If
End Select
e.Cancel=True

 

以上的代码事件是在列内容改变后执行的，但会出错，我该怎么改，我昨天把文件给你发过去了
--  作者：狐狸爸爸
--  发布时间：2012/1/11 10:49:00
--  
文件在那？
--  作者：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

 

  这样试试