buenos tardes Marcos, aqui te doy mi humilde ayuda
creo que le das muchas vueltas mira:
create una variable en
PRIVATE contacto AS Result (esto te mostrara el resultado de tu tabla)
y esto va debajo de tu RETURN FALSE, colocando
ELSE
contacto = hconn.Exec("Select * from tutabla")
IF contacto.Available THEN Mostrar
END IF
tedebes crear esto para mostrar tus datos
PUBLIC SUB Mostrar()
txtusuario.text = tutabla["Usuario"]
txtmatricula.text = tutabla["Matricula"]
txtseccion.text = tutabla["Sección"]
txtplanta.text = tutabla["Planta"]
txtobservacion = tutabla["Observación"]
END
a parte del boton de nuevo create dos, uno que guarda y otro que cancela
PUBLIC SUB btnNuevo_Click()
Btnguardar.Visible = TRUE
Btncancelar.Visible = TRUE
txtusuario.text = ""
txtmatricula.text = ""
txtseccion.text = ""
txtplanta.text = ""
txtobservaciones.text = ""
END
luego:
PUBLIC SUB Btnguardar_Click()
DIM VarResult AS Result
VarResult = hconn.Create("tutabla")
VarResult["Usuario"] = txtusuario.Text
VarResult["Matricula"] = txtmatricula.Text
VarResult["Sección"] = txtseccion.Text
VarResult["Planta"] = txtplanta.Text
VarResult["Observaciones"] = txtobservaciones.Text
VarResult.Update
contacto = hconn.Exec("Select * from tutabla")
Btnguardar.Visible = FALSE
Btncancelar.Visible = FALSE
END
PUBLIC SUB Btncancelar_Click()
Btnguardar.Visible = FALSE
Btncancelar.Visible = FALSE
Mostrar
END
bueno camarada espero que esto te funcione, sin embargo no es todo mio tambien tiene que ver mucho mi camarada Pablo,
saludo.......