| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 代码修改 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52072) |
| -- 作者：jygyyl -- 发布时间：2014/6/8 17:53:00 -- 代码修改 Dim jb As New SQLJoinTableBuilder("详细清单","YWBXBBXR") jb.C jb.AddTable("YWBXBBXR","保单编号","YWBXTBR","保单编号") jb.AddCols("社区名称","{YWBXTBR}.保单编号","{YWBXTBR}.GB001","{YWBXTBR}.GB011","GS923","投保日期","投保份额","财政补贴","约定生效日期","收费日期","{YWBXBBXR}.GB001","HGB002","{YWBXBBXR}.GB011","GB012","HGB021","NL") jb.Filter = "收费日期 = \'2014-06-04\'" jb.Filter = "社区名称 = \'镜铁区文殊镇石桥村\'" jb.Order = "保单编号" jb.Build() MainTable = Tables("详细清单") 求教老师如何修改上述代码： 1、收费日期修改为 当前系统日期 2、社区名称修改为 当前用户
|
| -- 作者：有点甜 -- 发布时间：2014/6/8 17:55:00 -- jb.Filter = "收费日期 = \'" & Date.Today & "\' and 社区名称 = \'" & user.Name & "\'" |
| -- 作者：jygyyl -- 发布时间：2014/6/8 18:46:00 -- 谢谢，生成查询表搞定！ 谢谢，生成查询表搞定！有新想法，如何像查询表生成器那样，点击预览按钮在一个新窗口中生成查询表？还请不吝赐教！谢谢！ |
| -- 作者：有点甜 -- 发布时间：2014/6/8 19:38:00 -- 以下是引用jygyyl在2014-6-8 18:46:00的发言：
谢谢，生成查询表搞定！有新想法，如何像查询表生成器那样，点击预览按钮在一个新窗口中生成查询表？还请不吝赐教！谢谢！
做一个窗口，放一个table控件，然后写代码
Forms("窗口1").Open Forms("窗口1").Controls("Table1").Table.DataSource = jb.BuildDataSource |