看那一句代码出错,调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm
With .AddSelect("dq","地区","|" & DataTables("可用车辆").GetComboListString("地区
")) 有个多余空格
Case "getProducts.htm"
Dim vals As String
If e.PostValues.Count = 1 Then
msgbox(e.PostValues("dq")) ‘看看传入什么值
vals = "|" & DataTables("可用车辆").GetComboListString("网点","地区='" & e.PostValues("dq") & "'")
ElseIf e.PostValues.Count = 2 Then
Dim Filter As String = "地区='" & e.PostValues("dq") & "' And 网点='" & e.PostValues("wd") & "'"
msgbox(Filter ) ‘看看传入什么值
vals = "|" & DataTables("可用车辆").GetComboListString("车牌", Filter)
ElseIf e.PostValues.Count = 3 Then
Dim Filter1 As String = "网点='" & e.PostValues("wd") & "' And 车牌='" & e.PostValues("cp") & "'"
msgbox(Filter1 ) ‘看看传入什么值
vals = "|" & DataTables("可用车辆").GetComboListString("车架", Filter1)
End If
e.WriteString(vals)