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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于select case

共有3672人关注过本帖树形打印复制链接主题：关于select case

lk15502

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

加好友

发短信

等级：三尾狐帖子：705 积分：4897 威望：0 精华：0 注册：2016/5/17 12:03:00

关于select case 发帖心情

Post By：2016/9/1 7:52:00 [只看该作者]

Dim Year As Integer = Date.Today.Year

Dim Month As Integer = Date.Today.Month

Dim day As Integer = Date.Today.day

Select Case month

Case month = 1

Dim Fday As Date = New Date(Year,1,1) '本一年的1月1日

Dim Lday As Date = New Date(Year,1,25) '本年的1月的25日

Case month = 12

Dim Fday As Date = New Date(Year,11,26) '上个月26日

Dim Lday As Date = New Date(Year,12,31) '本月的31日

Case Else

Dim Month1 As Integer = (Date.Today.Month - 1)

Dim Fday As Date = New Date(Year,Month1,26) '上个月26日&

Dim Lday As Date = New Date(Year,Month,25) '本月的25日

老师上面的代码case month = 1是不是要改成case 1 还是都可以

2900819580

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

加好友

发短信

等级：六尾狐帖子：1341 积分：9755 威望：0 精华：0 注册：2015/6/30 8:46:00

Post By：2016/9/1 8:43:00 [只看该作者]

对

有点蓝

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

加好友

发短信

等级：超级版主帖子：109477 积分：557047 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/9/1 9:05:00 [只看该作者]

输出结果看看就知道了

lk15502

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

加好友

发短信

等级：三尾狐帖子：705 积分：4897 威望：0 精华：0 注册：2016/5/17 12:03:00

Post By：2016/9/1 9:12:00 [只看该作者]

比如现在是1月份，应该是Case month = 1 还是 case 1

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47477 积分：251256 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2016/9/1 9:19:00 [只看该作者]

case 1

http://www.foxtable.com/webhelp/scr/0224.htm

lk15502

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

加好友

发短信

等级：三尾狐帖子：705 积分：4897 威望：0 精华：0 注册：2016/5/17 12:03:00

Post By：2016/9/1 9:20:00 [只看该作者]

请问，这句合成表达式有什么问题吗？

bd3.filter = "入库类型 = '对外加工入库'and 出库类型 = '对外加工回修' And 出库日期 >= '" & fday & "' and 出库日期 <= '" & lday & "'"

有点蓝

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

加好友

发短信

等级：超级版主帖子：109477 积分：557047 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/9/1 9:22:00 [只看该作者]

如果是内部表或者Access，改为

bd3.filter = "入库类型 = '对外加工入库' and 出库类型 = '对外加工回修' And 出库日期 >= #" & fday & "# and 出库日期 <= #" & lday & "#"

lk15502

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

加好友

发短信

等级：三尾狐帖子：705 积分：4897 威望：0 精华：0 注册：2016/5/17 12:03:00

Post By：2016/9/1 9:58:00 [只看该作者]

sql数据源

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47477 积分：251256 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2016/9/1 10:01:00 [只看该作者]

如果是筛选，那么也应该用#，如果是加载，应该是'

另注意and前后要有空格。

建议提问的时候，一次将问题描述清楚，说明设计目的，然后贴出代码，以及具体的错误提示。

你提供的越多，就越能更快地解决问题。

[此贴子已经被作者于2016/9/1 10:02:32编辑过]

lk15502

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

加好友

发短信

等级：三尾狐帖子：705 积分：4897 威望：0 精华：0 注册：2016/5/17 12:03:00

Post By：2016/9/1 12:05:00 [只看该作者]

下面是部分代码，case 1 和 case 12 都没有执行，有什么问题吗?

Dim month As Integer = e.Form.Controls("对外加工月份选择").value

Dim Year As Integer = Date.Today.Year

Dim day As Integer = Date.Today.day

Select Case month

Case 1

Dim Fday As Date = New Date(Year,1,1) '本一年的1月1日

Dim Lday As Date = New Date(Year,1,25) '本年的1月的25日

Case 12

Dim Fday As Date = New Date(Year,11,26) '上个月26日

Dim Lday As Date = New Date(Year,12,31) '本月的31日

Case Else

Dim Fday As Date = New Date(Year,(Month - 1),26) '上个月26日&

Dim Lday As Date = New Date(Year,Month,25) '本月的25日

后面的代码字数太多没法上传，是在入库表，库存表，出库表三个表筛选组合成一股统计表

下一主题 >> << 上一主题

总数 33 1 2 3 4 下一页

主题：关于select case