求助，浏览表使连号突出显示！
浏览连号.txt
(4.09 KB)
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
*===========================================================================================================
dlt.rar