Carupano
Tengo el siguiente inconveniente:
Tengo un TabStrip y dentro de él, una Tableview donde quisiera que al seleccionar un items de la tabla segun lo que diga me traiga una pestañas especifica del TabStrip, estoy montando la información que sale en la tabla en un textbox de manera de manejar la condición a traves de el.
adjunto le mando las capturas de la pantallas para que alguien me de una idea.. Agradeciendo de antemano su valiosa colaboracion a este humilde y reciente programador
este es el codigo que tengo
PUBLIC SUB Form_Open()
ME.Center()
Creandotabla()
ContieneTabla()
END
'Cargo la Informacion que posee la Tabla
FUNCTION ContieneTabla()
DIM i AS Integer
TableView1[0, i].Text = "Como Registrar una Información."
TableView1[1, i].Text = "Como Consultar una Información General" '
TableView1[2, i].Text = "Como Consultar una Información Específica"
TableView1[3, i].Text = "Como Modificar una Información Específica."
TableView1[4, i].Text = "Como Eliminar una Información Específica."
TableView1[5, i].Text = "Configurando el Sistema."
TableView1[6, i].Text = "Como Seleccionar la Enfermedad Padecida por el Paciente"
TableView1[7, i].Text = "Como Manejar el Inventario de Medicamentos."
TableView1[8, i].Text = "Como Asignar un Responsable a una Jornada Social."
TableView1[9, i].Text = "Como Registrar y Procesar las Intervenciones a los Pacientes por Enfermedad."
TableView1[10, i].Text = "A Quienes se les Entrega Medicamentos."
TableView1[11, i].Text = "Cómo funciona la Desincorporación de Medicamentos."
TableView1[12, i].Text = "Quienes pueden ser Usuarios Operadores del Sistema Jirehmedic."
TableView1[13, i].Text = "Que hacer Si Olvido mi Login o Clave."
TableView1[14, i].Text = "Que se debe hacer si Cambia el Coordinador de Gerencia por Otro Empleado."
TableView1[15, i].Text = "Como emitir Reportes Generales e Imprimirlos."
TableView1[16, i].Text = "Como emitir Reportes Específicos e Imprimirlos."
TableView1[17, i].Text = "Como emitir Reportes por Fecha e Imprimirlos."
TableView1[18, i].Text = "Como Realizar el Respaldo de la Información."
TableView1[19, i].Text = "Como Realizar la Restauración de una Información Previamente Respaldada."
TableView1[20, i].Text = "Como Respaldar desde el Gestor de Base de Datos."
TableView1[21, i].Text = "Como Exportar la Base de Datos en archivo SQL."
TableView1[22, i].Text = "Como Importar una Base de Datos Recientemente Exportada con Información actual."
TableView1[23, i].Text = "Como Funciona la Seguridad del Sistema."
END
'Al seleccionar un items en la Tabla lo monto en un Textbox
PUBLIC SUB TableView1_Click()
TextBox1.Text = TableView1[TableView1.Row, 0].Text
IF TextBox1.Text = "Como Registrar una Información." THEN
TabStrip1[2].Setfocus Donde pongo la condición, Pero esto no funciona puse setfocus para que tuvieran una idea
ENDIF
END
FUNCTION Creandotabla()
TableView1.Columns.Count = 1
TableView1.Columns[0].text = "Contenido de Ayudas del Sistema."
TableView1.Rows.Count = 24
END
