如何在窗口中设计查询按钮？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何在窗口中设计查询按钮？

共有1885人关注过本帖树形打印复制链接主题：如何在窗口中设计查询按钮？

有点酸

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

等级：五尾狐帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00

Post By：2019/10/5 15:03:00 [显示全部帖子]

多少个表都是一样：

Dim dr As DataRow = DataTables("A").Find("条件")

if dr isnot Nothing then

e.form.Controls("TextBox1").value = dr("某列1")

else
e.form.Controls("TextBox1").value = nothing

end if

dr = DataTables("b").Find("条件")

if dr isnot Nothing then

e.form.Controls("TextBox2").value = dr("某列x")

else
e.form.Controls("TextBox2").value = nothing

end if

有点酸

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

等级：五尾狐帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00

Post By：2019/10/5 15:30:00 [显示全部帖子]

如果编号是数值：

Dim Filter As String = "编号 = " & Tables("xxx").Current("编号")

Dim dr As DataRow = DataTables("A").Find(Filter)

如果编号是字符：

Dim Filter As String = "编号 = '" & Tables("xxx").Current("编号") & "'"

Dim dr As DataRow = DataTables("A").Find(Filter)

老用户不应该出现这种问题，因为帮助处处都是这种例子，如果不会，应该重新系统学习帮助，否则一分钟能解决的问题，你几天也解决不了。

主题：如何在窗口中设计查询按钮？