以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 新版2014版在win8中不能正常使用的疑问 (http://foxtable.net/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操作系统中不能运行,应该如何解决呢? |