- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 命令窗口执行正确，到窗口就执行错误~~ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76895)
-- 发布时间：2015/11/7 9:39:00
-- 命令窗口执行正确，到窗口就执行错误~~
这句代码在命令窗口执行正确，到窗口就执行错误~~
此主题相关图片如下：qq图片20151107093201.png
Dim rq As WinForm.DateTimePicker = e.Form.Controls("开始日期")
rq.value = Date.Today()
Dim dt As String
\'dt = ("[开始] >= #2015-11-05# And [完成] <= #2015-11-05#")
\'dt = ("[开始] >= #" & rp.Value & "#" & " And [完成] <= #" & rp.Value & "#")
\'MessageBox.Show(dt)
If rq.value IsNot Nothing Then
If dt >"" Then
Tables("进度计划表").Filter = "[开始] <= #" & rp.value & "#" & " And [完成] >= # " & rp.value & "#"
End If
End If
-- 发布时间：2015/11/7 9:55:00
--
Dim rq As --------- rq ？
rp.value ---------rp ？
到底是q还是p
-- 发布时间：2015/11/8 11:19:00
--
Dim rq As WinForm.DateTimePicker = e.Form.Controls("开始日期")
rq.value = Date.Today()
Dim dt As String
\'dt = ("[开始] >= #2015-11-05# And [完成] <= #2015-11-05#")
\'dt = ("[开始] >= #" & rq.Value & "#" & " And [完成] <= #" & rq.Value & "#")
\'MessageBox.Show(dt)
If rq.value IsNot Nothing Then
If dt >"" Then
Tables("进度计划表").Filter = "[开始] <= #" & rq.value & "#" & " And [完成] >= # " & rq.value & "#"
End If
End If