此主题相关图片如下：搜狗截图01.png

然后按回车或点击其他控件后，其自动变成了A004，如下图

此主题相关图片如下：搜狗截图02.png


不是每次输入都会变，但机会很大我只在该combobox的以下2个事件中设置了代码，其余的事件以及全局事件都没有涉及涉及该控件的代码：

Valuechanged事件：

If e.Sender.value > "" Then

    Dim dr As DataRow

    dr = DataTables("客户信息设置").SQLFind("客户编码 = \'" & e.Sender.value & "\'")

    If dr IsNot Nothing Then \'如果找到的话

        E.Form.Controls("客户简称").value = dr("客户简称")

        Tables("销售订单表头").current("联系人") = dr("联系人")

        Tables("销售订单表头").current("手机") = dr("手机")

        Tables("销售订单表头").current("联系电话") = dr("电话号码")

        Tables("销售订单表头").current("发货地址") = dr("详细地址")

    End If

Else

    E.Form.Controls("客户简称").value = ""

    Tables("销售订单表头").current("联系人") = ""

    Tables("销售订单表头").current("手机") = ""

    Tables("销售订单表头").current("联系电话") = ""

    Tables("销售订单表头").current("发货地址") = ""

End If

Validating事件： 

If e.Sender.value IsNot Nothing Then

    Dim cmd As NEW SQLCommand

    cmd.ConnectionName = "project"

    cmd.CommandText ="Select Count(*) From {客户信息设置} Where 客户编码 = \'" & e.Sender.TEXT & "\'"

    If cmd.ExecuteScalar <= 0 Then

        e.Cancel = True

        Messagebox.Show("不存在该客户","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    End If

End If