以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代碼  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=24025)
--  作者：catyin1989
--  发布时间：2012/9/27 14:26:00
--  代碼
If e.sender.Value IsNot Nothing Then 
If CurrentTable.Filter ("學生編號 = \'"& e.sender.Value &"\'") Is Nothing Then
messagebox.show ("指定學生不存在,請確認同學的學生編號後重新輸入")
e.Cancel = True
End If
End If

錯在哪裡??
--  作者：狐狸爸爸
--  发布时间：2012/9/27 14:34:00
--  

提问要说明代码设置在什么事件，想要达到的目的。

就这个问题而已，如果你是要查找符合条件的行，代码应该是：

 

If e.sender.Value IsNot Nothing Then
    Dim wz As Integer
    wz = Tables("表名").FindRow("學生編號 = \'"& e.sender.Value &"\'",0,False )
    If wz >= 0 Then
        Tables("表名").Position = wz
    Else
        messagebox.show ("指定學生不存在,請確認同學的學生編號後重新輸入")
    End If
End If
--  作者：catyin1989
--  发布时间：2012/9/27 20:39:00
--  
編譯錯誤：前置的"."或"!"只可以在\'with\'陳述式中出現？
--  作者：狐狸爸爸
--  发布时间：2012/9/27 21:59:00
--  
贴出代码才能帮你分析原因的