- 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=49676)
-- 发布时间：2014/4/22 14:41:00
-- 数据源设置
此主题相关图片如下：qq图片20140422144519.jpg
此主题相关图片如下：qq图片20140422144543.jpg
-- 发布时间：2014/4/22 14:43:00
--
问题描述能否清晰,具体一点. 出现什么错误能否说一下,或者图示一下.
-- 发布时间：2014/4/22 15:48:00
--
-- 发布时间：2014/4/22 15:56:00
--
我也不懂这段代码是什么意思,是以前lsy老师写给另外一个同学的,我觉得适合我用,想拿来一用, 但是换了数据源,就提示错误了.这个是他以前的内部数据源的代码!
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:房态表.table |
-- 发布时间：2014/4/22 16:03:00
--
改一下试试：
窗口表用SQLTable或SQLQuery
不用Fill，用DataSource
或者改下代码：
s = "Select 房间号," & s.trim(",") & " from {客房信息表}"
改成
s = "Select \'\' As 房间号," & s.trim(",")
-- 发布时间：2014/4/22 16:20:00
--
哎呀,lsy老师你总算出现了,我看不明白这个代码~~改不出来~能帮我改下么~
-- 发布时间：2014/4/22 16:28:00
--
哎呀,lsy老师你总算出现了,我看不明白这个代码~~改不出来~能帮我改下么~
那个地方报错？做一个完整一点的例子上传上来。
-- 发布时间：2014/4/22 16:29:00
--
这样的显示~~
-- 发布时间：2014/4/22 17:12:00
--
找到原因了：
Dim mon As String = CLNum(Date.Today.Month)
Dim days As Integer = Date.DaysInMonth(Date.Today.Year,Date.Today.Month)
Dim s As String
For j As Integer = 1 To days
s + = "\'\' As " & mon & "月" & j & "日,"
Next
s = "Select \'\' As 房间号," & s.trim(",")
DataTables("窗口1_Table1").Fill(s,"tzzt",True)
或者：
Dim mon As String = CLNum(Date.Today.Month)
Dim days As Integer = Date.DaysInMonth(Date.Today.Year,Date.Today.Month)
Dim s As String
For j As Integer = 1 To days
s + = "\'\' As " & mon & "月" & j & "日,"
Next
s = "Select \'\' As 房间号," & s.trim(",")
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = s
Tables("窗口1_Table1").DataSource = cmd.ExecuteReader
-- 发布时间：2014/4/23 17:43:00
--
非常感谢lsy老师~数据源已经没有提示错误了!!