主题：代码修改

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