Foxtable(狐表)用户栏目专家坐堂 → [求助]请问如何使用颜色标注???


  共有15342人关注过本帖树形打印复制链接

主题:[求助]请问如何使用颜色标注???

美女呀,离线,留言给我吧!
云舒
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:18 积分:182 威望:0 精华:0 注册:2011/7/1 17:55:00
[求助]请问如何使用颜色标注???  发帖心情 Post By:2011/7/2 9:00:00 [显示全部帖子]

我是想做个关于房地产销售与客户的管理系统。

关于该套房的状态(未售、签约、备案、抵押、放款,办产权,办土地证)等不同阶段能显示出不同颜色

也就是说,能通过一个总表(总房源)看到各套房的不同状态

然后点击该套房就能出现该套房所有详细内容(房款、客户信息等)

不知道要怎么做才能达到这种效果,请各位高手指教...

小女子感激不尽.........

 

 

样本已上传。主要希望能把房源和客户信息联系起来,关联我会做,

但如何能让“房源”表中的房号能根据客户信息的变化变成不同颜色

例如输入了“客户姓名”的就代表“已售”,输入了“办产权”的房号又会变成另一种颜色

以此类推...

 

谢谢!!!

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:样本.table

[此贴子已经被作者于2011-7-3 17:16:33编辑过]

 回到顶部
美女呀,离线,留言给我吧!
云舒
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:18 积分:182 威望:0 精华:0 注册:2011/7/1 17:55:00
  发帖心情 Post By:2011/7/2 11:00:00 [显示全部帖子]

以下是引用smileboy在2011-7-2 10:30:00的发言:
参考drawcell事件

?在哪参考??不好意思,偶实在是初学者,可能没办法一点就通...


 回到顶部
美女呀,离线,留言给我吧!
云舒
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:18 积分:182 威望:0 精华:0 注册:2011/7/1 17:55:00
  发帖心情 Post By:2011/7/4 12:49:00 [显示全部帖子]

请大家帮帮忙!!!


 回到顶部
美女呀,离线,留言给我吧!
云舒
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:18 积分:182 威望:0 精华:0 注册:2011/7/1 17:55:00
  发帖心情 Post By:2011/7/4 16:58:00 [显示全部帖子]

非常感谢!!!

不过,小黑哥哥,能否帮忙让“房源”表中的“房号”也跟着变色呢???

这个代码偶实在是研究不透....辛苦辛苦...


 回到顶部
美女呀,离线,留言给我吧!
云舒
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:18 积分:182 威望:0 精华:0 注册:2011/7/1 17:55:00
  发帖心情 Post By:2011/7/5 11:01:00 [显示全部帖子]

额...小黑哥...你的境界实在太高,恕小女子跟不上进度...

你那三个是怎么弄的?用代码?偶怎么都不知道变更了哪里??冒汗啊....

 

还有,不知道是不是偶没说清,我是想要“房源表”里的“房号”能根据“客户信息表”里同一房号的状态变化而变化。比如“客户信息表”里的305显示的是“未售”,那么相应的“房源表”里的“房号”也能变成“未售”的颜色。

嘿嘿...

是不是有点晕了!!!

表晕表晕!!偶帮你扇扇子!

谢谢!!


 回到顶部
美女呀,离线,留言给我吧!
云舒
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:18 积分:182 威望:0 精华:0 注册:2011/7/1 17:55:00
  发帖心情 Post By:2011/7/5 15:28:00 [显示全部帖子]

图片点击可在新窗口打开查看对了对了!就是这种效果!!哈哈!!!

灰常感谢!!!图片点击可在新窗口打开查看我飘啊飘。。。

 

 

嘿嘿,不过,偶又突然发现一个小疑问,我刚把代码稍微改了点,就是如果"客户姓名"这一单元格里没有内容的话就代表“未售”可是,可是怎么连带着让“房源表”里的“房号”也跟着变色呢?

 

貌似你之前用的是

If MainTable.Name = "房源" Then
    DataTables("房源").DataCols("房号").RaiseDataColChanged()
End If

这个代码...

 

但如果情况换成我现在说的这种的话是不是又要改了???

嘿嘿.....

小黑哥你就好人做到底...........

偶继续帮你扇扇子....图片点击可在新窗口打开查看

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:样本.table


 回到顶部
美女呀,离线,留言给我吧!
云舒
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:18 积分:182 威望:0 精华:0 注册:2011/7/1 17:55:00
  发帖心情 Post By:2011/7/5 18:09:00 [显示全部帖子]

我在别的表套用了你的公式,但却不成功,不知道为什么,所以我只好麻烦你帮我弄了

 

其他的我都弄好了,就是那个“房源的房号”怎么跟着“客户信息”里的进度变更颜色,这一点不清楚。

 

还有,我增加了别的楼栋的房源,因为还涉及到房号相同栋号不同所以信息也不同的问题。

 

嘿嘿.......

 

表烦哈!你可以吃饱后再好好想...

 

THANK YOU!!

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:样本.table


 回到顶部
美女呀,离线,留言给我吧!
云舒
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:18 积分:182 威望:0 精华:0 注册:2011/7/1 17:55:00
  发帖心情 Post By:2011/7/6 13:41:00 [显示全部帖子]

你是怎么做到得的呢?

怎么偶用你所写的代码还是做不出?怪了!

你除了添加了“房源表”里的DateColChanged和Drawcell代码外,还修改了哪里呢?


 回到顶部
美女呀,离线,留言给我吧!
云舒
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:18 积分:182 威望:0 精华:0 注册:2011/7/1 17:55:00
  发帖心情 Post By:2011/7/6 18:02:00 [显示全部帖子]

If e.DataCol.Name = "房号" Then
    Dim dr As DataRow
    dr = DataTables("合同详情").Find("房号 = '"  & e.DataRow("房号") & "'And 栋号='" & e.DataRow("栋号") & "'")
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("状态")=dr("进度")      
    End If
End If

If e.DataCol.Name = "房号" Then
    Dim dr As DataRow
    dr = DataTables("尾房").Find("房号 = '"  & e.DataRow("房号") & "'And 栋号='" & e.DataRow("栋号") & "'")
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("状态")="未售"      
    End If
End If

 

 

我刚刚在房号旁边重新加了一列“状态”

然后把代码改了下,就可以显示了

之前如果直接是 e.DataRow("进度")=dr("进度") ,就提示“房源表”里没有进度这一项

但我看你给我的样本也没有“进度”这一项却可以让房号跟着变色。怪了

所以我当时就改成 e.DataRow("房号")=dr("进度")      
结果,房号又却变成了“未售”、“抵押”、“放款”等字样了....晕忽

所以只好加一栏“状态”了。

很是纳闷,怎么同样的表,同样的代码,到了我手里做出来的效果就不一样了呢...

不解....


 回到顶部
美女呀,离线,留言给我吧!
云舒
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:18 积分:182 威望:0 精华:0 注册:2011/7/1 17:55:00
  发帖心情 Post By:2011/7/7 15:59:00 [显示全部帖子]

哈哈~原来如此!!!

明白了!!!

小黑同志,谢谢啦!!!图片点击可在新窗口打开查看


 回到顶部
总数 11 1 2 下一页