主题：[求助]帮助文件自定义界面四中自动填充的疑问

离开输入框，输入的内容才会写入到表，才会触发DataColChanged事件。

所以你下拉选择后要离开输入框，其他列的内容才会自动输入。

你要即时生效，加一行：

If e.Selected Then '如果选择了值
    Dim tbl As Table = Tables("窗口1_Table1")
    If tbl.Current IsNot Nothing Then
        e.Form.DropDownBox.Value = tbl.Current("客户ID")
        e.Form.DropDownBox.WriteValue()
    End If
    e.Form.DropDownBox.CloseDropDown()
End If