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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]查询按钮代码

共有2634人关注过本帖树形打印复制链接主题：[求助]查询按钮代码

杰克

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

加好友

发短信

等级：小狐帖子：330 积分：2076 威望：0 精华：0 注册：2015/5/10 10:12:00

[求助]查询按钮代码 发帖心情

Post By：2017/5/24 21:41:00 [只看该作者]

[求助]查询按钮代码咋写？求大师

在TextBox1输入学号或姓名，单击按钮“查询”

TextBox5显示姓名，TextBox4显示学号，TextBox3显示班级，姓名、学号、班级分别为“班级成绩表”的三个列

TextBox3、TextBox4和TextBox5绑定“班级成绩表”

杰克

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

加好友

发短信

等级：小狐帖子：330 积分：2076 威望：0 精华：0 注册：2015/5/10 10:12:00

Post By：2017/5/24 21:46:00 [只看该作者]

此主题相关图片如下：捕获33333.png

杰克

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

加好友

发短信

等级：小狐帖子：330 积分：2076 威望：0 精华：0 注册：2015/5/10 10:12:00

Post By：2017/5/24 21:52:00 [只看该作者]

有点色大师在吗

杰克

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

加好友

发短信

等级：小狐帖子：330 积分：2076 威望：0 精华：0 注册：2015/5/10 10:12:00

Post By：2017/5/24 21:56:00 [只看该作者]

顶

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/24 22:01:00 [只看该作者]

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

Dim idx As Integer = Tables("班级成绩表").FindRow("姓名 like '%" & str & "%' or 学好 like '%" & str & "%'")

If idx > -1 Then

Tables("班级成绩表").Position = idx

End If

杰克

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

加好友

发短信

等级：小狐帖子：330 积分：2076 威望：0 精华：0 注册：2015/5/10 10:12:00

Post By：2017/5/24 22:04:00 [只看该作者]

谢

杰克

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

加好友

发短信

等级：小狐帖子：330 积分：2076 威望：0 精华：0 注册：2015/5/10 10:12:00

Post By：2017/5/24 22:11:00 [只看该作者]

此主题相关图片如下：捕获444.png

yd-jch

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

加好友

发短信

等级：幼狐帖子：54 积分：480 威望：0 精华：0 注册：2016/9/30 16:16:00

Post By：2017/5/24 22:11:00 [只看该作者]

Dim xh As WinForm.TextBox = e.Forms.Controls("TextBox1")
DataTables("班级成绩表").LoadFilter = "学号 = '" & xh.Value & "'"
DataTables("班级成绩表").LoadTop = 1
DataTables("班级成绩表").Load
Tables("班级成绩表").Filter = "学号 = '" & xh.Value & "'"

也可以这样:

Dim xh As WinForm.TextBox = e.Forms.Controls("TextBox1")
Dim dr As DataRow = DataTables("班级成绩表").Find("学号 = '" & xh.Value & "'")
Dim xm As WinForm.TextBox = e.Forms.Controls("TextBox5")
Dim bj As WinForm.TextBox = e.Forms.Controls("TextBox4")
xm.Value = dr("姓名")
bj.Value = dr("班级")

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/24 22:15:00 [只看该作者]

Dim xh As String = e.Form.Controls("TextBox1").Text
Tables("班级成绩表").Filter = "姓名 like '%" & xh & "%' or Convert(学号, 'System.String') like '%" & xh & "%'"

[此贴子已经被作者于2017/5/24 22:20:33编辑过]

杰克

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

加好友

发短信

等级：小狐帖子：330 积分：2076 威望：0 精华：0 注册：2015/5/10 10:12:00

Post By：2017/5/24 22:16:00 [只看该作者]

此主题相关图片如下：捕获qqqqqqqqq.png

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

总数 20 1 2 下一页

主题：[求助]查询按钮代码