分布表,表属性click事件
Dim i = Tables("医生").findrow("姓名='" & e.Row(e.Col.name) & "'")If i >= 0 Then Tables("医生").position = i forms("窗口1").showEnd If