Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口筛选显示


  共有5663人关注过本帖树形打印复制链接

主题：窗口筛选显示
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/11/22 11:51:00 [显示全部帖子]

扫描表的CurrentChanged事件代码设置为：

If e.Table.Current isnot nothing andalso Forms("窗口1").Opened Then '如果窗口已经打开

    Dim filter as string = "清单条码编码='" & e.Table.Current("清单条码编码") & "'"

    Dim wz As Integer =  Tables("清单表").FindRow(filter)

    If wz >=0 Then
        Tables("清单表").Position = wz
    End If
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/11/22 15:51:00 [显示全部帖子]

调试
Dim tm1 As WinForm.textBox = e.Form.Controls("datetimepicker1")
    Dim cb3 As WinForm.textBox = e.Form.Controls("checkBox1")
msgbox(tm1.value)

msgbox(cb3.value)
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/11/22 16:07:00 [显示全部帖子]

说明这时候控件还没有值。如果控件绑定了列，应该到绑定的单元格取值，看看：http://www.foxtable.com/webhelp/topics/2436.htm

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/11/22 20:09:00 [显示全部帖子]

http://www.foxtable.com/webhelp/topics/0777.htm
Dim cb3 As WinForm.checkBox = e.Form.Controls("checkBox1")

   If cb3.checked Then
        MessageBox.show("此件为加急件", "提示！") 
    End If 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询