| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 请教:目录树筛选与两表联动 (已解决) (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15519) |
| -- 作者：yangming -- 发布时间：2011/12/29 11:15:00 -- 请教:目录树筛选与两表联动 (已解决) 窗口中有表一和表二两表,表一是主表,表二是明细表,两表中有一共同列:单号,在表一的 CurrentChanged事件中有如下代码,
DataTables("主窗口_Table2").LoadFilter = "[单号] = \'" & e.Table.Current("单号") & "\'" DataTables("主窗口_Table2").Load()
我的目的是,如果表一总行数为空时,表二也为空,如何处理? [此贴子已经被作者于2011-12-29 12:43:36编辑过]
|
| -- 作者：狐狸爸爸 -- 发布时间：2011/12/29 11:20:00 -- if t.Table.Current Is Nothing then DataTables("主窗口_Table2").LoadFilter = "[_Identify] Is Null" DataTables("主窗口_Table2").Load() Else DataTables("主窗口_Table2").LoadFilter = "[单号] = \'" & e.Table.Current("单号") & "\'" DataTables("主窗口_Table2").Load() End if |
| -- 作者：yangming -- 发布时间：2011/12/29 11:32:00 -- 以下是引用狐狸爸爸在2011-12-29 11:20:00的发言：
if t.Table.Current Is Nothing then DataTables("主窗口_Table2").LoadFilter = "[_Identify] Is Null" DataTables("主窗口_Table2").Load() Else DataTables("主窗口_Table2").LoadFilter = "[单号] = \'" & e.Table.Current("单号") & "\'" DataTables("主窗口_Table2").Load() End if 我刚才第一句是这样写的,If Tables("主窗口_Table1").Rows.Count = 0 Then
另外,你第一句手误了:if t.Table,红字"t",应改成"e",不然,新手就搞晕了,呵呵
贺老师,你这代码也没反应,呵呵 [此贴子已经被作者于2011-12-29 11:36:33编辑过]
|
| -- 作者：狐狸爸爸 -- 发布时间：2011/12/29 11:51:00 -- 呵呵，再到表一的AfterFilter事件中设置代码：
这次肯定没有问题了。 |
| -- 作者：yangming -- 发布时间：2011/12/29 12:43:00 -- 以下是引用狐狸爸爸在2011-12-29 11:51:00的发言：
呵呵，再到表一的AfterFilter事件中设置代码：
这次肯定没有问题了。 解决了,这个强行命令我没还没用过呢,呵呵,谢谢! [此贴子已经被作者于2011-12-29 12:43:03编辑过]
|