代码:
dim flt = "业务人员='XXX' and 制单日期 >= '2024-06-23' and 制单日期 <= '2024-07-23'"With wb.AddButtonGroup("", "btg1", False)
.Add("btn1", "导出Excel", "", "report1.htm?gflt=" & flt & "")
.Add("btn2", "重新查询", "", "mofilter.htm")
End With
--------------
结果:btn1显示异常,无法传递flt的字符串,何解?
进行URL编码一下
.Add("btn1", "导出Excel", "", "report1.htm?gflt=" & UrlEncode(flt) & "")
另外不建议使用这种把查询条件放到地址的用法
1、难道更改条件还得重新改代码?
2、非常容易被sql注入攻击,有很大的安全问题
[此贴子已经被作者于2024/7/23 11:12:20编辑过]