| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 关于select case (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89900) |
| -- 作者：lk15502 -- 发布时间：2016/9/1 7:52:00 -- 关于select case 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 -- 发布时间：2016/9/1 8:43:00 -- 对 |
| -- 作者：有点蓝 -- 发布时间：2016/9/1 9:05:00 -- 输出结果看看就知道了 |
| -- 作者：lk15502 -- 发布时间：2016/9/1 9:12:00 -- 比如现在是1月份，应该是Case month = 1 还是 case 1 |
| -- 作者：狐狸爸爸 -- 发布时间：2016/9/1 9:19:00 -- case 1
http://www.foxtable.com/webhelp/scr/0224.htm
|
| -- 作者：lk15502 -- 发布时间：2016/9/1 9:20:00 -- 请问，这句合成表达式有什么问题吗？ bd3.filter = "入库类型 = \'对外加工入库\'and 出库类型 = \'对外加工回修\' And 出库日期 >= \'" & fday & "\' and 出库日期 <= \'" & lday & "\'" |
| -- 作者：有点蓝 -- 发布时间：2016/9/1 9:22:00 -- 如果是内部表或者Access，改为 bd3.filter = "入库类型 = \'对外加工入库\' and 出库类型 = \'对外加工回修\' And 出库日期 >= #" & fday & "# and 出库日期 <= #" & lday & "#"
|
| -- 作者：lk15502 -- 发布时间：2016/9/1 9:58:00 -- sql数据源 |
| -- 作者：狐狸爸爸 -- 发布时间：2016/9/1 10:01:00 -- 如果是筛选，那么也应该用#，如果是加载，应该是\'
另注意and前后要有空格。
建议提问的时候，一次将问题描述清楚，说明设计目的，然后贴出代码，以及具体的错误提示。
你提供的越多，就越能更快地解决问题。 [此贴子已经被作者于2016/9/1 10:02:32编辑过]
|
| -- 作者：lk15502 -- 发布时间：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日 后面的代码字数太多没法上传，是在入库表，库存表，出库表三个表筛选组合成一股统计表 |