主题：求房态图的做法

tables("房态图_Table1").datatables

楼主请看仔细喽，你的窗口名称是什么？我的代码是“房态表”，你展现的是“房态图”，表名和窗口名要一致。

Dim mon As Integer = 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(",") & " from {客房信息表}"
Dim dt As DataTable = DataTables("房态表_Table1")
dt.Fill(s,True)

If dt.DataRows.Count < DataTables("客房信息表").DataRows.Count Then
    dt.AddNew(DataTables("客房信息表").DataRows.Count - dt.DataRows.Count)
End If
For i As Integer = 0 To DataTables("客房信息表").DataRows.Count - 1
    For j As Integer = 0 To dt.DataRows.Count - 1
        If i = j Then
            dt.DataRows(j)("房间号") = DataTables("客房信息表").DataRows(i)("房间号")
        End If
    Next
Next
For Each ftdr As DataRow In dt.DataRows
    For Each ftdc As DataCol In dt.DataCols
        For Each xcdr As DataRow In DataTables("zclxingcheng").DataRows
            If xcdr("日期").Year = Date.Today.Year AndAlso xcdr("日期").Month & "月" & xcdr("日期").Day & "日" = ftdc.Name AndAlso xcdr("房间号") = ftdr("房间号") Then
                Dim dr As DataRow = DataTables("userb").Find("ID = '" & xcdr("客户ID") & "'")
                If dr IsNot Nothing
                    ftdr(ftdc.Name) + = dr("name") & ","
                End If
            End If
        Next
        ftdr(ftdc.Name) = ftdr(ftdc.Name).Trim(",")
    Next
Next
'e.Form.Text = Date.Today.Year & "年" & Date.Today.Month & "月房态表"

 

 

 

代码运行错误，提示的界面如下

 

 

此主题相关图片如下：111.jpg


此主题相关图片如下：222.jpg


此主题相关图片如下：333.jpg

我估计是这个select语句出问题了，可惜看不出是哪的问题

 

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

 

 

 

我使用的是远程mssql数据库，语法上和本地FOXTABLE的内部数据源估计有区别吧？

你取列名，好随意，一张表上是房间号，另一张表上是房号，仔细核对表名、列名、窗口名、控件名。

不像是SQL语法的差异造成的。

lsy批评的对，我这个毛病是不好，取名太随意。

 

不过，你发给我的例子运行正常， 我使用远程数据库的数据表后， 替换代码，就出现错误提示，所以，我考虑应该是select 内部数据源和外部数据源的语法应该是有区别的。

这是有可能的。

这里可能错了，你如果没有事先指定数据源的话，应该是dt.Fill(s,数据源,True)

火眼金睛，我做的是内部数据源，不用指定，楼主改成外部，就要指定了。