- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] ODBC驱动问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=27319)
-- 发布时间：2012/12/28 14:23:00
-- [求助] ODBC驱动问题
此主题相关图片如下：无标题.png
现在我们在调试过程中所下列问题：
1.如上图，xp系统会报这样的错。原因不清楚！ NetFx20SP2_x86 这个中间件。
2.不同的系统连接数据库的ODBC不一样，为什么foxtable 外部数据源没有sql server驱动？
-- 发布时间：2012/12/28 15:15:00
--
呃，这个错误应该是你代码的错误吧？根据第一行的提示，到具体的控件事件里查看代码。
应该是截取字符串出现的错误。SubString
-- 发布时间：2012/12/28 15:22:00
--
同样的代码在别的机器上不会报这个错。
-- 发布时间：2012/12/28 15:23:00
--
问题就在这里
-- 发布时间：2012/12/28 15:27:00
--
\'Forms("Form录入日程").Open()
\'删除记录数
\'DataTables("sys个人日程周表").DeleteFor(Tables("sys个人日程周表").Filter)
DataTables("sys个人日程周表").DataRows.Clear
Dim w,y,m,d As Integer
Dim week As String
Dim str,midday,midmonth As String
Dim count0,count1,count2,count3,count4,count5,count6 As Integer
Dim dr0,dr1,dr2,dr3,dr4,dr5,dr6 As DataRow
Dim dt0,dt1,dt2,dt3,dt4,dt5,dt6 As DataTable
str = midlstdatememo(0)
y = str.SubString(0,4)
m = str.SubString(5,2)
d = str.SubString(8,2)
If m<10 Then
midm +Cstr(m)
Else
midmonth = m
End If
If d < 10 Then
midday = "0"+Cstr(d)
Else
midday = d
End If
\'MessageBox.Show("#"+" " & m & " "+"/"+" " & midday & " "+"/"+" " & y & " "+"#")
Dim strmdiday As String
-- 发布时间：2012/12/28 15:28:00
--
我想问的是xp系统少了什么文件？
-- 发布时间：2012/12/28 15:29:00
--
str.SubString(0,4) 这样用应该是没错！为什么有的机器会报错。
-- 发布时间：2012/12/28 15:32:00
--
Date.Today.AddDays(1) 是调用xp系统的哪个文件?
-- 发布时间：2012/12/28 15:37:00
--
这几句代码的问题。贴出midlstdatememo的代码
str = midlstdatememo(0)
y = str.SubString(0,4)
m = str.SubString(5,2)
d = str.SubString(8,2)
要考虑到多种系统下日期的兼容性。
http://www.foxtable.com/help/topics/1285.htm