https://foro.gambas-es.org/viewtopic.php?f=4&t=7945&p=47799#p47799
-----------------------------------
imagomundi
Domingo, 05 Abril 2020, 19:45

Evento Data
-----------------------------------
Hola gente, después de bastante tiempo estoy intentando actualizar un pequeño programa que hice para uso personal, para lo cual me he planteado primero entender el uso del evento DATA y después, el uso de claves foráneas en la base de datos, me he bajado el ejemplo que puso hace un tiempo Shordi para intentar comprender el uso, no tengo error al correr el formulario, pero sí lo obtengo en los datos que muestra el grid, en todos aparece la palabra False, entiendo (o al menos es lo que creo) se trata de un error de valor, pero en lo concreto no logro entender que hago mal, si alguien puede ver el código y entiende donde me equivoco, agradezco me lo indiquen. También pongo una captura de pantalla con el resultado del formulario de muestra.

Gracias de antemano

[code linenumbers=false syntax=gambas]

' Gambas class file

Private cx As New Connection
Private rs As Result
Private id As Integer

Public Sub Form_Open()
  Dim sql As String
    
  'PROVEEDORES
  cmbRELACION.Add("Contacto")
  cmbRELACION.Add("Cliente")
  cmbRELACION.Add("Proveedor")
  cmbRELACION.Add("Cliente/Proveedor")

  'PROVEEDORES
  cmbPOSICIONFISCAL.Add("Consumidor final")
  cmbPOSICIONFISCAL.Add("Exento")
  cmbPOSICIONFISCAL.Add("Responsable inscripto")

  'DISEÑO DEL GRID DE PERSONAS FISICAS
  With tbPERSONASFISICAS
  .Header = tbPERSONASFISICAS.Horizontal
  .Grid = True
  .Rows.Count = 0
  .Columns.Count = 15
  .Header = True
  .Columns[0].Title = "" 'ID
  .Columns[0].Width = 0
  .Columns[1].Title = "" 'Relación
  .Columns[1].Width = 0
  .Columns[2].Title = "" '>> Apellido, Nombre
  .Columns[2].Width = 400
  .Columns[3].Title = "" 'Domicilio
  .Columns[3].Width = 0
  .Columns[4].Title = "" 'Código Postal
  .Columns[4].Width = 0
  .Columns[5].Title = "" 'Localidad
  .Columns[5].Width = 0
  .Columns[6].Title = "" 'Provincia
  .Columns[6].Width = 0
  .Columns[7].Title = "" 'País
  .Columns[7].Width = 0
  .Columns[8].Title = "" '>> Telefono1
  .Columns[8].Width = 150
  .Columns[9].Title = "" '>> Telefono2
  .Columns[9].Width = 150
  .Columns[10].Title = "" 'email
  .Columns[10].Width = 0
  .Columns[11].Title = "" 'website
  .Columns[11].Width = 0
  .Columns[12].Title = "" 'cuil cuit
  .Columns[12].Width = 0
  .Columns[13].Title = "" 'cbu
  .Columns[13].Width = 0
  .Columns[14].Title = "" 'posicion fiscal
  .Columns[14].Width = 0
  End With
  
  cx = Mconex.conectar()
  sql = "select IDPERSONAFISICA as ID from PERSONAFISICA"
  rs = cx.Exec(sql)
  cx.Commit

End

Public Sub Form_Activate()
  
  tbPERSONASFISICAS.Rows.Count = rs.Count
  
End

Public Sub tbPERSONASFISICAS_Data(Row As Integer, Column As Integer)
  
  rs.MoveTo(Row)
  tbPERSONASFISICAS.Data.Text = Str(rs[tbPERSONASFISICAS.Columns[Column].Text])
  
End

[/code]

[img]https://foro.gambas-es.org/files/images/240/captura_de_pantalla_2020_04_05_15_32_34.png[/img]


