| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]选择不同记录后执行和选择不同行后执行有什么不同？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67297) |
| -- 作者：jygyyl -- 发布时间：2015/4/21 23:34:00 -- [求助]选择不同记录后执行和选择不同行后执行有什么不同？ 如题，求指教 |
| -- 作者：Bin -- 发布时间：2015/4/22 8:43:00 -- 你的选择不同记录指的是? |
| -- 作者：Bin -- 发布时间：2015/4/22 8:43:00 -- 你要执行什么? |
| -- 作者：jygyyl -- 发布时间：2015/4/22 15:34:00 -- 回复：（Bin）你要执行什么? CurrentChanged 选择不同数据行后执行，也就是Current属性发生变化后执行 在表“LNH07"的CurrentChanged中写入如下代码 If Tables("LNH07") .Current IsNot Nothing Then If Forms("LNHjf").Opened Then With DataTables("LNHjf_W01") .LoadFilter ="[GB103] = \'" & Tables("LNH07") .Current("GB103")& "\' And [GB000] = \'" & Tables("LNH07").Current("GB000") & "\'" .load() End With End If End If If Tables("LNH07") .Current IsNot Nothing Then If Forms("LNHjf").Opened Then With DataTables("LNHjf_W02") .LoadFilter ="[GB103] = \'" & Tables("LNH07") .Current("GB103")& "\' And [GB000] = \'" & Tables("LNH07").Current("GB000") & "\'" .load() End With End If End If 同时在设计窗口时在"LNHjf_W02”CurrentChanged中写入如下代码，存在当W0202表没有符合条件数据时，显示上一条（改变行之前）的数据，不能移除，求Bin老师指教！ If Tables("LNHjf_W02") .Current IsNot Nothing Then With DataTables("LNHjf_W0202") .LoadFilter ="[GB103] = \'" & Tables("LNHjf_W02") .Current("GB103")& "\' And [GS101] = \'" & Tables("LNHjf_W02").Current("GS101") & "\'" .load() End With End If |
| -- 作者：Bin -- 发布时间：2015/4/22 15:37:00 -- 出现什么问题? |
| -- 作者：jygyyl -- 发布时间：2015/4/22 15:44:00 -- 回复：（Bin）出现什么问题? 存在当W0202表没有符合条件数据时，显示上一条（改变行之前）的数据，不能移除 |
| -- 作者：Bin -- 发布时间：2015/4/22 15:45:00 -- 没看懂,你现在是不能显示? 还是要移除行? |
| -- 作者：jygyyl -- 发布时间：2015/4/22 15:53:00 -- 进一步说明 存在当W0202表没有符合条件数据时，窗口表"LNHjf_W0202依然显示上一条（改变行之前）对应的数据，不能移除（清空）原有数据 |
| -- 作者：Bin -- 发布时间：2015/4/22 15:55:00 -- 用追载 http://www.foxtable.com/help/topics/2276.htm |
| -- 作者：jygyyl -- 发布时间：2015/4/22 16:03:00 -- 还是没讲清楚 没有符合条件的数据（如：无生育史），则应移除窗口表"LNHjf_W0202”已加载的数据，问题是依然显示上一条（改变行之前）对应的数据，不是不能加载的问题 |