drawcell
If sfzym=True Then
If e.Col.name = "身份证号" Then
If e.text.length >= 18 Then
e.text = e.text.SubString(0, 5) & "**********" & e.text.SubString(15,3)
End If
End If
End If
按钮
Dim sfxs As WinForm.CheckBox=e.Form.Controls("shenfenzhengCheckBox")
If sfxs .Checked Then
sfzym=False
Else
sfzym=True
End If
e.Form.Controls("Table1").Table.Refresh