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

此主题相关图片如下：qq图片20140115142655.jpg

在窗体中添加按钮A，其代码如下：

Dim shuliang1,shuliang2 As Integer
shuliang1=0  '统计的数量1
shuliang2=0  ‘统计的数量2
Dim haoma,xingming As String   ’定义身份证号码
Dim clr As Color = Color.Pink  '定义的粉红色

For Each dr As Row In Tables("教职工信息表").Rows
    haoma = dr("身份证号")
    xingming = dr("姓名")
    If dr("身份证号") <> Nothing Then
        If mid(haoma,18,1) = "7" Then
            shuliang1 = shuliang1 + 1
            MessageBox.Show("发现第" & shuliang1 & "个" & xingming & "尾号为7")
        ElseIf mid(haoma,18,1) = "8" Then
            shuliang2 = shuliang2 + 1
            MessageBox.Show("发现第" & shuliang2 & "个" & xingming & "尾号为8")   
        End If
    End If
Next

现在我很想添加一段代码，使身份证号码显示如下颜色

尾数为8，背景黄色，字体红色

尾数为7，背景绿色，字体蓝色

其实我的本意不是判断尾数为7或8的，我是判断身份证号码是否符合编号规则，其年月日是否符合日期规则的，因为代码太长了，就改为判断位数是7或者8了。

以前发过好多的请教的问题，好多高手精心帮我指导，再次表示感谢（有点甜，y2287958,jspta,yan2006l,...）！再次恳请大师不吝指教，先谢谢了。

原来也看过，但好像大多写的是DrawCell事件，模仿写了几次运行都出错了，所以想到来这里求援了，还有烦请帮我完善一下代码吧。

Dim s,s1,s2 As String
在表属性的 DrawCell事件中尝试写了一段代码，但是运行却出错 ，不知道什么原因

Dim s,s1,s2 As String
Dim x1,x2,x3 As Integer
If e.Col.name = "身份证号" 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
End If

系统又提示，DrawCell事件代码不宜写得太复杂，如果计算身份号合法性的话会复杂更多，所以我想还是哪位帮我在一楼的代码中添加一下，用按钮事件执行比较能随意控制，如果不能的话我就只有在“身份证号”后面加个辅助列“号码合法性”了，免得用颜色太麻烦。

一时疏忽，有一个身份证号为空，谢谢！