主题：combox的过滤条件问题

 过滤条件不能写sql语句。你用代码设置吧

 

 http://www.foxtable.com/help/topics/1523.htm

 

For Each dt As DataTable In DataTables
    dt.LoadFilter = "" '一定要清除加载条件
    dt.LoadTop = 20
    dt.LoadPage = 0
    dt.Load()
Next

 参考

 

http://www.foxtable.com/help/topics/2692.htm

 

 参考6楼，表名你改成变量不就行了。

 

如果是字符型，那么它们的长度必须一样才能正确排序的。

 

Tables("表A").Sort = "录入时间 desc"

Dim auditopinions As List(Of String)
For m As Integer = 0 To strsn.Length - 1
    auditopinions = DataTables("audit").GetValues("auditopinion"," sn= '" & strsn(m) & "'","auditdate desc")
   
    If auditopinions.Contains("") = False Then
        MessageBox.Show("已经审核的数据不允许重新审核,请重新选择.", "提示",  MessageBoxButtons.OK ,MessageBoxIcon.Information)
        Return
    End If
   
Next

 测试没问题，可以判断是否包含空值。

 

 是不是你逻辑有问题啊，上传例子说明你要做什么。

直接改成

 

Dim auditopinions As List(Of String)

auditopinions = DataTables("audit").GetValues("auditopinion","sn in ('" & bh.replace(",", "','") & "')","auditdate desc")
If auditopinions.Contains("") = False Then
    MessageBox.Show("已经审核的数据不允许重新审核,请重新选择.", "提示",  MessageBoxButtons.OK ,MessageBoxIcon.Information)
    Return
End If

 你那个是一行一行循环，只要有一行不满足，就弹出和返回了。而你需要的是比较全部，只要有一行是空的，就满足。

 那就是你原来的代码那样处理啊。