Mensajes

en el evento Unload del form controlas lo que quiereas que haga al cerrarse

el ListView lo tienes en otro form??? o lo quires cargar dentro del mismo form que el Treeview??

cuando creas el nodo imagino que usas una clave (KEY) para cada nodo, así le dices que nodo es hijo de cual... por lo tanto esa clave te sirve para identificar de manera unica a cada nodo, pues bien puedes usar el evento NodeClick

Código [Seleccionar] Expandir


Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
        select case node.key
                    case "nodo1"
                           from1.show
                   case "nodo"
                           form2.show.....
        end select
End Sub


espero te sirva de algo

checa el objeto printer, en la ayuda del VB viene bien explicado, con este objeto y/o el commondialog puedes hacer eso

estas usando BD's, archivos de texto????


puedes usar el evento click del comboBox para hacer la consulta y actualizar el MsFlexGrid

pues lo tipico, llevar el control de ingresos (compras) y salidas (ventas, mermas, devoluciones) y manejar un inventario minimo para cada articulo, y cuando el número de piezas llegue al inv. minimo, pues que te avise para hacer un pedido de mercancia


una formula muy buena para calcular lo del inventario minimo es sacar el promedio de ventas de las ultimas 4 semanas y mulktiplicalo por 2

asi será seguro que casi nunca tengas faltantes
solo hay que tener en cuenta las temporadas especiales, como 14 de Febrero, navidad, Vacaciones de verano, etc

en ese caso creo que sería bueno usar un for:

Código [Seleccionar] Expandir


dim j as long
dim X as long

x = Len(text1.text)

for j = x to 1 step -1 ' vamos del último caracter hasta el 1o
     if mid (text1.text, j,1) = "-" then
           'Encotro el gión
            text1.text = left(text1.text, j-1)
            exit for
      end if
next j


es muy sencillo

Código [Seleccionar] Expandir


    Dim i As Integer
    'Buscas la posición del guión
    i = InStr(1, Text1.Text, "-", vbTextCompare)
    'Cortas la cadena hasta antes del guión
    Text1.Text = Left(Text1.Text, i - 1)


checa las propiedades "mergecell"

MergeCells (Propiedad)
     

Devuelve o establece un valor que determina si las celdas con el mismo contenido deben agruparse en una celda única que abarca múltiples filas o columnas.

Sintaxis

objeto.MergeCells [=valor]

La sintaxis de la propiedad MergeCells consta de las siguientes partes:

Parte Descripción
objeto Unaexpresión de objeto que da como resultado un objeto de la lista Se aplica a.
valor Un entero oconstante que especifica la agrupación (combinación) de celdas, como se especifica en Valores.


Valores

Los valores admitidos para valor son:

Constante Valor Descripción
flexMergeNever 0 Nunca. Las celdas con el mismo contenido no se agrupan. Es el valor predeterminado.
flexMergeFree 1 Libre. Las celdas con el mismo contenido siempre se combinan.
flexMergeRestrictRows 2 Restringir filas. Sólo se combinan las celdas adyacentes de la fila (a la izquierda de la celda actual) que tengan el mismo contenido.
flexMergeRestrictColumns 3 Restringir columnas. Sólo se combinan las celdas adyacentes de la columna (de la parte superior de la celda actual) que tengan el mismo contenido.
flexMergeRestrictBoth 4 Restringir ambas. Sólo se combinan las celdas adyacentes de la fila (a la izquierda) o de la columna (arriba) que tengan contenido idéntico.


Comentarios

La posibilidad de combinar celdas permite presentar los datos de una forma clara y atractiva. La combinación de celdas puede usarse con las funciones de ordenación de columnas del control MSHFlexGrid.

Para usar las capacidades de combinación de celdas del control MSHFlexGrid:

Establezca la propiedad MergeCells en un valor distinto de cero. (El ejemplo explica las diferencias entre los valores.)


Establezca en True las propiedades de matriz MergeRow y MergeCol correspondientes a las filas y columnas que desee combinar.
Cuando utilice las capacidades de combinación de celdas, el control MSHFlexGrid combinará las celdas que tengan el mismo contenido. La combinación se actualiza automáticamente cada vez que el contenido de la celda cambie.

Cuando se establece el valor de MergeCells en un valor distinto de cero (Nunca), el resalte de la selección se desactiva automáticamente. Esto se hace principalmente para volver a colorear más rápidamente y porque la selección de intervalos con celdas combinadas puede conducir a resultados inesperados.

Ejemplo de la propiedad MergeCells
El ejemplo siguiente muestra los fundamentos de la propiedad MergeCells.

Sin combinación
MergeCells =0
MergeRow(0) =True
MergeRow(1) =True
MergeRow(2) =True
MergeRow(3) =False
Ésta es la vista normal.
 
Combinación libre
MergeCells =1
MergeRow(0) =True
MergeRow(1) =True
MergeRow(2) =True
MergeRow(3) =False
Observe que la tercera celda de empleados (Donna) combina los productos a su izquierda y las ventas a su derecha.
 
Combinación restringida
MergeCells =2
MergeRow(0) =True
MergeRow(1) =True
MergeRow(2) =True
MergeRow(3) =False
Observe que la tercera celda de empleados (Donna) ya no combina las ventas.
 


Nota: esto lo saque de la ayuda del VB



y como lo he dicho en otros posts, la "AYUDA" si ayuda, creanme!!!!

bueno, lo de hacer reportes en el Crystal es casi similar a estar usando Power Point, asi que no creo que tengas mucho problema en hacer el diseño de tu reporte, ahora para poder llamar el reporte desde visual vasic primero tienes que agregar a los componentes el archivo Crystl32.ocx, esto es para que en la barra de tareas te aparezca un icono que se llama "Crystal report", agregalo a tu formulario y donde vayas  a mostrar el reporte pones:

Código [Seleccionar] Expandir


with crystalReport1
     .ReportFileName = "path de  tu reporte"\Reporte.rpt
     .Destination = crptToWindow ' Seleccionas el destino Impresora|Pantalla|archivo
     .WindowState = crptMaximized 'aqui lo mande a pantalla y le digo que la ventana de presentación preliminar este maximizada
     On Local Error Resume Next
     .WindowShowPrintSetupBtn = True ' para que te muestre el boton de imprimir
     .Action = 1
     If Err Then MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, App.EXEName
     Err.Clear
     On Local Error GoTo 0
     .PageZoom (60) ' Zoom
End With
[code]

**** TIP ****
- a la hora de hacer el diseño de tu reporte y guardarlo asegurate que no este activada la opción de "Guardar datos con el reporte", del menú Archivo[/code]