Dim nm As String = e.Sender.Name Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1") If nm = "订单状况" Then tab.SelectedIndex = 0 ElseIf nm = "生产状况" Then tab.SelectedIndex = 1 ElseIf nm = "财务状况" Then tab.SelectedIndex = 2 ElseIf nm = "天 猫" Then tab.SelectedIndex = 3 End If