| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 200 人关注过本帖
标题:求助,浏览表使连号突出显示!
只看楼主 加入收藏
wangguowu
Rank: 2
等 级:论坛游民
帖 子:71
专家分:18
注 册:2012-2-15
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:7 
求助,浏览表使连号突出显示!
图片附件: 游客没有浏览图片的权限,请 登录注册
浏览连号.txt (4.09 KB)
SELECT dlt
Browse Name oBrowse Nowait noed titl ">>~"
oBrowse.AutoFit()
oBrowse.setall("format","Z","column")
oBrowse.BackColor = RGB(128,128,128)
oBrowse.GridLineColor = RGB(128,128,128)
oBrowse.SetAll("backcolor",RGB(255,255,255),"textbox")
oBrowse.setall("Dynamicbackcolor","RGB(255,255,255)","Column")
*-
For ii = 1 To obrowse.ColumnCount
    If ii = 1
        obrowse.Columns(ii).DynamicBackColor = "IIF(kjqh#'',RGB(236,233,216),RGB(255,255,255))"
    Endif
    If ii = 2
        obrowse.Columns(ii).DynamicBackColor = "IIF(bl='3:2',RGB(221,216,185), RGB(255,255,255))"
    Endif
    If ii = 4
        obrowse.Columns(ii).DynamicBackColor = "IIF(ACZ=4 or ACZ=5 or ACZ=6,RGB(221,216,185), RGB(255,255,255))"
    Endif
    If ii = 6
        obrowse.Columns(ii).DynamicBackColor = "IIF(='0' or ='1',RGB(221,216,185), RGB(255,255,255))"
    Endif
For ii = 1 To obrowse.ColumnCount
    If ii = 8 or ii=9
        obrowse.Columns(ii).DynamicBackColor = "IIF(!EMPTY(s1) and !EMPTY(s2),RGB(221,216,185),RGB(255,255,255))"
    Endif
ENDFOR

For ii = 1 To obrowse.ColumnCount
    If ii = 10 or ii=11
        obrowse.Columns(ii).DynamicBackColor = "IIF(!EMPTY(s3) and !EMPTY(s4),RGB(221,216,185),RGB(255,255,255))"
    Endif
ENDFOR

For ii = 1 To obrowse.ColumnCount
    If ii = 12 or ii=13
        obrowse.Columns(ii).DynamicBackColor = "IIF(!EMPTY(s5) and !EMPTY(s6),RGB(221,216,185),RGB(255,255,255))"
    Endif
ENDFOR

For ii = 1 To obrowse.ColumnCount
    If ii = 14 or ii=15
        obrowse.Columns(ii).DynamicBackColor = "IIF(!EMPTY(s7) and !EMPTY(s8),RGB(221,216,185),RGB(255,255,255))"
    Endif
ENDFOR

For ii = 1 To obrowse.ColumnCount
    If ii = 16 or ii=17
        obrowse.Columns(ii).DynamicBackColor = "IIF(!EMPTY(s9) and !EMPTY(s10),RGB(221,216,185),RGB(255,255,255))"
    Endif
ENDFOR

For ii = 1 To obrowse.ColumnCount
    If ii = 18 or ii=19
        obrowse.Columns(ii).DynamicBackColor = "IIF(!EMPTY(s11) and !EMPTY(s12),RGB(221,216,185),RGB(255,255,255))"
    Endif
ENDFOR

For ii = 1 To obrowse.ColumnCount
    If ii = 20 or ii=21
        obrowse.Columns(ii).DynamicBackColor = "IIF(!EMPTY(s13) and !EMPTY(s14),RGB(221,216,185),RGB(255,255,255))"
    Endif
ENDFOR

For ii = 1 To obrowse.ColumnCount
    If ii = 22 or ii=23
        obrowse.Columns(ii).DynamicBackColor = "IIF(!EMPTY(s15) and !EMPTY(s16),RGB(221,216,185),RGB(255,255,255))"
    Endif
ENDFOR

For ii = 1 To obrowse.ColumnCount
    If ii = 24 or ii=25
        obrowse.Columns(ii).DynamicBackColor = "IIF(!EMPTY(s17) and !EMPTY(s18),RGB(221,216,185),RGB(255,255,255))"
    Endif
ENDFOR

For ii = 1 To obrowse.ColumnCount
    If ii = 26 or ii=27
        obrowse.Columns(ii).DynamicBackColor = "IIF(!EMPTY(s19) and !EMPTY(s20),RGB(221,216,185),RGB(255,255,255))"
    Endif
ENDFOR

For ii = 1 To obrowse.ColumnCount
    If ii = 28 or ii=29
        obrowse.Columns(ii).DynamicBackColor = "IIF(!EMPTY(s21) and !EMPTY(s22),RGB(221,216,185),RGB(255,255,255))"
    Endif
ENDFOR

For ii = 1 To obrowse.ColumnCount
    If ii = 30 or ii=31
        obrowse.Columns(ii).DynamicBackColor = "IIF(!EMPTY(s23) and !EMPTY(s24),RGB(221,216,185),RGB(255,255,255))"
    Endif
ENDFOR

For ii = 1 To obrowse.ColumnCount
    If ii = 32 or ii=33
        obrowse.Columns(ii).DynamicBackColor = "IIF(!EMPTY(s25) and !EMPTY(s26),RGB(221,216,185),RGB(255,255,255))"
    Endif
ENDFOR

For ii = 1 To obrowse.ColumnCount
    If ii = 34 or ii=35
        obrowse.Columns(ii).DynamicBackColor = "IIF(!EMPTY(s27) and !EMPTY(s28),RGB(221,216,185),RGB(255,255,255))"
    Endif
ENDFOR

For ii = 1 To obrowse.ColumnCount
    If ii = 36 or ii=37
        obrowse.Columns(ii).DynamicBackColor = "IIF(!EMPTY(s29) and !EMPTY(s30),RGB(221,216,185),RGB(255,255,255))"
    Endif
ENDFOR

For ii = 1 To obrowse.ColumnCount
    If ii=38 OR ii=39 OR ii=40
        obrowse.Columns(ii).DynamicBackColor = "IIF(!EMPTY(s31) and !EMPTY(s32) or !EMPTY(s32) and !EMPTY(s33),RGB(221,216,185),RGB(255,255,255))"
    Endif
ENDFOR

For ii = 1 To obrowse.ColumnCount
    If ii=40 OR ii=41 OR ii=42
        obrowse.Columns(ii).DynamicBackColor = "IIF(!EMPTY(s33) and !EMPTY(s34) or !EMPTY(s34) and !EMPTY(s35),RGB(221,216,185),RGB(255,255,255))"
    Endif
ENDFOR
ENDFOR
*===========================================================================================================
搜索更多相关主题的帖子: 浏览 If and For RGB 
2024-05-08 15:40
wangguowu
Rank: 2
等 级:论坛游民
帖 子:71
专家分:18
注 册:2012-2-15
收藏
得分:0 
dlt.rar (44.9 KB)
2024-05-08 15:44
jinanshui
Rank: 2
等 级:论坛游民
帖 子:294
专家分:67
注 册:2009-10-6
收藏
得分:0 
老师,我不会,想向您请教一下,怎么从网上爬取的这些数据,谢谢
2024-05-08 19:57
wangguowu
Rank: 2
等 级:论坛游民
帖 子:71
专家分:18
注 册:2012-2-15
收藏
得分:0 
2024-05-08 20:05
jinanshui
Rank: 2
等 级:论坛游民
帖 子:294
专家分:67
注 册:2009-10-6
收藏
得分:0 
谢谢
2024-05-08 20:33
shizi0
Rank: 5Rank: 5
等 级:职业侠客
威 望:4
帖 子:122
专家分:348
注 册:2012-10-2
收藏(1)
得分:20 
Grid.init写入:
With This
For i=8 To .ColumnCount
    j=i-7
    Do Case
    Case i=8
        .Columns(i).DynamicBackColor=[Iif(S]+Transform(j+1)+[=S]+Transform(j)+[+1,Rgb(150,150,150),Rgb(255,255,255))]
    Case i=.ColumnCount   
        .Columns(i).DynamicBackColor=[Iif(S]+Transform(j)+[=S]+Transform(j-1)+[+1,Rgb(150,150,150),Rgb(255,255,255))]
    Otherwise     
        .Columns(i).DynamicBackColor=[Iif(S]+Transform(j)+[=S]+Transform(j-1)+[+1 or S]+Transform(j+1)+[=S]+Transform(j)+[+1,Rgb(150,150,150),Rgb(255,255,255))]
    Endcase     
Endfor
Endwith
 
收到的鲜花
  • kangss7 天前 18:50 送鲜花  1朵   附言:精彩
2024-05-09 00:18
shizi0
Rank: 5Rank: 5
等 级:职业侠客
威 望:4
帖 子:122
专家分:348
注 册:2012-10-2
收藏
得分:0 
dltForm.rar (69.52 KB)
2024-05-09 00:28
wangguowu
Rank: 2
等 级:论坛游民
帖 子:71
专家分:18
注 册:2012-2-15
收藏
得分:0 
回复 7楼 shizi0
谢谢!完结!
2024-05-09 08:10
快速回复:求助,浏览表使连号突出显示!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017204 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved