主题：如何动态绘制房态表?

	5月2日	5月3日	5月4日	5月5日	5月6日	5月7日
标间101	张三	张三
标间102	李四
标间103
标间104
标间105
标间106
标间107
标间108
标间109
标间110

 

如何动态绘制房态表?    行头是从客房信息表的房间号里取的,  列头是自定义的日期,    表格中显示客人姓名,   交叉表格的颜色表示客房状态(空净房\脏房\入住\预订). 

 

请高手指点思路.

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=38859&authorid=0&page=0&star=1

 

用这个方法做出来的房态图速度十分慢,估计和代码运行效率有关. 

 

有没有更简单的方法?

你换个实现的方式更加好, 不然就只能这样了

 

这个帖子里 耗费时间的代码在下面这段:

 

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 =  e.Form.Controls("DateTimePicker1").value.Year AndAlso xcdr("日期").Month & "月" & xcdr("日期").Day & "日" = ftdc.Name AndAlso xcdr("房间号").Contains(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

 

如何优化代码?

For Each xcdr As DataRow In DataTables("zclxingcheng").Select("")

改了,速度依然没有改善,   

 

用的是远程mssql, 估计和网速有很大关系,但即便网络畅通时,也能明显感到速度很慢,慢到不想使用房态表的地步.

你做个简单的例子，用一些虚假的测试数据发上来，看看是否有优化的方法，一般不应该很慢。

 

和数据量有关，上面的代码和你使用mssql无关。

 

做一个很慢的例子发上来，看是否有优化的可能。

和数据量有关, 我数据库里总共有16000条数据, 我之前筛选的是加载2013年7月之后的数据, 把加载限制日期在2014年4月28日之后, 加载的数据少了很多，速度明显好转.

 

应该加一句代码,只在指定日期内进行查找, 怎么写呢?

 

 

For Each ftdr As DataRow In dt.DataRows
    For Each ftdc As DataCol In dt.DataCols
      For Each xcdr As DataRow In DataTables("zclxingcheng").Select("")   ' 这里需要加限制范围的代码,  限制在 数据表zclxingcheng里的字段 "日期" 在某个范围内的记录进行查找.

            If xcdr("日期").Year =  e.Form.Controls("DateTimePicker1").value.Year AndAlso xcdr("日期").Month & "月" & xcdr("日期").Day & "日" = ftdc.Name AndAlso xcdr("房间号").Contains(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