Os anexo el codigo que ejecuto y el que debería ejecutar.
PUBLIC PROCEDURE NuevoBoton()
DIM i AS Integer
ME.btn = NEW Button(ME) AS "btnDni"
ME.btn.Text = ME.BuscarDni
ME.btn.W = 120
ME.btn.H = 21
END
PUBLIC SUB ToolButton5_Click()
DIM $reg AS Integer
DIM $reg1 AS Integer
DIM TapaClave AS Integer
DIM nuevaclave AS String
DIM Mi_Boton AS Button
Form_Open()
ME.Text = "LISTADO DE EMPLEADOS"
SinDatos.Text = ME.Text
General.conectar()
Tabla.Visible = TRUE
Tabla.Columns.Count = 11
Tabla.Columns[0].Text = "D.N.I."
Tabla.Columns[0].Width = 100
Tabla.Columns[1].Text = "NOMBRE"
Tabla.Columns[1].Width = 200
Tabla.Columns[2].Text = "SEXO"
Tabla.Columns[2].Width = 100
Tabla.Columns[3].Text = "ALTA DESDE"
Tabla.Columns[3].Width = 100
Tabla.Columns[4].Text = "NACIO EL"
Tabla.Columns[4].Width = 100
Tabla.Columns[5].Text = "EN"
Tabla.Columns[5].Width = 100
Tabla.Columns[6].Text = "PROVINCIA"
Tabla.Columns[6].Width = 100
Tabla.Columns[7].Text = "DIRECCION"
Tabla.Columns[7].Width = 300
Tabla.Columns[8].Text = "DE"
Tabla.Columns[8].Width = 100
Tabla.Columns[9].Text = "PROVINCIA"
Tabla.Columns[9].Width = 100
Tabla.Columns[10].Text = "FOTOGRAFIA"
Tabla.Columns[10].Width = 100
General.Resultado = General.$con.Exec("SELECT * FROM `Empleados`")
ME.Botones = General.Resultado.Count
IF General.Resultado.Count < 1 THEN
SinDatos.Visible = TRUE
ENDIF
IF General.Resultado.Count > 0 THEN
FOR $reg = 0 TO General.Resultado.Count - 1 STEP 1
Tabla.Add($reg, General.Resultado!dni)
Tabla[$reg][1] = General.Resultado!nombre
Tabla[$reg][2] = General.Resultado!sexo
Tabla[$reg][3] = General.Resultado!Alta
Tabla[$reg][4] = General.Resultado!el_dia
Tabla[$reg][5] = General.Resultado!nacido_en
Tabla[$reg][6] = General.Resultado!provincia_de
Tabla[$reg][7] = General.Resultado!localidad_NA
Tabla[$reg][8] = General.Resultado!direccion
Tabla[$reg][9] = General.Resultado!provincia_NA
Tabla[$reg][10] = NuevoBoton()
ME.BuscarDni = General.Resultado!dni
General.Resultado.MoveNext
NEXT
ENDIF
Tabla.Refresh
General.$con.Close
END
DIM i AS Integer
ME.btn = NEW Button(ME) AS "btnDni"
ME.btn.Text = ME.BuscarDni
ME.btn.W = 120
ME.btn.H = 21
END
PUBLIC SUB ToolButton5_Click()
DIM $reg AS Integer
DIM $reg1 AS Integer
DIM TapaClave AS Integer
DIM nuevaclave AS String
DIM Mi_Boton AS Button
Form_Open()
ME.Text = "LISTADO DE EMPLEADOS"
SinDatos.Text = ME.Text
General.conectar()
Tabla.Visible = TRUE
Tabla.Columns.Count = 11
Tabla.Columns[0].Text = "D.N.I."
Tabla.Columns[0].Width = 100
Tabla.Columns[1].Text = "NOMBRE"
Tabla.Columns[1].Width = 200
Tabla.Columns[2].Text = "SEXO"
Tabla.Columns[2].Width = 100
Tabla.Columns[3].Text = "ALTA DESDE"
Tabla.Columns[3].Width = 100
Tabla.Columns[4].Text = "NACIO EL"
Tabla.Columns[4].Width = 100
Tabla.Columns[5].Text = "EN"
Tabla.Columns[5].Width = 100
Tabla.Columns[6].Text = "PROVINCIA"
Tabla.Columns[6].Width = 100
Tabla.Columns[7].Text = "DIRECCION"
Tabla.Columns[7].Width = 300
Tabla.Columns[8].Text = "DE"
Tabla.Columns[8].Width = 100
Tabla.Columns[9].Text = "PROVINCIA"
Tabla.Columns[9].Width = 100
Tabla.Columns[10].Text = "FOTOGRAFIA"
Tabla.Columns[10].Width = 100
General.Resultado = General.$con.Exec("SELECT * FROM `Empleados`")
ME.Botones = General.Resultado.Count
IF General.Resultado.Count < 1 THEN
SinDatos.Visible = TRUE
ENDIF
IF General.Resultado.Count > 0 THEN
FOR $reg = 0 TO General.Resultado.Count - 1 STEP 1
Tabla.Add($reg, General.Resultado!dni)
Tabla[$reg][1] = General.Resultado!nombre
Tabla[$reg][2] = General.Resultado!sexo
Tabla[$reg][3] = General.Resultado!Alta
Tabla[$reg][4] = General.Resultado!el_dia
Tabla[$reg][5] = General.Resultado!nacido_en
Tabla[$reg][6] = General.Resultado!provincia_de
Tabla[$reg][7] = General.Resultado!localidad_NA
Tabla[$reg][8] = General.Resultado!direccion
Tabla[$reg][9] = General.Resultado!provincia_NA
Tabla[$reg][10] = NuevoBoton()
ME.BuscarDni = General.Resultado!dni
General.Resultado.MoveNext
NEXT
ENDIF
Tabla.Refresh
General.$con.Close
END
La TABLA muestra correctamente los datos, pero no consigo que me ponga en el campo FOTOGRAFIA un boton con
el texto como valor el dni del empleado, quiero el boton porque si se quiere ver la Fogotgrafia del empleado, al pulsar el boton se abrirá un form con la imagen.
GRACIAS A TODOS