错！T版经常给出代码的，我也是受益者之一。
你要有明确的需求，且这个需求应该是你动过脑筋仍无法解决的，T版通常都会出来相助的。

改变颜色是很容易的，但现在要解决房屋状态的判断问题，并非你所想的那么简单：你要求判断的是常住户、暂住户、无人住、空房四种情形，这需要一个字段进行标记，你的数据表中有常住和空两种情形，不知道暂住和出租有什么不同（好像没看见暂住户），其余的没看见。然而现在主要的问题还不在这里，而是正如你看到我贴的图，有些楼层出现了空缺，即表明你没有记录某个房间的信息（我不知道你怎么考虑户主和出租户之间的问题），要反映无人住和空房信息，正是我一直说的数据记录要占空位。所以，最好修正一下数据再继续下去。

表中[户口类型]字段中只有<常住>和<暂住>(暂住即出租房)两种类型。
估计楼主晚上才能回你话

谢谢TonyDeng老师，您所问的问题正如sdta老师所讲的，在表中[户口类型]字段中有<常住>和<暂住>记录,出现的空缺，表明无记录（无人住）。户主和租户在字段“户主关系”中反映出来的，比如户主人口少房间较多，他可以腾出一间租给别人住，租的人就成了“租户”。不知我说明白了吗？谢谢！

话说我上面的程序你能运用么？看懂多少了？消化得下，实际中用得着，再把后面的给你吧。

[ 本帖最后由 TonyDeng 于 2014-8-26 23:00 编辑 ]

    非常感谢TonyDeng老师帮了我这么大的忙，感激之情无法用语言表达。老师帮我写的代码我已经下载下来，抽空进行研究，有些不懂的地方对照“帮助“去理解。由于本人考虑不周，在运行老师的程序时发现一个小小的问题，此问题不是老师的错，只怪我没有考虑好。造成没向老师说清楚，还请老师多多谅解。
    该问题是缺少“小区名”的选择，光有楼栋号，没有“小区名”，造成XX楼栋号不知道是那个小区的。因此麻烦老师能否将“小区名”一并加进去。不知道好加不好加，如果实在不好加也就不麻烦老师了。
    另外还有一点，还得麻烦老师能否改动一下“房号”的显示位数，最好是7位数（前两位是楼栋号，第三位是单元号，第四第五位是楼层号，第六第七位是房间号）。谢谢老师！

你在数据表中添加“小区名”字段并填入数据就可以改，那很容易。至于房号改7位数，前面已经说过了，你把第四个字段（户室号）改为2位即可，程序自动调整，不用改代码的。

其实，看看代码就明白了：

    * 确定
    PROCEDURE Go
        LOCAL lcStr, lcNumber, lcName, lnRow, lnCol
       
         
        SELECT "居民信息"
        SET ORDER TO "Master"
        IF SEEK(ThisForm.cList)
            lcStr = 楼栋号 + 单元号 + 楼层号 + 户室号                                        && 这就是自动生成的房号字符串，但里面是含有空格的
            DO WHILE (ThisForm.cList $ lcStr) .AND. !EOF()
                IF (楼栋号 + 单元号 + 楼层号 + 户室号 == lcStr) .AND. (ALLTRIM(户主关系) == "户主")
                    WITH  = STRTRAN(楼栋号 + 单元号 + 楼层号 + 户室号, ' ', '0')      && 这是把上面含有空格的房号字符串中的空格替换成0得到实际输出的房号串
                        lcName = "House_" + lcNumber
                        IF VARTYPE(.&lcName) != "O"
                            lnRow = INT(VAL(楼层号))
                            lnCol = INT(VAL(户室号))
                            .AddObject(lcName, "C_Household")
                            WITH .&lcName
                                .Arrange
                                .Top = .Parent.Height - lnRow * (.Height + 5)
                                .Left = (lnCol - 1) * (.Width + 5)
                                ._Number = lcNumber
                                ._Name = ALLTRIM(姓名)
                                .Visible = .T.
                            ENDWITH
                        ENDIF
                    ENDWITH
                ENDIF
                SKIP
                IF (楼栋号 + 单元号 + 楼层号 + 户室号) != lcStr
                    lcStr = 楼栋号 + 单元号 + 楼层号 + 户室号
                ENDIF
            ENDDO
        ENDIF
       
    ENDPROC

从注释的两行代码就可以看到，最终房号的长度由你数据表相应字段的长度决定，我程序是不知道那有多长的。

（户室号）字段长度改为2位,明白！
  表中有“小区名”记录，分别记录“01机电行办”和“02五一电影院”

哦，用那个字段，那很容易。到30号左右吧，这两天我没空写程序，到时把颜色部分也一并给你。另外，最好你自己下功夫吃透这个程序，我不可能包你终身维护的，始终你得学会自己修改才行。