以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  逻辑列参与筛选显示错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187254)

--  作者:lianghanyu
--  发布时间:2023/7/3 20:05:00
--  逻辑列参与筛选显示错误

图片点击可在新窗口打开查看此主题相关图片如下:snipaste_2023-07-03_20-03-07.jpg
图片点击可在新窗口打开查看
代码如下:

Dim filter As String
Dim ck As WinForm.CheckBox = e.Form.Controls("传输完成")
Dim sts() As String = {"项目编号", "模具编号", "年份", "主目录"}
For Each st As String In sts
    Dim val As String = e.Form.Controls(st).text
    If val > "" Then
        val = val.Replace("*", "[*]")
        If filter = "" Then
            filter = st & " like \'*" & val & "*\' "
            
        Else
            filter = filter & " and " & st & " like \'*" & val & "*\'"
            
        End If
    End If
Next

If ck.Checked = True Then
    If filter IsNot Nothing Then
        
        filter = filter & " And 传输完成 = 1"
        
    End If
    
    
End If 

Tables("图档传输").Filter = filter 

图片点击可在新窗口打开查看此主题相关图片如下:snipaste_2023-07-03_20-03-15.jpg
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2023/7/3 20:17:00
--  
删除项目里的bin目录,重启项目试试
--  作者:lianghanyu
--  发布时间:2023/7/3 20:22:00
--  
还是不行,我用的数据表是狐表的内部数据源,有没有影响 
--  作者:lianghanyu
--  发布时间:2023/7/3 20:33:00
--  
上传文件
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:搬运工.zip


--  作者:有点蓝
--  发布时间:2023/7/3 20:47:00
--  
很多时候都不舍得把代码给完整,问题往往出现在你们认为没有问题的代码里。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:搬运工.zip