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、社区名称修改为 当前用户