Dim e As RequestEventArgs = args(0) 'RequestEventArgs是HttpRequest事件的e参数类型。
Dim filter As String = ""
If e.PostValues.ContainsKey("违规事由_query") Then
filter = "违规事由 like '%" & e.PostValues("违规事由_query") & "%'"
End If
Dim val As String = DataTables("规章制度表"). GetComboListString("违规事由", filter)
e.WriteString(val)
’-----------------------------------------------------------------------------------------
Dim val As String = DataTables("规章制度表"). GetComboListString("违规事由", filter)
改成
Dim val As String = DataTables("规章制度表"). SQLGetComboListString("违规事由", filter)
把获取列表改成SQL就不行，这是何解呢？如果不想加载这么多数据，而又要用后台查询怎么搞呢？
加好友 
发短信
Post By：2022/11/1 3:20:00 [只看该作者]
