- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]很简的代码，怎么会出现这个错误呢？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=98452)
-- 发布时间：2017/3/30 10:00:00
-- [求助]很简的代码，怎么会出现这个错误呢？
此主题相关图片如下：qq截图20170330095743.jpg
以上是错误提示！！
按钮代码如下：实现功能：就是想筛选某一时段内的数据，出现上述错误！求解！！！！
Dim D1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker_start")
Dim D2 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker_end")
\'Dim dt1,dt2 As Date
\'dt1 = d1.Value
\'dt2 = d2.Value
\'Dim Filter As String = "停发日期 >= #" & dt1 & "# And 停发日期 <= #" & dt2 & "#"
Tables("减员表_Table减员表").Filter = "停发日期 >= #" & d1.value & "#"
[此贴子已经被作者于2017/3/30 10:01:31编辑过]
-- 发布时间：2017/3/30 10:47:00
--
afterOpenProject事件，短日期
Dim cd As System.Globalization.DateTimeFormatInfo = System.Globalization.DateTimeFormatInfo.CurrentInfo
cd.ShortDatePattern = "yyyy年MM月dd日"
Dim DateInfo As System.Reflection.FieldInfo = cd.Gettype.GetField("generalLongTimePattern", System.Reflection.BindingFlags.NonPublic Or System.Reflection.BindingFlags.Instance)
If DateInfo IsNot Nothing Then
DateInfo.SetValue(cd, "yyyy-MM-dd HH:mm:ss")
End If
-- 发布时间：2017/3/30 10:52:00
--
灰常感谢，问题解决了！