主题：关于组合框加载不同列数据

怎样设置将组合框加载符合条件的表中某一行数据几个列的值呢？

假如一组数据（电话1、电话2、电话3）是正常显示 、另一组对应的数据（电话1掩码显示、电话2掩码显示、电话3掩码显示）收是掩码显示 ，当登录程序的身份为操作员的时候，打开组合框显示的是掩码显示，当单击某一项的时候选值是正常显示的字段去给数据库另一表赋值，怎么设置一下呢？

If e.DataCol.name ="注册手机号掩码" Then
    If e.NewValue = "" Then
        systemready = False
        e.DataRow(e.DataCol.name.SubString(0,e.DataCol.name.length-4)) = ""
        systemready = True
    ElseIf e.newvalue.contains("*") = False  Then
        Dim r_tele As New System.Text.RegularExpressions.Regex("^1[0-9]{10}$")
        If r_tele.IsMatch(e.newvalue) = False Then
            msgbox("电话号码不正确")
            e.cancel = True
           End If
        If e.Cancel = False Then
            systemready = False
            e.DataRow(e.DataCol.name.SubString(0,e.DataCol.name.length-2)) = e.newvalue
            e.NewValue = e.NewValue.SubString(0, 3) & "*****" & e.NewValue.SubString(8,3)
            systemready = True
        End If
    Else
        msgbox("不能这样修改")
        e.cancel = True
    End If
End If

 

在组合框的Enter事件中写了如下代码

Dim khID As WinForm.DropDownBox= e.Form.controls("kehuIDDropBox")

Dim zcsjh As WinForm.ComboBox=e.Form.Controls("zhuceshoujihaoComboBox")

Dim dr As DataRow

If khID.text<>"" Then

dr = DataTables("客户资料").Find("客户ID= '"& khID.text &"'")                                

Dim zfc As String=dr("手机号1") & "|" & dr("手机号2") & "|" & dr("手机号3")

Dim zfc1 As String=dr("手机号1掩码") & "|" & dr("手机号2掩码") & "|" & dr("手机号3掩码")

If _UserGroup <> "系统管理员"  Then

 zcsjh.BindingField = "商户资料表.注册手机号掩码"

zcsjh.ComboList=zfc1

Else

'zfc =dr("手机号1") & "|" & dr("手机号2") & "|" & dr("手机号3")

 zcsjh.BindingField = "商户资料表.注册手机号"

zcsjh.ComboList=zfc

End If

End If

他是综合的没法上传实例，我就是想实现当打开组合框显示的是掩码列，当中其中一项时怎样将对应的另外一列（取值）的数据赋值给某一个字段

老师麻烦测试一下

（1）虽然不弹出提示了，但选择后也不赋值了，什么原因？

（2）如果是文本框输入电话号码会弹出同样的提示框

文本框绑定的是掩码列，只能输入带掩码的号码，代码没改之前输入正常数据是可以转为掩码的，再说如果不是管理员账号输入数据时只输入掩码怎么转为正常电话号码列呀

关键是不是管理员操作的时候，当从客户表中选择客户后，客户的电话操作员是不能知道的，只能绑定掩码列才能实现，当输入完整的电话后离开焦点后，自动将部分数字转为掩码，没改代码前能够实现这个功能，改了之后，就提示错误。