|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - angelescj
126
« en: Viernes 9 de Mayo de 2003, 15:34 »
Lo que quieres controlar podrías hacerlo con el evento Dropdown, que el el que se ejecuta justo antes de ser desplegado el combo, y utilizar cualquiera de los otros eventos, ej. el Change, para saber cuando han seleccionado algo y el combo se ha vuelto a plegar
127
« en: Jueves 8 de Mayo de 2003, 12:05 »
El problema está en que esa comparación que quieres hacer no es posible con cadenas. Lo mejor es que lo pases a numérico y desde el programa, a la hora de mostrar... le des formato. 
128
« en: Jueves 8 de Mayo de 2003, 11:27 »
Si el campo cod_cliente es de tipo numérico en la base de datos debes quitar las comillas simples: "select * from clientes where cod_cliente>=" & cb_desde.Text & " and cod_cliente<=" & cb_hasta.Text
129
« en: Jueves 8 de Mayo de 2003, 10:47 »
Pon esta línea antes de mostralo o imprimirlo: Me.CrystalReport1.DiscardSavedData = True
130
« en: Jueves 8 de Mayo de 2003, 09:16 »
Me parece una gran idea, cuanto más información tengamos mejor. 
131
« en: Miércoles 7 de Mayo de 2003, 13:09 »
Lo siento, pero esto no tiene solución 
133
« en: Martes 6 de Mayo de 2003, 20:29 »
Para terminar la impresión actual debes usar el método KillDoc, pero según como esté configurada la impresora tardará más o menos tiempo en hacerte caso. Printer.KilDoc
134
« en: Martes 6 de Mayo de 2003, 20:22 »
Ya tienes la respuesta a lo del Proveedor en el otro foro de VB en el que hiciste la pregunta
135
« en: Martes 6 de Mayo de 2003, 18:37 »
Un formulario no es más que un fichero de texto, así que si lo puedes abrir con el bloc de notas al final del documento encontrarás el código
136
« en: Martes 6 de Mayo de 2003, 17:35 »
Es fácil: 1-. Selecciona Nueva consulta 2-. Vista de Diseño 3-. Agrega la/s tabla/s que quieras y cierra. 4-. Selecciona del menú "Consulta" la opción "Consulta de Actualización". YA ESTÁ. Ahora sólo te queda indicar qué campos quieres modificar y bajo qué condiciones, si las tiene. Te recomiendo hacer esto último desde SQL, no desde el diseño (botón derecho sobre la zona de la consulta en la que están la/s tabla/s y "SQL".
137
« en: Martes 6 de Mayo de 2003, 15:45 »
En tu mensaje dices que la línea de código que da error es: * Label4 = tabla1("nombre") Mi pregunta es qué es tabla1?. Para acceder al campo debes poner: Data2.Recordset.Fields("nombre") o también: Data2.Recordset.Fields(posicionDel Campo)
138
« en: Martes 6 de Mayo de 2003, 14:21 »
Si utilizas el Msgbox, y le indicas que sea Modal al sistema hace lo que tú pretendes, o por lo menos funciona así con todas las aplicaciones que yo he probado. Ej: MsgBox "pp", vbSystemModal
139
« en: Lunes 5 de Mayo de 2003, 18:08 »
Si el campo "rut" es de tipo numérico en la BDD deberías quitar las comillas: NumRut = Val(Combo1.Text) Buscar = "rut=" & NumRut Data2.Refresh 'La siguiente línea de código no es necasaria Data2.Recordset.MoveLast Data2.Recordset.FindFirst Buscar 'También debes comprobar si la búsqueda encontró algo: If Data2.RecordSet.NoMatch Then No encontró nada End If
140
« en: Martes 29 de Abril de 2003, 17:15 »
Totalmente de acuerdo, normalmente varias de las soluciones son correctas, pero dependen de otros factores, así que sería interesante saber cuando han funcionado. Aquí estamos todos para ayudarnos y nos ahorraríamos muchas vueltas si supiéramos qué soluciones han resultado bien .
141
« en: Martes 29 de Abril de 2003, 14:12 »
Construye la cadena primero: EJ: dim cad as string cad="select * from tabla where campo1=" & txtprimervalor & " and campo2='" & txtotroValorEsteDeTipoCadena & "'" dataenvironment1.commands(indice).recordsource=cad Podría ser así. 
142
« en: Martes 29 de Abril de 2003, 12:59 »
La forma de cambiar la consulta SQL es: DataEnvironment1.comandoACambiar.Recordsource="nueva consulta SQL" El problema es que una vez leído el conjunto de registros ya no lo vuelve a leer a no ser que se cierre previamente. Una forma cómoda de hacerlo es: DataEnvironment1.Commands(indiceDel ComandoACambiar).Recordsource="nueva consulta SQL" datareport1.show vbModal DataEnvironment1.Recordsets(indiceDel ComandoACambiar).close. Otra forma es preguntar antes de asignar la nueva cláusula si ya está abierto. Espero que te sirva
143
« en: Viernes 25 de Abril de 2003, 13:58 »
En tiempo de ejecución puedes eliminar fichas dándole un nuevo valor a la propiedad Tabs, pero se empieza a eliminar sólo las del final
144
« en: Jueves 24 de Abril de 2003, 17:08 »
Si utilizas SQL la cláusula es: DROP TABLE NombreTabla" Si utilizas objetos Database: base.TableDefs.Delete (NombreTabla)
146
« en: Jueves 24 de Abril de 2003, 16:40 »
147
« en: Jueves 24 de Abril de 2003, 16:25 »
Haz lo que te puse en la respuesta anterior y luego da formato a la sección de detalle marcando la opción "Nueva página después. Esto hace que cada registro aparezca en una hoja, y que cuando cambie el valor del campo por el que agrupas imprima una página en blanco.
148
« en: Jueves 24 de Abril de 2003, 11:57 »
Desde el Crystal Report crea un grupo y agrupa los registro por ese campo que se repite, un vez hecho pincha con el botón derecho sobre el nombre del grupo selecciona "Dar formato ..." y marca "Suprimir", esto es para que no se vea ese valor, ya que si no aparecerá repetido y queda mal. Después de esto lo único que te queda por hacer es pinchar con el botón dertecho sobre el pie de grupo que hay a la izquierda, seleccionar "Dar formato a la sección..." y marcar la opción que pone "Nueva página después". Ahora al mostrar el Report aparecerá como tu querías.
Espero que te sirva:good:
149
« en: Jueves 24 de Abril de 2003, 11:43 »
Ese número de error me dió una vez, y se debía a que la BD tenía contraseña a nivel de la Base de Datos, para solucionarlo antes de mostrarto, Action=1, puse la siguiente línea de código: CrystalReport1.Password =la contraseña que proceda Espero que te sirva. Un consejo: Pásate a el RDC y deja el OCX, es muchísimo más potente y tiene más posibilidades, además Seagate eliminó ya el OCX de la versión 9.
150
« en: Miércoles 23 de Abril de 2003, 16:19 »
Te recomiendo la siguiente web: http://www.lawebcrystal.com/Aquí encontrarás manuales, ejemplos y un foro específico para Crystal con diferentes lenguajes.
|
|
|
Mostrar Mensajes
