If e.Selected Then '如果选择了值 Dim tbl As Table = Tables("下拉_Table1") If tbl.Current IsNot Nothing Then Tables("表C").Current("第二列") = tbl.Current("第二列") Tables("表C").Current("第一列") = tbl.Current("第一列") End IfEnd If