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

可能是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