Checklistbox
Hola a todos espero que esten pasandolo divertido....
Quisiera que me ayudaron con lo siguiente; quiero cargar en un tchecklistbox el nombre del fabricante despues que halla hecho el filtro el la tabla... el programa corre, no envia error pero a la hora de cargar los nombres de los fabricantes no hace nada
De antemano se le agradece su colaboracion
posicion1 := pos('-',cbgrupocomercial.Text);
Showmessage(inttostr(posicion1));
tblFabricantes.Close;
tblFabricantes.SQL.clear;
tblFabricantes.SQL.Add('select * from prueba');
tblFabricantes.SQL.Add('Where iyid = '+coma+'posicion1'+coma);
posicion2 := pos(' ',cbDepartamento.Text);
tblFabricantes.SQL.Add('and class='+coma+Copy(cbDepartamento.Text,1,posicion2-1)+coma);
//Showmessage(Copy(cbGrupoComercial.Text,1,posicion-1)+' '+Copy
(cbDepartamento.Text,1,posicion-1));
tblFabricantes.Open;
tblfabricantes.First;
chkFabricantes.Items.clear;
while not tblFabricantes.Eof do
begin
chkFabricantes.Items.Add(tblfabricantesMFABR.AsString);
tblFabricantes.Next;
end;
|