这些是网页端:
Dim ipg1 As ExWeUI.ExInputGroup = ExWeUI.WebUI.AddInputGroup("", "ipg1")
' Dim Inp As ExWeUI.ExQuerySelect = ipg.AddQuerySelect("国家", "国家", "|" & DataTables("列表项目").GetComboListString("国家"))
Dim Inp1 As ExWeUI.ExQuerySelect = ipg1.AddQuerySelect("flag", "船旗国flag")
inp1.url = "getSelect1"
'Inp.value = "中国"
Inp1.Placeholder = "请选择船旗国"
wb.InsertHTML("form1", ipg1.BuildHtml)
' .AddInput("country", "贸易国别country", "text")
Dim ipg As ExWeUI.ExInputGroup = ExWeUI.WebUI.AddInputGroup("", "ipg1")
' Dim Inp As ExWeUI.ExQuerySelect = ipg.AddQuerySelect("国家", "国家", "|" & DataTables("列表项目").GetComboListString("国家"))
Dim Inp As ExWeUI.ExQuerySelect = ipg.AddQuerySelect("country", "贸易国别country")
inp.url = "getSelect1"
'Inp.value = "中国"
Inp.Placeholder = "请选择贸易国"
wb.InsertHTML("form1", ipg.BuildHtml)
这些是getselect1函数:
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim filter As String = ""
If e.PostValues.ContainsKey("country_query") Then
filter = "国家 like '%" & e.PostValues("country_query") & "%'"
e.WriteString(DataTables("列表项目").GetComboListString("国家", filter))
ElseIf e.PostValues.ContainsKey("flag_query") Then
filter = "国家 like '%" & e.PostValues("flag_query") & "%'"
e.WriteString(DataTables("列表项目").GetComboListString("国家", filter))
End If
这些是报错信息,在网页输入国籍时候:
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.8.18.1
错误所在事件:自定义函数,getSelect1
详细错误信息:
调用的目标发生了异常。
表达式包含无效的字符串常量: '。