| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 查询替代 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=113506) |
| -- 作者：良才 -- 发布时间：2018/1/17 10:11:00 -- 查询替代 Dim SQL As String SQL = "Select 学期,班级,a.学生编号,学生姓名,性别,发票号,缴费日期,缴费项目,缴费金额,收款人 Fr om {学生基本信息} a Inner JOIN {缴退费信息} b ON a.学生编号 = b.学生编号 Where 缴费项目 = \'学费\' And 缴费状态 = \'已缴\' ORDER BY 发票号,缴费项目,班级" 要多处引用上面代码 下面是筛选收款人，打印时会打印所有收款人 t.Fill(SQL,"数据库",True) t.Filter ="收款人 = \'"& _UserName &"\'" 有类似下面代码吗? 请老师指教，谢谢！ t.Fill(SQL "Where 收款人 = \'"& _UserName &"\'","数据库",True)
|
| -- 作者：良才 -- 发布时间：2018/1/17 10:21:00 -- 谢谢 |