主题：还是昨天的问题

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