- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]窗口中如何实现以下功能？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=16782)
-- 发布时间：2012/2/23 16:20:00
-- [求助]窗口中如何实现以下功能？
示例文件“出厂记录”表中窗口1中实现如下功能：
打开窗口，左边表中为未出厂记录，右边表为已出厂记录，以状态列进行筛选区分。并且右边表中打开时要隐藏以前的出厂记录。
1、选中左边表中复选框，表中状态列自动变为已出厂，并筛选到右边表中，当选中右边表中复选框，状态列变为未出厂，并筛选到左边表中。
2、出厂日期输入框，填入日期后，除出厂记录表中日期填写外，表B中已出厂的出厂日期自动填写，当状态变为未出厂，出厂日期自动删除。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.table |
-- 发布时间：2012/2/23 17:58:00
--
麻烦老师帮我看看撒，谢谢
-- 发布时间：2012/2/23 19:19:00
--
窗口AfterLoad事件
Tables("表B").Filter = "状态 = \'未出厂\'"
Tables("窗口1_table2").Filter = "状态 = \'已出厂\'"
表B AfterCheckRow事件：
If e.Row.Checked = True Then
e.Row("状态") = "已出厂"
e.Row("出厂日期") = Tables("出厂记录").Current("出厂日期")
Else
e.Row("状态") = "未出厂"
e.Row("出厂日期") = Nothing
End If
-- 发布时间：2012/2/23 19:52:00
--
谢谢老师，这么复杂的问题居然就那么两句代码就解决了，佩服