这些是网页端：

  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
详细错误信息：
调用的目标发生了异常。
表达式包含无效的字符串常量: \'。