Hola amigos del club, aquí les planteo lo que pretendo hacer para que mes den una ayudita: Tengo una tabla con los tipos de nominas lleno el checklistbox y quiero asignarle el id_nomina de la tabla para cuando marque un tipo saber que id tiene mi codigo es el siguiente:
Código Delphi
[-]
with CheckListBox1 do
begin
st.SQL.Text:='';
st.SQL.Text:='select * from nf_cuentasnom order by descripcion';
st.Open;
st.First;
while not st.Eof do
begin
Items.Add(st.fieldbyname('descripcion').AsString);
Items.Index:=(st.FieldByName('nomina').AsInteger); st.Next;
end;
end;
end;
var i:integer;
begin
with CheckListBox1 do
begin
for i:=0 to Items.Count-1 do
begin
if Checked[i]then
begin
id_nom:=ItemIndex; end;
end;
end;
end;
Nota: uso sql Server 2000, delphi 7 y ado