主题：数据源设置

改一下试试：

窗口表用SQLTable或SQLQuery

不用Fill，用DataSource

 

或者改下代码：

 

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

 

改成

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

找到原因了：

 

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

Dim mon As String = MonthName(Date.Today.Month) '或者 Dim mon As String = Format((Date.Today,"MMM")
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)