Dim txt As String = e.form.Controls("textbox1").Text
Dim tbl As Table = Tables("小学明细_table1")
Dim djxss As List(Of String) = DataTables("考试名称").GetValues("考试名称","显示为等级=0")
Dim flt As String
If txt = "" Then
tbl.Filter ="1=2"
Else
If js.Contains("区业务主管")=False
txt = "'%" & txt & "%'"
flt = "姓名 Like " & txt & " And 单位名称 = '"& _usergroup &"' and 学段 ='小学'"
Else
txt = "'%" & txt & "%'"
flt = "姓名 Like " & txt & " And 学段 ='小学' and 考试名称 in (" & String.Join(",",djxss.ToArray) & ")"
End If
End If
DataTables("成绩").loadfilter = flt
DataTables("成绩").load
如终提示 "秋10月考“ 附近有语法错误，现在查了成绩表中没有这个考试名称，考试名称表也没有这个值，messagebox.show出来看条件也没问题，请问哪里有错
加好友 
发短信
Post By：2018/7/2 14:03:00 [显示全部帖子]
