主题：数据源设置

问题描述能否清晰,具体一点.   出现什么错误能否说一下,或者图示一下.

我也不懂这段代码是什么意思,是以前lsy老师写给另外一个同学的,我觉得适合我用,想拿来一用, 但是换了数据源,就提示错误了.这个是他以前的内部数据源的代码!

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:房态表.table

 

改一下试试：

窗口表用SQLTable或SQLQuery

不用Fill，用DataSource

 

或者改下代码：

 

s = "Select 房间号," & s.trim(",") & " from {客房信息表}"

 

改成

s = "Select '' As 房间号," & s.trim(",") 

哎呀,lsy老师你总算出现了,我看不明白这个代码~~改不出来~能帮我改下么~

 

那个地方报错？做一个完整一点的例子上传上来。

这样的显示~~

找到原因了：

 

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

非常感谢lsy老师~数据源已经没有提示错误了!!