- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]很白痴的问题，不过非常急 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=16287)
-- 发布时间：2012/2/8 14:23:00
-- [求助]很白痴的问题，不过非常急
问个很初级的问题，在窗口里 有三个控件 一个textbox 一个 button 一个 table
table作为表A的副表
表a有两列
代码 名称
001 上衣
002 裤子
003 帽子
我想实现在textbox里输入001，然后点击button 则在table中显示出
代码 名称
001 上衣
-- 发布时间：2012/2/8 14:44:00
--
在button的click事件中加入
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
tbl.Filter = ""
Else
txt = "\'*" & txt & "*\'"
tbl.Filter = "代码 Like " & txt
End If
-- 发布时间：2012/2/8 14:51:00
--
Dim s As String = Forms("窗口1").Controls("TextBox1").Value
If s > "" Then
Dim dr As DataRow = DataTables("表A").Find("代码 = \'" & s & "\'")
If dr IsNot Nothing Then
Output.Show("代码:" & dr("代码"))
Output.Show("名称:" & dr("名称"))
End If
End If
-- 发布时间：2012/2/8 15:01:00
--
2楼完美解决~！非常感谢！！
-- 发布时间：2012/2/8 15:04:00
--
3楼也非常感谢~！
-- 发布时间：2012/2/8 15:05:00
--
呵呵，我理解错了，原来是筛选啊。
-- 发布时间：2012/2/8 16:32:00
--
还有个问题，也是很初级的
在窗口里 有4个控件 一个textbox 两个 button 一个 table
有表a 和表b
表a有两列
代码 名称
001 上衣
002 裤子
003 帽子
表a有两列
代码 客户
001 北京
002 天津
003 上海
我想实现在textbox里输入001，然后点击button1 则在table中显示出表a
代码 名称
001 上衣
点击button2 在table中显示表b
代码 客户
001 北京
-- 发布时间：2012/2/8 16:49:00
--
急就上传文件。
-- 发布时间：2012/2/8 16:53:00
--
我感觉我描述的挺细致的呢~呵呵
-- 发布时间：2012/2/8 16:55:00
--
2楼已经给你答案了，建议你先看看帮助，掌握一些基本的概念和方法，别人对你的帮助才有意义。
按钮1：
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
tbl.Filter = ""
Else
txt = "\'*" & txt & "*\'"
tbl.Filter = "代码 Like " & txt
End If
按钮2
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("窗口1_Table2")
If txt = "" Then
tbl.Filter = ""
Else
txt = "\'*" & txt & "*\'"
tbl.Filter = "代码 Like " & txt
End If