共13 条记录, 每页显示 10 条, 页签: [1] [2]

[浏览完整版]

标题：[求助]很白痴的问题，不过非常急

1楼

48823868 发表于：2012/2/8 14:23:00

问个很初级的问题，在窗口里有三个控件一个textbox 一个 button 一个 table

table作为表A的副表

表a有两列

代码名称

001 上衣

002 裤子

003 帽子

我想实现在textbox里输入001，然后点击button 则在table中显示出

代码名称

001 上衣

2楼

hwd1987 发表于：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

3楼

czy 发表于：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

4楼

48823868 发表于：2012/2/8 15:01:00

图片点击可在新窗口打开查看

2楼完美解决~！非常感谢！！图片点击可在新窗口打开查看

[此贴子已经被作者于2012-2-8 15:02:06编辑过]

5楼

48823868 发表于：2012/2/8 15:04:00

3楼也非常感谢~！

6楼

czy 发表于：2012/2/8 15:05:00

呵呵，我理解错了，原来是筛选啊。

7楼

48823868 发表于：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 北京

8楼

czy 发表于：2012/2/8 16:49:00

急就上传文件。

9楼

48823868 发表于：2012/2/8 16:53:00

我感觉我描述的挺细致的呢~呵呵

10楼

狐狸爸爸 发表于：2012/2/8 16:55:00

2楼已经给你答案了，建议你先看看帮助，掌握一些基本的概念和方法，别人对你的帮助才有意义。

按钮1：

按钮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

共13 条记录, 每页显示 10 条, 页签: [1] [2]