主题：求房态图的做法

求房态图的做法，如下图。

. 客户信息表和排房表关联。

 

主要问题：

1. 每行的标头 是根据客房信息表的房间号列出来的。即便是全部空置，也要把房间号列出来

2. 不知道怎样得到房态图，请高手指明方向。

 

此主题相关图片如下：qq截图20130809083135.png

问题是怎么在指定行和列得到查询数据？

 

拿房态图（表）来说， 行是房间号， 列是日期，  即便没有数据， 表格内是空白的，也要有这个空置的房态图（表）， 这个我就不会做。

 

 

或者这样理解， 画个固定的表格，根据行和列的内容 查询出相应数据，然后填写在行列交汇处？  比如 101房间在8月3日的预定客人姓名？

没有数据的行列也需要显示出来。  使用交叉统计只能列出来有数据的行列。

上传了个例子，

根据客房信息表，客户信息表，客户行程表（日程表），

 

怎么得到房态表？  行是房间号，列是日期，

 

 
此主题相关图片如下：qq截图20130809083135.png

 

 

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

点击浏览该文件:客房管理系统.rar

 

 

 

 

 

可以得到 行是房间号 列是日期的表格，还需要在表格中填入， 某房间在某天是哪个客人预订的以及入住状态

客户信息表和客户行程表是通过客户ID关联的。

 

客户行程表中记录的是客户ID，日期，房间号。 同一个客户ID在这个行程表中有多条记录，比如在8月1日住201,8月2日还是201,8月3日调房到202了。

 

我装了个试用版可以打开开发版文件了。

 

 

此主题相关图片如下：客房信息表.jpg


此主题相关图片如下：客户信息表.jpg


此主题相关图片如下：客户行程表.jpg

试用版的，请帮忙看看。

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

点击浏览该文件:客房管理房态.rar

 

 

 

不同的客人住到同一个房间的问题，

这个也是后面要解决的问题， 目前连怎么查询得到房态表都还不会呢。

 

多谢帮助,而且是如此快速,

我先研究研究读懂代码,再扩展修改我要的.

出现错误,我估计是和使用外部MSSQL作为数据源, 语法上出现错误

 

怀疑是  这段代码里的, 下划线部分需要修改.请高手明示.

 

 

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)

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

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