Foxtable(狐表)用户栏目专家坐堂 → [求助]这个怎么按村查询不了,帮忙改下


  共有2984人关注过本帖树形打印复制链接

主题:[求助]这个怎么按村查询不了,帮忙改下

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


加好友 发短信
等级:小狐 帖子:380 积分:3154 威望:0 精华:0 注册:2012/11/16 12:19:00
[求助]这个怎么按村查询不了,帮忙改下  发帖心情 Post By:2014/12/11 8:39:00 [只看该作者]

If CurrentTable.DataTable.Name = "出生" Then '如果选择的主表
    CurrentTable.Cols("单位名称").Combolist = DataTables("出生").GetComboListString("单位名称")
Dim dw As WinForm.ComboBox = e.Form.Controls("单位名称")
Tables("出生").Filter= "单位名称 = '"& dw.text & "'"
End If
Dim sd As WinForm.DateTimePicker
Dim ed As WinForm.DateTimePicker
sd = e.Form.Controls("StartDate")
ed = e.Form.Controls("EndDate")

Dim Filter As String
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "子女出生日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "子女出生日期 <= #" & .Value & "#"
    End If
End With

Tables("出生").filter = Filter

 

我设置了单位,一个开始日期,一个结束日期,然后对某个单位进行查询,这个怎么按村查询不了,帮忙改下


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/12/11 8:44:00 [只看该作者]

Tables("出生").Filter= "单位名称 = '"& dw.text & "'"  这一句去掉

在最后改为

Tables("出生").filter ="单位名称 = '"& dw.text & "' and"  Filter



 回到顶部
帅哥哟,离线,有人找我吗?
lrh9537
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:380 积分:3154 威望:0 精华:0 注册:2012/11/16 12:19:00
  发帖心情 Post By:2014/12/11 8:55:00 [只看该作者]

出现个错误,请改下
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20141211085712.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/12/11 8:59:00 [只看该作者]

你没有声明 DW 前面的声明代码你不能删

 回到顶部
帅哥哟,离线,有人找我吗?
lrh9537
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:380 积分:3154 威望:0 精华:0 注册:2012/11/16 12:19:00
  发帖心情 Post By:2014/12/11 9:00:00 [只看该作者]

怎么写

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/12/11 9:01:00 [只看该作者]

你不是已经写了吗? 1楼

 回到顶部
帅哥哟,离线,有人找我吗?
lrh9537
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:380 积分:3154 威望:0 精华:0 注册:2012/11/16 12:19:00
  发帖心情 Post By:2014/12/11 9:07:00 [只看该作者]

还是这个错误,请再修改下
[此贴子已经被作者于2014-12-11 9:17:00编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/11 9:19:00 [只看该作者]

 Dim Filter As String
With e.Form.Controls("单位名称")
    If .Value IsNot Nothing Then
        Filter = "单位名称 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "子女出生日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "子女出生日期 <= #" & .Value & "#"
    End If
End With

Tables("出生").filter = Filter

 回到顶部