以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  填充数据带条件怎么加窗口控件的值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132592)

--  作者:爱相随
--  发布时间:2019/3/25 16:43:00
--  填充数据带条件怎么加窗口控件的值
老师,我有以下思路,看怎么实现:
窗口1中有两个输入日期控件,还有一个按钮。按钮的代码是根据窗口中输入日期控件的日期区间,将表A中满足条件的内容填充到表B中。这个条件怎么赋值呢??
比如我在窗口控件中输入2019-01-01和2019-03-31,点击按钮,就将表A中日期列在2019-01-01到2019-03-31期间的内空全部填充到表B中。


DataTables("科目汇总表").datarows.clear
Dim f As New Filler
f.SourceTable = DataTables("会计科目3") \'指定数据来源
f.SourceCols = "一级代码,科目名称,科目类型,科目方向" \'指定数据来源列
f.DataTable = DataTables("科目汇总表") \'指定数据接收表
f.DataCols = "一级代码,科目名称,科目类型,科目方向" \'指定数据接收列
f.ExcludeExistValue = True
此处怎条添加条件呢???
f.Fill() \'填充数据
MainTable = Tables("科目汇总表")


--  作者:有点甜
--  发布时间:2019/3/25 17:52:00
--  

加入条件,比如

 

f.filter = "日期 >= #2019-01-01# and 日期 <= #2019-03-31#"

 

合成条件参考这里 http://www.foxtable.com/webhelp/scr/1058.htm