SoloCodigo

Bueno espero te sirva... lo desglose para que entiendas...Colocalo en el evento que desees

 Dim cad As String
 cad = "Carlos Esta .Con Camisa. Azul"
 Dim pos1 As Integer, pos2 As Integer, resto As Integer
 pos1 = InStr(cad, ".")
 pos2 = InStrRev(cad, ".")
 resto = pos2 - pos1
 label1.caption = Mid(cad, pos1 + 1, resto - 1)

jajaja...el Inutil es aquel que entra al Foro y dice:

HAGANME MI TRABAJO, necesito ir filtrando un combobox al ir tecleando.
el combobox ya tendra la lista cargada, por ejemplo, tengo un combobox con los siguientes elementos:

Hamburguesa
Hamburguesa c/ queso
Quesadillas
Torta de pierna
Torta mixta
Torta ahogada
Paquete Torta con refresco
Refresco
Café
Té

esos serian mis elementos, ahora por ejemplo yo voy tecleando digamos
T o r t a mientras vaya escribiendo la palabra torta que me vaya filtrando
cuando ponga la 'T' que me deje todos los elementos que tengan una 't', cuando ya escriba 'to' que me deje unicamente los elementos que contengan ese conjunto de caracteres ('to') y ya que al final que escriba la palabra torta que me deje todos aquellos elementos que contengan la palabra torta.......desde ya muchas gracias por hacerme el trabajo!!!!! y espero haberme explicado......es en visual basic 6.0 ...

Personas como tú que defrente piden cosas, sin tal vez decir si alguien del foro te puede dar una idea, y defrente tan inutilmente entras al Foro de Vb6 y aún mas haces una rebuznancia de palabras diciendo que lo quieres todo en VB 6.0...

Triste tu vida ... mejor anda a otro foro... Aca no se piden las cosas, se investiga o se busca sugerencias

bueno nebire, me parece buena tu idea, igualmente la de zeekel
Vere cual de las 2 implementare, claro que tomando en cuenta que no se realizan reservas de productos o articulos, ya que no es una regla de negocio de la empresa el separar articulos, pero vale nebire muy interesantes aportes, los tendre en cuenta gracias igualmente a ambos...

Ante todo buenas colegas, se que este tema ya se ha tocado en el foro, pero la verdad es que no he hayado ninguna solución concreta...

Bueno ante todo decirles que mi problema es el siguiente:

Tengo una aplicación cliente-servidor corriendo en mas de 5 Pcs, y lo que quisiera es bloquear un registro, les pongo un ejemplo:

Tengo una tabla Productos con el campo Stock... (BD Ventas)
(* Esto solo es un ejemplo)

ID         DESCRIPCION              STOCK
--         ----------------              --------
1          MUEBLE XXXX                 2

Al momento en que 2 o 3 personas ingresan al Sistema y justamente en ese momento llegan 2 clientes y piden los 2 muebles cada uno en diferentes sucursales, en el Formulario de Ventas les aparecera 2 muebles a cada vendedor que este usando el sistema...
Logicamente el primero que haga la venta descargara el stock de muebles y el otro vendedor al momento de vender, obtendra un mensaje diciendo que ya se vendieron (previo controlador de errores)...

La idea es no hacer esperar al cliente para decirle despues que se acabo el stock...

Ojala me haya dejado entender
Lo que quisiera es bloquear el registro, o de alguna forma especificar que ese registro esta siendo usado para una venta...

Gracias de antemano

mmmm bueno Mandrak3, cuando usas un rs, solo haces referencia a una sola tabla, asi es que si deseas usar 2 tablas no te queda de otra que crear un dataenvironment donde crees la agrupacion por ejemplo, si fuera Boletas y DetalleBoletas
Creas un comando para Boletas y un comando secundario para DetalleBoletas y en el comando DetalleBoletas creas la relacion...

Pero seguramente tu haces filtros o busquedas en tu rs, y deseas que eso se muestre en el Datareport, lo unico que tienes que hacer, y a mi me funciona es cambiarle el SHAPE por tu propia consulta (rsBoleta.source) al Comando Primario del DataEnvironment... Ejemplo:

Si seguimos con el Ejemplo de la Boleta y DetalleBoleta

' *********************************************************************************************
Dim SQLDetalleBoleta as string, SQLBoleta as string 'Almaceno las consultas del rsBoleta
Dim SQLCons as string 'Nuevo Consulta SHAPE para el comando primario
Dim IDs as string 'Almaceno los IDs de Boletas que filtras

'Saco todos los Ids de Boletas filtrados en el RsBoleta, para mostrar el detalle solo de ellos
rsBoleta.MoveFirst
  Do While Not rsBoleta.EOF
    IDs = IDs & rsBoleta!IDBoleta & ","
    rsBoleta.MoveNext
Loop
  IDs = Mid(IDs, 1, (Len(IDs) - 1))
  rsBoleta.MoveFirst

SQLBoleta = RsBoleta.Source
SQLDetalleBoleta = "Select * from DetalleBoleta where IDBoleta in(" & IDs & ") order by IDBoleta"
 
SqlCons = " SHAPE {" & SQLBoleta & "}  AS Boletas APPEND ({" & SQLDetalleBoleta & "}  AS DetalleBoletas RELATE 'IDBoleta' TO 'IDBoleta') AS DetalleBoletas"

DeConsultas.rsBoletas.Close
DeConsultas.rsBoletas.Source = SqlCons
DeConsultas.rsBoletas.Open

DrContratos.Show

' *********************************************************************************************
" SHAPE {" & SQLBoleta & "}  AS Boletas APPEND ({" & SQLDetalleBoleta & "}  AS DetalleBoletas RELATE 'IDBoleta' TO 'IDBoleta') AS DetalleBoletas"

Esta cadena que le paso a mi variable SQLCons, si mas no recuerdo es el source del DEConsultas.rsBoletas.source, a esta yo la reemplazo...
Claro que antes tienes que haber diseñado tu reporte tal como si lo fueras a usar con un datareport bindeado por un dataenvironment.

Bueno espero me hayas entendido algo, a y lo de la extracción de las IDs, se puede mejorar, solo fue un ejemplo, espero haBerte ayudado en algo... Suerte

Buenas colegas, en esta oportunidad con cierta duda
He terminado de hacer un codigo para Imprimir Factura/Boleta, lo probe en una impresora canon del trabajo y corrio bien, cuando la lleve a otra PC con otra Impresora de la MIsma marca, me sale desalineado, y quisiera saber en que estoy fallando, lo que hago es solo darl en ScaleMode = 4, pero en un foro leí que debería ponerle el tamaño de la Factura o de la Boleta en ScaleHeigh y ScaleWIdth del obj. Printer, pero quisiera saber porque el fallo, el codigo les pongo a continuación:


' ******************************************************************************************************** INICIO

Private Sub CmdImprimir_Click()
  On Error GoTo Impresion
  '*********************************************** Verificando Datos Completos
  'MsgBox Printer.ScaleHeight & " ------ " & Printer.ScaleWidth
'  MsgBox Printer.ScaleMode
  'MsgBox Printer.CurrentX & " ------ " & Printer.CurrentY
  If CboTipoDoc.Text = "FACTURA DE VENTA" Then
    '********************************* Verificando DATOS DEL CLIENTE
    If Trim(TxtCliente.Text) = "" Then
      MsgBox "Ingrese la Razón Social del Cliente", vbInformation, "Faltan Datos"
      TxtCliente.SetFocus
      Exit Sub
    End If
    '********************************* Verificando RUC DEL CLIENTE
    If Len(TxtRUC.Text) = 0 Then
      MsgBox "Ingrese el RUC del Cliente", vbInformation, "Faltan Datos"
      TxtRUC.SetFocus
      Exit Sub
    Else '********************************* Verificando RUC DEL CLIENTE CON 11 CARACTERES
      If Len(TxtRUC.Text) <> 11 Then
        MsgBox "El RUC del Cliente debe tener 11 dígitos", vbInformation, "Faltan Datos"
        TxtRUC.SetFocus
        Exit Sub
      End If
    End If
    'Printer.ScaleHeight = 1600 'Alto
    'Printer.ScaleWidth = 2120 'Ancho
  Else 'Si es BOLETA DE VENTA
    'Printer.ScaleHeight = 1580 'Alto
    'Printer.ScaleWidth = 1060 'Ancho
  End If
  '*********************************************** Imprimiendo
  Printer.ScaleMode = 4
  Printer.FontName = "Microsoft Sans Serif"
  Printer.FontSize = 8
  '************************************************ C A B E Z E R A *************************************
  '///////////////////////////////////////////////Imprimiendo el Nombre del Cliente
  Printer.CurrentX = 10 'Horizontal
  Printer.CurrentY = 9.5 'Vertical
  Printer.Print Trim(TxtCliente.Text)
  '///////////////////////////////////////////////Imprimiendo la Direccion del Cliente
  If Trim(TxtDir.Text) <> "" Then
    Printer.CurrentX = 12 'Horizontal
    Printer.CurrentY = 11 'Vertical
    Printer.Print Trim(TxtDir.Text)
  End If
  '///////////////////////////////////////////////Imprimiendo la Fecha de la Cabezera
  '***********************************************
    Printer.CurrentX = 64.5 'Horizontal
    Printer.CurrentY = 11.5 'Vertical
    Printer.Print CStr(Day(DTFecha.Value))
    '*************************************
    Printer.CurrentX = 73 'Horizontal
    Printer.CurrentY = 11.5 'Vertical
    Printer.Print CStr(MonthName(Month(DTFecha.Value)))
    '*************************************
    Printer.CurrentX = 94 'Horizontal
    Printer.CurrentY = 11.5 'Vertical
    Printer.Print Right(CStr(Year(DTFecha.Value)), 1)
  '***********************************************
  '///////////////////////////////////////////////Imprimiendo el RUC del Cliente
  If Trim(TxtRUC.Text) <> "" Then
    Printer.CurrentX = 11 'Horizontal
    Printer.CurrentY = 12.5 'Vertical
    Printer.Print Trim(TxtRUC.Text)
  End If
  '///////////////////////////////////////////////Imprimiendo los Articulos
  RsTemp.MoveFirst
  Dim x As Single
  x = 16 'Vertical para todo el item
  Do While Not RsTemp.EOF
    '************************************
    'Cantidad
    Printer.CurrentY = x 'Vertical para todo el item
    Printer.CurrentX = 6 'Horizontal
    Printer.Print RsTemp(0)
    'Descripción
    Printer.CurrentY = x 'Vertical para todo el item
    Printer.CurrentX = 15 'Horizontal
    Printer.Print RsTemp(1)
    'Precio Unitario
    Printer.CurrentY = x 'Vertical para todo el item
    Printer.CurrentX = 73 'Horizontal
    Printer.Print RsTemp(2)
    'Importe
    Printer.CurrentY = x 'Vertical para todo el item
    Printer.CurrentX = 85 'Horizontal
    Printer.Print RsTemp(3)
    '************************************
    x = x + 1.5
    RsTemp.MoveNext
  Loop
  '///////////////////////////////////////////////Imprimiendo los Letras-Precio
  Printer.CurrentX = 10 'Horizontal
  Printer.CurrentY = 31 'Vertical
  Printer.Print Trim(LblMsje.Caption)
  '///////////////////////////////////////////////Imprimiendo Subtotal
  Printer.CurrentX = 85 'Horizontal
  Printer.CurrentY = 31 'Vertical
  Printer.Print Trim(TxtSubtotales.Text)
  '///////////////////////////////////////////////Imprimiendo IGV
  If Val(TxtIgv.Text) > 0 Then
    Printer.CurrentX = 85 'Horizontal
    Printer.CurrentY = 32.5 'Vertical
    Printer.Print Trim(TxtIgv.Text)
  End If
  '///////////////////////////////////////////////Imprimiendo Total
  Printer.CurrentX = 85 'Horizontal
  Printer.CurrentY = 34 'Vertical
  Printer.Print Trim(TxtTotal.Text)
  '///////////////////////////////////////////////Imprimiendo la Fecha del Detalle
  '***********************************************
    Printer.CurrentX = 25 'Horizontal
    Printer.CurrentY = 34 'Vertical
    Printer.Print CStr(Day(DTFecha.Value))
    '*************************************
    Printer.CurrentX = 32 'Horizontal
    Printer.CurrentY = 34 'Vertical
    Printer.Print Right("0" & CStr(Month(DTFecha.Value)), 2)
    '*************************************
    Printer.CurrentX = 37.5 'Horizontal
    Printer.CurrentY = 34 'Vertical
    Printer.Print Right(CStr(Year(DTFecha.Value)), 2)
  '***********************************************
  '******************************************************************************************************
  Printer.EndDoc
  Exit Sub
Impresion:
  If Err.Number = 482 Then
    MsgBox "No Existe ninguna Impresora instalada en su PC", vbExclamation, "Fallo la Impresión"
  Else
    MsgBox Err.Description, vbExclamation, "Fallo la Impresión"
    TxtCliente.SetFocus
  End If
End Sub

Ante todo Buenas colegas...

Les Escribo porque me tope con un pequeño incoveniente en el desarrollo de un sistema que estoy implementando...
Tengo un MdiPrincipal (Contenedor), y dentro de el un WebBrowser (Con una Animacion), cuando cargo los Formularios Hijos (MdiChildren), no me los muestra porque supuestamente el Control WebBrowser me los tapa...

Alguno de ustedes les paso algo parecido...?

Tuve en mente utilizar la Api SetParent para meter los MdiChildren dentro del WebBrowser, pero no me dio resultado...

Busque en la Web pero ningun resultado... o tal vez no busque bien, espero su ayuda...

Gracias ...!
 

Buenas a todos, les explico...
Estoy implementando una interfaz amigable y deseo utilizar un Ocx para mis botones llamado KewlButtonz.ocx, bueno lo usaba bien en el vb 6.0 , lo agrego en el VB 2005(Elegir componente- referencias), me aparece en la barra de controles, pero al hacer click y ponerlo en el Formulario me salta un error como si no estuviera registrado, y eso que como ya puse anteriormente, lo registre, con regsvr32, y luego lo jale desde el mismo vb 2005...
Alguien podria explicarme porke sucede esto, o es que el Control no funciona para este LP o tengo ke hacer otra serie de pasos....
Gracias de Antemano...
 

A ver si entendi, lo que tengo que hacer es abrir el Archivo Setup.lst que genera el Instalador del VB, luego reunir esas dependencias en una carpeta y manos a la obra con el Inno Setup...
Don digame si eso es lo ke debo hacer y pues si es asi kiciera ke me proporcionaran información sobre Inno Setup porque busque en Internet y lei tambien en el Foro, pero la verdad no encontre mucho, como para una persona ke recien se esta iniciando en la creación de instaladores...

Gracias de Antemano... y Disculpen la Molestia

a verdad pongo al pie la Lista de el Archivo Setup .LST (A ver si pueden darme una mano, Grax   )

[Bootstrap]
SetupTitle=Instalar
SetupText=Copiando archivos, espere.
CabFile=MegaComputer.CAB
Spawn=Setup1.exe
Uninstal=st6unst.exe
TmpDir=msftqws.pdw
Cabs=1

[Bootstrap Files]
File1=@VB6STKIT.DLL,$(WinSysPathSysFile),,,7/15/00 12:00:00 AM,101888,6.0.84.50
File2=@COMCAT.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,6/1/98 12:00:00 AM,22288,4.71.1460.1
File3=@VB6ES.DLL,$(WinSysPath),,$(Shared),10/2/00 12:00:00 AM,119568,6.0.89.88
File4=@STDOLE2.TLB,$(WinSysPathSysFile),$(TLBRegister),,6/3/99 12:00:00 AM,17920,2.40.4275.1
File5=@ASYCFILT.DLL,$(WinSysPathSysFile),,,3/8/99 12:00:00 AM,147728,2.40.4275.1
File6=@OLEPRO32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,3/8/99 12:00:00 AM,164112,5.0.4275.1
File7=@OLEAUT32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/12/00 12:00:00 AM,598288,2.40.4275.1
File8=@msvbvm60.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,11/2/06 4:46:10 AM,1376528,6.0.97.97

[IconGroups]
Group0=MegaComputer
PrivateGroup0=-1
Parent0=$(Programs)

[MegaComputer]
Icon1="MegaComputer.exe"
Title1=MegaComputer
StartIn1=$(AppPath)

[Setup]
Title=MegaComputer
DefaultDir=$(ProgramFiles)\MegaComputer
AppExe=MegaComputer.exe
AppToUninstall=MegaComputer.exe

[Setup1 Files]
File1=@Animacion.swf,$(AppPath)\Anim,,,1/16/08 10:05:25 PM,37013,0.0.0.0
File2=@MDAC_TYP.EXE,$(AppPath),,$(Shared),8/7/98 12:00:00 AM,6477888,4.72.3110.0
File3=@CMDLGES.DLL,$(WinSysPath),,$(Shared),7/28/98 12:00:00 AM,33280,6.0.81.63
File4=@comdlg32.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),3/9/04 4:45:36 PM,152848,6.1.97.82
File5=@DATGDES.DLL,$(WinSysPath),,$(Shared),7/28/98 12:00:00 AM,30208,6.0.81.63
File6=@STDFTES.DLL,$(WinSysPath),,$(Shared),7/31/98 12:00:00 AM,6656,6.0.81.63
File7=@msstdfmt.dll,$(WinSysPath),$(DLLSelfRegister),$(Shared),2/23/04 12:00:00 AM,119808,6.1.97.82
File8=@MSDATGRD.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),3/9/04 12:00:00 AM,275216,6.1.97.82
File9=@MSCC2ES.DLL,$(WinSysPath),,$(Shared),7/28/98 12:00:00 AM,60928,6.0.81.63
File10=@mscomct2.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),3/9/04 4:45:42 PM,662288,6.1.97.82
File11=@KewlButtonz.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),11/29/05 4:56:04 AM,98304,1.0.0.0
File12=@SmartMenuXP.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),11/6/01 7:57:18 AM,233472,1.8.0.5
File13=@MSCMCES.DLL,$(WinSysPath),,$(Shared),7/28/98 12:00:00 AM,140800,6.0.81.63
File14=@mscomctl.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),3/9/04 4:45:46 PM,1081616,6.1.97.82
File15=@MSBIND.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),2/23/04 12:00:00 AM,78848,6.1.97.82
File16=@MSDERUN.DLL,$(CommonFiles)\designer,$(DLLSelfRegister),$(Shared),7/15/00 12:00:00 AM,136192,6.0.88.4
File17=@DBRPRES.DLL,$(WinSysPath),,$(Shared),7/28/98 12:00:00 AM,33280,6.0.81.63
File18=@MSDBRPTR.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),2/23/04 12:00:00 AM,322560,6.1.97.82
File19=@Flash9b.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),11/9/06 5:46:26 PM,2262648,9.0.28.0
File20=@SmartSubClass.dll,$(WinSysPath),$(DLLSelfRegister),$(Shared),4/27/01 2:11:42 PM,24576,1.0.0.6
File21=@SmartMenuXP.dll,$(WinSysPath),$(DLLSelfRegister),$(Shared),10/13/01 11:48:34 PM,28672,2.7.0.4
File22=@msado28.tlb,$(WinSysPath),,$(Shared),11/2/06 3:11:34 AM,77824,6.0.6000.16386
File23=@MegaComputer.exe,$(AppPath),,,1/31/08 9:51:43 PM,1728512,1.0.0.0

; Puede eliminar las siguientes líneas para obtener espacio adicional
; con el fin de personalizar este archivo en un disco de instalación completa.
;
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Hola Gentita del ƒoro...
Quisiera que me ayuden a encontrar el codigo para hacer que cada columna de un datagrid se adapte al contenido del registro al hacer doble click en la separacion o cuando setee los datos.. A ver si me dejo entender...

De antemano Gracias Salu2