我把popmenu内的项读出到checklistbox中 CheckListBox6.Clear; for n := 0 to frmmain.pdial.Items.Count - 1 do CheckListBox6.Items.Add(frmmain.pdial.Items[n].Caption); ，想请教如何把打勾的记录存入资料库，然后在流览记录的时候再读出来，使先前存入资料库中 的popmenu项又勾选出来？

您好﹗    您是要在CheckListBox中判斷哪一些是打勾的﹐并存入資料庫中嗎﹖

procedure TForm1.Button1Click(Sender: TObject);
Var
  I, J : Integer;
  MyString : String;
begin
  For I:=0 to (CheckListBox1.Items.Count-1) do
    begin
      if CheckListBox1.Checked[I] then
        begin
          MyString := CheckListBox1.Items.Strings[I];
          ADOQuery1.Close;
          ADOQuery1.SQL.Add('Insert Into 資料表 欄位名 ');
          ADOQuery1.SQL.Add('Values ''' MyString ''' ');
          ADOQuery1.ExecSQL;
        end;
    end;
  For J:=0 to CheckListBox1.Items.Count-1 do
      CheckListBox1.Checked[J] := False;
end;

參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

请问cashxin2002，我该如何读出来呢？

引言: 请问cashxin2002，我该如何读出来呢？

您好! 請問您要讀出到哪里? ===================== 努力,相信會獲得美麗! 忻晟

我把记录存入到资料库中的A栏位当中了，记录如下 批次开单,生产进度,电镀异常 我现在在dbgrid上选择某一列，我想把A栏中的记录反应到相对应的checklistbox中。就是有相对应的字就勾选出来

您好!    批次開單,生產進度,電鍍異常是一筆資料的內容嗎? 您需要把這筆資料的內容分開, 再作為CheckListBox的每一項的內容, 小弟想是可以把此筆資料先存入一個字串變數中, 然后再利用,號來做判斷劃分, 再分別作為CheckListBOx的Items內容. 參考看看! ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟