我的项目在窗口启动后事件中写入加载的行是姓名列是当前用户名的行信息(这个问题实现)

此主题相关图片如下：qq截图20130312131015.png

再者我想在两个日期控件填入日期值时，对当前用户名的行信息进行时段的筛选

代码为：
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 & "\'"
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) & "#"
    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) & "#"
    End If
End If

现在问题是填入日期后没有任何的筛选动作（注：代码写在日期输入框事件：ValueChanged）

第一行加：

MessageBox.show(“我执行了”)

最后一行加：

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

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

那就修改自己代码。

这个例子很好，多看看：

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

多看帮助才是正道。

看了好久，搞不定，有那么一点点急，救狐爸帮处理一下，万分感激

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

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

你要先理清楚关系，并清晰表述出来，别人才可能帮得到你。

多谢狐爸，再次啃帮助后发现，问题解决了