老师您好，把where改为and后没有报错了。统计筛选前，yptjlist有数据，比如感冒发烧的板蓝根颗粒，统计筛选后没有数据。取消筛选后系统会退出，再次进入选择统计时，则出现筛选后的yptjlist数据。筛选的代码如下，谢谢！Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AddForm("","form1","yptjlist.htm")
With wb.AddInputGroup("form1","ipg1","统计筛选")
With .AddSelect("药品类别","药品类别","|" & DataTables("药品").GetComboListString("药品类别"))
.Attribute = """
End With
With .AddSelect("药品名称","药品名称","")
End With
.AddInput("startdate","开始日期","date")
.AddInput("enddate","结束日期","date")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定","submit")
End With
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
With wb.AddPageFooter("","pf1","Copyright © 2009-2019 www.qqhealth.net")
.AddLink("亲情健康","ml.htm")
End With
e.WriteString(wb.Build)
此主题相关图片如下：筛选前.jpg
此主题相关图片如下：筛选.jpg
此主题相关图片如下：筛选后.jpg
加好友 
发短信
Post By：2019/9/29 10:45:00 [显示全部帖子]
