查找赋值给窗口的文本框 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 查找赋值给窗口的文本框

共有3220人关注过本帖树形打印复制链接主题：查找赋值给窗口的文本框

蓝蚂蚁

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

加好友

发短信

等级：三尾狐帖子：676 积分：7958 威望：0 精华：0 注册：2016/6/11 11:10:00

查找赋值给窗口的文本框 发帖心情

Post By：2016/7/24 13:25:00 [只看该作者]

老师们你好麻烦抽个时间帮我解决如下问题谢谢

从窗口输入病人的姓名，如果查找到该病人则把病人相关信息表显示到窗口相关的文本框里，谢谢

此主题相关图片如下：22.png

y2287958

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

加好友

发短信

等级：狐神帖子：4841 积分：35105 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2016/7/24 13:34:00 [只看该作者]

文本框连接字段名即可

蓝蚂蚁

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

加好友

发短信

等级：三尾狐帖子：676 积分：7958 威望：0 精华：0 注册：2016/6/11 11:10:00

Post By：2016/7/24 13:39:00 [只看该作者]

你好那查找的代码如何写对Foxtable代码不太懂谢谢

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/7/24 14:45:00 [只看该作者]

参考代码

Dim drs As List(Of DataRow) = DataTables("表A").Select("姓名 = '" & e.form.controls("TextBox1").Text & "'")
If drs.count > 0 Then
    e.form.controls("TextBox60").Text = drs(0)("姓名")
    e.form.controls("TextBox61").Text = drs(0)("性别")
Else
    e.form.controls("TextBox60").Text = Nothing
    e.form.controls("TextBox61").Text = Nothing
End If