主题：一个内部通讯多值字段的问题

 TextChanged事件

Dim lst As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")

Dim reg As new System.Text.RegularExpressions.Regex("[\(\)0-9]")
Dim str = reg.replace(lst.Text, "")
e.Form.Controls("用户名").Text = str