| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 关于查找数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101507) |
| -- 作者：peibaomin -- 发布时间：2017/6/1 19:52:00 -- 关于查找数据 如何在一个窗体的表中双击客户名称字段中某一个数值时，打开另外一个窗体并以双击客户名称字段中某一个数值为查找条件，显示在此窗体的表中 和文本框中。 |
| -- 作者：有点色 -- 发布时间：2017/6/1 20:33:00 -- 获取某一个表的当前行的值，这样写
Dim str As String = Tables("表A").Current("第一列") msgbox(str) |
| -- 作者：peibaomin -- 发布时间：2017/6/1 20:52:00 -- 怎么在打开的窗体表中和文本框中显示查找的内容呢？ |
| -- 作者：有点色 -- 发布时间：2017/6/1 22:53:00 -- 窗口AfterLoad事件
Dim str As String = Tables("表A").Current("第一列") e.form.controls("TexBox1").Text = str e.form.controls("Table1").Table.Filter = "某列 = \'" & str & "\'" |