想加一句代码，以显示颜色 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 想加一句代码，以显示颜色

共有4333人关注过本帖树形打印复制链接主题：想加一句代码，以显示颜色

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/1/15 22:23:00 [显示全部帖子]

呃，不是很简单的么？你设置两个样式，然后写下面的代码

If e.Col.name = "身份证号" Then

If e.Row("身份证").endswith("7") Then

e.style = "样式1"

Else If e.Row("身份证").endswith("8") Then

e.style = "样式2"

End If

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/1/16 21:31:00 [显示全部帖子]

判断一下字符长度

Dim s,s1,s2 As String

Dim x1,x2,x3 As Integer

If e.Col.name = "身份证号" AndAlso e.Row("身份证号").length > 9 Then

s1 = e.Row("身份证号").SubString(8,1)

s2 = e.Row("身份证号").SubString(9,1)

x1 = val(s1)

x2 = val(s2)

If x1+x2 = 10 Then '此段运算以后改为计算身份号是否合法的运算,因为复杂所以暂用此加法代替

e.style = "样式1"

ElseIf x1+x2 = 11 Then

e.style = "样式2"

End If

主题：想加一句代码，以显示颜色