Dim r As Row = Tables("流水记录").Current
r("财务科目") = Forms("流水记录").Controls("l_temp").text
r("科目名称") = Forms("流水记录").Controls("l_temp1").text
If e.Selected Then \'如果选择了值
If r IsNot Nothing Then
e.Form.DropDownBox.Value = r("财务科目")
End If
If e.Form.DropTable IsNot Nothing Then \'如果是通过表下拉的
e.Form.DropTable.FinishEditing()
Else \'如果是通过窗口下拉的
e.Form.DropDownBox.WriteValue()
End If
End If
加载表事件是afterloadtablesetting