Private Sub CrearDataSet() Dim tablaArbol As DataTable dataSetArbol = New DataSet("DataSetArbol") tablaArbol = dataSetArbol.Tables.Add("TablaArbol") tablaArbol.Columns.Add("NombreNodo", GetType(String)) tablaArbol.Columns.Add("IdentificadorNodo", GetType(Integer)) tablaArbol.Columns.Add("IdentificadorPadre", GetType(Integer)) InsertarDataRow("Personal", 1, 0) InsertarDataRow("Trasancciones", 2, 1) InsertarDataRow("Empleados", 3, 2) InsertarDataRow("Vacaciones", 4, 2) InsertarDataRow("Reportes", 5, 1) InsertarDataRow("Personal", 6, 5) InsertarDataRow("Vacaciones", 7, 5) InsertarDataRow("Parametros", 8, 1) InsertarDataRow("Parametros", 9, 8) InsertarDataRow("Parametros", 10, 8) End Sub
Private Sub Ejecuta_Personal() miProceso.StartInfo.FileName = "rhper.exe" miProceso.Start() miProceso.WaitForExit() End Sub
Shell("c:\sagmasoft\adm999.exe", AppWinStyle.NormalFocus)