我都无语了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 我都无语了

共有4882人关注过本帖树形打印复制链接主题：我都无语了

y2287958

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐神帖子：4633 积分：33809 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2014/12/2 18:37:00 [显示全部帖子]

没有登录密码

y2287958

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐神帖子：4633 积分：33809 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2014/12/2 18:54:00 [显示全部帖子]

俺这里测试未发现异常

你是什么情况出现死机的？

y2287958

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐神帖子：4633 积分：33809 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2014/12/2 19:06:00 [显示全部帖子]

你用下面这个代码试试：

If e.Sender.Text.Contains("年") AndAlso e.Sender.Text.Contains("月")

Dim y As Integer = e.Sender.Text.Split("年")(0)

Dim m As Integer = e.Sender.Text.Split("年")(1).Split("月")(0)

Dim d1 As Date = new Date(y,m,1)

Dim d2 As Date = new Date(y,m,Date.DaysInMonth(y,m))

Tables("日新车队").Filter = "二保日期 >= #" & d1 & "# and 二保日期 <= #" & d2 & "#"

End If

主题：我都无语了