- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]查询按钮代码 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=101091)
-- 发布时间：2017/5/24 21:41:00
-- [求助]查询按钮代码
[求助]查询按钮代码咋写？求大师
在TextBox1输入学号或姓名，单击按钮“查询”
TextBox5显示姓名，TextBox4显示学号，TextBox3显示班级，姓名、学号、班级分别为“班级成绩表”的三个列
TextBox3、TextBox4和TextBox5绑定“班级成绩表”
-- 发布时间：2017/5/24 21:46:00
--
此主题相关图片如下：捕获33333.png
-- 发布时间：2017/5/24 21:52:00
--
有点色大师在吗
-- 发布时间：2017/5/24 21:56:00
--
顶
-- 发布时间：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
-- 发布时间：2017/5/24 22:04:00
--
谢
-- 发布时间：2017/5/24 22:11:00
--
此主题相关图片如下：捕获444.png
-- 发布时间：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("班级")
-- 发布时间：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编辑过]
-- 发布时间：2017/5/24 22:16:00
--
此主题相关图片如下：捕获qqqqqqqqq.png