主题：[求助]组合框输入的值自动变化

 如果你这个控件绑定了表的列，那么修改表的数据的时候，控件的值自然会改变。

 

 去看看表事件代码。

 那就不应该有错。

 

 你去看看表事件和全局表事件，肯定是在某个地方修改了它的值。

 呃，那就没理由。把项目弄上来测试一下。

 把sql数据源转成Access数据源，然后发上来测试。

可能是bug，你要这样改

 

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("电话号码")
        Tables("销售订单表头").current("发货地址") = dr("详细地址")
    End If
Else
    E.Form.Controls("客户简称").value = ""
    Tables("销售订单表头").current("联系人") = ""
    Tables("销售订单表头").current("手机") = ""
    Tables("销售订单表头").current("联系电话") = ""
    Tables("销售订单表头").current("发货地址") = ""
End If