以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  新版2014版在win8中不能正常使用的疑问  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=60671)

--  作者:liuyhsea
--  发布时间:2014/11/28 20:43:00
--  新版2014版在win8中不能正常使用的疑问
我在xp系统中开发的生产管理系统,一直运行正常,但今天我将电脑的操作系统升级到win8后,发现日期控件不能正常使用,主要表现是:我设计的是在窗口中根据日期控件中选择的日期值,去"倒班表"中查询某个班组某个日期应上的班次,然后将找到的班次放在窗口中的组合控件中,运行时,提示:"未认识的datetime格式,从11之后出现无法识别的字符",不知道是怎么回事?
--  作者:y2287958
--  发布时间:2014/11/28 20:49:00
--  
两个系统日期格式不同
--  作者:liuyhsea
--  发布时间:2014/11/28 21:05:00
--  
 Dim rq As WinForm.DateTimePicker = e.Form.Controls("日期")
    Dim bc As WinForm.ComboBox = e.Form.Controls("班次")
    Dim bz As WinForm.ComboBox = e.Form.Controls("班组")
    rq.value = Date.Today
    bz.value = "一班"
    Dim dnr As DataRow
    Dim dns As DataRow
    Dim nkr As Date = rq.value
    Dim nks As Date = nkr.AddDays(-1)
    Dim nkb As String = bz.value
    If nkb = "台包班" Then
        bc.value = "白班1"
    Else
        If nkb = "综合班" Or nkb = "部门" Then
            bc.value = "常白班"
        Else
            dnr = DataTables("倒班表").Find("日期 = #"& nkr &"# And 班组 = \'"& nkb &"\'","日期",0)
            dns = DataTables("倒班表").Find("日期 = #"& nks &"# And 班组 = \'"& nkb &"\'","日期",0)
这是我的程序代码,主要是在最后两行的查找中出现的问题,但我在WIN7中是能正常运行的,只有在WIN8.1操作系统中不能运行,应该如何解决呢?