代碼 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有8608人关注过本帖树形打印复制链接主题：代碼

catyin1989

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：165 积分：1647 威望：0 精华：0 注册：2012/9/12 21:46:00

代碼

Post By：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

錯在哪裡??

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：165 积分：1647 威望：0 精华：0 注册：2012/9/12 21:46:00

Post By：2012/9/27 20:39:00 [只看该作者]

編譯錯誤：前置的"."或"!"只可以在'with'陳述式中出現？

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/9/27 21:59:00 [只看该作者]

贴出代码才能帮你分析原因的

下一主题 >> << 上一主题

主题：代碼