[求助]以下代码为什么不能实现功能 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]以下代码为什么不能实现功能

共有3071人关注过本帖树形打印复制链接主题：[求助]以下代码为什么不能实现功能

jjjeyes

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

等级：小狐帖子：305 积分：2695 威望：0 精华：0 注册：2011/10/29 16:26:00

[求助]以下代码为什么不能实现功能 发帖心情

Post By：2020/12/10 23:26:00 [只看该作者]

Dim txt As String = e.Form.Controls("TextBox1").Text

Dim tbl As Table = Tables("测试成绩录入_Table1")

If txt = "" Then

tbl.DataTable.loadFilter = "[年度] = '" & Date.today.year & "'"

tbl.DataTable.load

Else

txt = "'%" & txt & "%'"

tbl.DataTable.loadFilter = "[年度] = '" & Date.today.year & "' And [学号] Like " & txt & " Or [姓名] Like " & txt

tbl.DataTable.load

End If

以上代码是为了加载今年的输入框里的学号的学生，可是输入学号后，却出现了所有年度（2020,2019,2018年度的都出来了）的学生信息。

当输入框为空时，却可以显示当年的学生信息。

请问这是什么原因？问题在哪里？

hanlingli111999

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

等级：童狐帖子：260 积分：1957 威望：0 精华：0 注册：2020/3/7 22:50:00

Post By：2020/12/11 7:49:00 [只看该作者]

问谁呢，也不叫老师

有点蓝

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

等级：超级版主帖子：110758 积分：563716 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/12/11 8:35:00 [只看该作者]

tbl.DataTable.loadFilter = "[年度] = '" & Date.today.year & "' And ([学号] Like " & txt & " Or [姓名] Like " & txt & ")"

jjjeyes

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

等级：小狐帖子：305 积分：2695 威望：0 精华：0 注册：2011/10/29 16:26:00

Post By：2020/12/11 23:13:00 [只看该作者]

谢谢老师，原来如此，问题解决了

主题：[求助]以下代码为什么不能实现功能