Foxtable(狐表) → 用户栏目 → 专家坐堂 → 时间段筛选问题


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

主题：时间段筛选问题
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/3/12 13:28:00 [显示全部帖子]

第一行加：

MessageBox.show(“我执行了”)

 

最后一行加：

MessageBo.Show(Tables("出差申请表").Filter)

 

看看程序是否执行了，是否合成了筛选表达式。

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/3/12 13:42:00 [显示全部帖子]

Dim bm As WinForm.ComboBox = e.Form.Controls("部门")
Dim xm As WinForm.ComboBox = e.Form.Controls("姓名")
Dim sqsj As WinForm.DateTimePicker = e.Form.Controls("申请日期")
Dim jj As WinForm.ComboBox = e.Form.Controls("出差需求方")
Dim s1 As WinForm.DateTimePicker = e.Form.Controls("申请日期止")
If bm.Text = "" Then
    Tables("出差申请表").Filter="[申请人姓名] = '" & user.Name & "'"
    messagebox.show("部门为空")
Else
    Dim dr As DataRow = DataTables("出差申请表").find("[申请人姓名] = '" & user.Name & "'")
    If dr IsNot Nothing Then
        Tables("出差申请表").Filter ="[申请人姓名] = '" & user.Name & "'And 申请日期 > #" & IIF(sqsj.Text = "", "1/1/1900",  sqsj.Text) & "#'And 申请日期 < #" & IIF(s1.Text = "", "1/1/1900",  s1.Text) & "#"
        MessageBox.show("找到符合条件的行")
    Else
        Tables("出差申请表").Filter="部门  Like '*" & bm.Text & "*' and 需求出差方 like '*" & jj.text & "*' And 申请人姓名 Like '*" & xm.Text & "*' And 申请日期 > #" & IIF(sqsj.Text = "", "1/1/1900",  sqsj.Text) & "#'And 申请日期 < #" & IIF(s1.Text = "", "1/1/1900",  s1.Text) & "#"
        MessageBox.show("没有找到符合条件的行")
    End If
    MessageBox .Show("合成的条件:" & Tables("出差申请表").Filter)
End If

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/3/12 13:47:00 [显示全部帖子]

那就修改自己代码。

这个例子很好，多看看：

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

 

多看帮助才是正道。
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/3/12 15:27:00 [显示全部帖子]

我也不知道你要干什么，怎么帮你呢？

我们只能告诉你为什么这段代码没有执行。

 

你要先理清楚关系，并清晰表述出来，别人才可能帮得到你。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04004 秒, 5 次数据查询