主题：[求助]客户名称突然消失，如何解决

DoubleClick事件

Dim tbl As Table = Tables("客户设置_Table1")
If tbl.Current IsNot Nothing Then
    e.Form.DropDownBox.Value = tbl.Current("客户编码")
    Forms("小piao录入").Controls("DropBox1").value = tbl.Current("客户编码")
    Forms("小piao录入").Controls("DropBox1").WriteValue
    Forms("小piao录入").Controls("TextBox2").Value = tbl.Current("客户名称")
    Forms("小piao录入").Controls("TextBox2").WriteValue
End If
e.Form.DropDownBox.CloseDropDown()