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


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

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

帅哥哟,离线,有人找我吗?
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

 

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


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


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

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

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


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

怎么写

 回到顶部
帅哥哟,离线,有人找我吗?
lrh9537
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

 回到顶部