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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 查询弹出窗口

共有2480人关注过本帖树形打印复制链接主题：查询弹出窗口

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

查询弹出窗口 发帖心情

Post By：2018/8/1 18:06:00 [显示全部帖子]

我把这段代码放到 ComboBox2 的 textchanged 然后点击输入的时候就会弹出窗口感谢感谢
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20180801180155.jpg

If e.Form.Controls("ComboBox1").Text = "产品名称" Then

Tables("产品编辑窗口_Table1").Filter = "属性_名称 Like '%" & e.Form.Controls("ComboBox2").Text & "%'" ' 筛选出行\

End If

If e.Form.Controls("ComboBox1").Text = "产品编号" Then

Tables("产品编辑窗口_Table1").Filter = "属性_产品编号 Like '%" & e.Form.Controls("ComboBox2").Text & "%'" ' 筛选出行\

End If

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/8/2 17:34:00 [显示全部帖子]

就是有时候快了会出现，不知道为什么

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/8/8 23:01:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理系统.zip

能帮忙看看吗？感谢感谢

此主题相关图片如下：qq截图20180808225916.png

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/8/8 23:22:00 [显示全部帖子]

实在是不好意思感谢感谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理系统.zip

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/8/9 9:52:00 [显示全部帖子]

会不会是电脑配置差的差了的原因啊，就是当图片还没显示出来就选择其他行就会弹出这种窗口，感谢感谢尤其是平台管理小窗口在选择表行的时候最突出，感谢感谢

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/8/9 17:47:00 [显示全部帖子]

感谢感谢可以了能问问一个问题吗,还有就是要执行红色代码的功能有没什么其他办法呀，感谢感谢

就是没有关于"PictureViewer2"的代码，为什么下面的代码会关联到"PictureViewer2"呢，感谢感谢

If e.Table.current IsNot Nothing Then

e.Form.Controls("PictureViewer1").BindingField = ""

'Forms("平台管理窗口").Controls("WebBrowser1").address = Tables("平台管理窗口_Table1").Current("编辑信息_文件路径") '文件夹内容文件显示'

e.Table.DataTable.datacols("编辑信息_窗口图片").DefaultFolder = e.Table.current("编辑信息_文件路径") & "\窗口图片\"

e.Table.DataTable.datacols("编辑信息_详解图片").DefaultFolder = e.Table.Current("编辑信息_文件路径") & "\详解图片\"

e.Form.Controls("PictureViewer1").BindingField = "平台管理窗口_Table1.编辑信息_窗口图片"

End If '图片浏览器显示图片

[此贴子已经被作者于2018/8/9 17:51:47编辑过]

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/8/10 17:48:00 [显示全部帖子]

好的感谢感谢

下一主题 >> << 上一主题

主题：查询弹出窗口