Foxtable(狐表)用户栏目专家坐堂 → [求助]关于filter的问题


  共有2449人关注过本帖平板打印复制链接

主题:[求助]关于filter的问题

帅哥哟,离线,有人找我吗?
liuxianjie1980
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:633 积分:4016 威望:0 精华:0 注册:2015/1/27 9:34:00
[求助]关于filter的问题  发帖心情 Post By:2015/5/22 17:28:00 [只看该作者]

参考的是教程中“查询窗口”的代码,又做了一下延伸。

 

代码如下:

 

Dim Filter As String
With e.Form.Controls("TextBox1")
    If .Value IsNot Nothing Then
        For Each dc As Col In Tables("例会档案").Cols
            Filter = "(" & dc.Name & ",'System.String') like '%" & e.Form.Controls("TextBox1").Text & "%'"
        Next
    End If
End With
With e.Form.Controls("DateTimePicker1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "召开日期 = #" & .Value & "#"
    End If
End With
If Filter > "" Then
    Tables("例会档案").Filter = Filter
    If Tables("例会档案").Rows.Count = 0 Then
        MessageBox.show("对不起,系统无相关记录!","提示")
    Else
        forms("例会档案查询窗口").open()
    End If
Else
    MessageBox.show("对不起,请输入正确的查询信息!","提示")
End If
Tables("例会档案").ApplyFilter = False

 

 

 

红色代码部分呢是希望能够模糊查找,本来是加了一个  filter as string="1=2"的,但是,又不支持日期查询了。后来删掉这个“1=2”,就写成这个样子了,这个样子肯定是不对的,

不好意思,没有学过语言,所以在部分代码的编写上有缺陷,谅解!

[此贴子已经被作者于2015/5/22 17:28:25编辑过]

 回到顶部