DrawCell
'''
If e.Col.Name = "第八列" Then
If e.Row(e.Col).StartsWith("【联系电话】") Then
Dim i As Integer = e.Row(e.Col).Replace(vbcr,"").Split(vblf)(1).Length - 2
Dim s As String = New String("*",i)
e.Text = "【联系电话】" & vbcrlf & "<" & s & ">" '星号数与号码字数相同
‘e.Text = "【联系电话】" & vbcrlf & "<******>" ’六个星号
End If
End If