主题：[求助]如何实现共用下拉窗口

Dim tbl As Table = Tables("编码下拉窗口_Table1")

If tbl.Current IsNot Nothing Then

    If e.Form.DropDownBox.BindingField Like "表A*1" Then

        Tables("表A").Current("手术编码1") = tbl.Current("icd9")

        Tables("表A").Current("手术操作名称1") = tbl.Current("手术名称")

    Else If e.Form.DropDownBox.BindingField Like "表A*2" Then

        Tables("表A").Current("手术编码2") = tbl.Current("icd9")

        Tables("表A").Current("手术操作名称2") = tbl.Current("手术名称") 

    End If

End If

Forms("编码下拉窗口").Close()