1. Saya memakai DB Grid untuk menampilkan sebuah hasil query yang nantinya bisa difilter sesuai kata yang berisi di editbox. procedure TfrmItemSelection.FormShow(Sender: TObject); var itemname : string; begin edSearch.Clear; itemname := '%'+trim(edSearch.Text)+'%'; dtmItemSelection.qryItemList.Close; dtmItemSelection.qryItemList.Parameters.ParamByName('item_name').Value := itemname; dtmItemSelection.qryItemList.Open; edSearch.SetFocus; end; procedure TfrmItemSelection.edSearchKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); var itemname : string; begin itemname := '%'+trim(edSearch.Text)+'%'; dtmItemSelection.qryItemList.Close; dtmItemSelection.qryItemList.Parameters.ParamByName('item_name').Value := itemname; dtmItemSelection.qryItemList.Open; end; Cara tersebut berjalan dengan lancar. Tapi ketika saya implementasikan cara tersebut pada masalah yang sedikit berbeda, jadi ga jalan. procedure TfrmAccountSelection.FormShow(Sender: TObject); var accname : string; begin if ledgercomp = 1 then begin dbgAccountSelection.DataSource := dtmAccountSelection.dscAccountList1; accname := '%'+trim(edAccName.Text)+'%'; dtmAccountSelection.qryAccountList1.Close; dtmAccountSelection.qryAccountList1.Parameters.ParamByName('accname').Value := accname; dtmAccountSelection.qryAccountList1.Open; end else if ledgercomp = 2 then begin dbgAccountSelection.DataSource := dtmAccountSelection.dscAccountList2; accname := '%'+trim(edAccName.Text)+'%'; dtmAccountSelection.qryAccountList2.Close; dtmAccountSelection.qryAccountList2.Parameters.ParamByName('accname').Value := accname; dtmAccountSelection.qryAccountList2.Open; end; edAccName.SetFocus; end; Hasilnya kosong begitu aja. Ga ada error (misalkan dibilang parameternya salah atau apa gitu). Kira-kira kenapa ya ? Ada kaitannya dengan pas nge-set datasourcenya itu ga ? 2. Di string grid bisa set focus ke cell dengan posisi tertentu ga ? Gimana caranya ? Trus ada event "lost focus" dari cell tertentu ga ? Soalnya saya punya kepentingan ketika orang ngetik sebuah angka di sebuah cell, angkanya itu ditampilin di label. Trus kalo dia ngetik angka lain lagi di cell di bawahnya, angka di label ditambahin dengan angka di cell tersebut. Dst.

2. event lost focus , pakai aja OnExit, dan pada saat exit buat pengulangan data misal datasaource.dataset.firs; while not datasource1.dataset.eof do begin label1.caption:=Floattostr(strtofloat((label1.caption)+datasource1.dataset..datafield[1]); datasource1.dataset.next; end;

Untuk no 2, udah dicoba. Plus saya tambahin di event KeyPress (key =#13).Thanks ya. Untuk no 1 gimana ya ? Ada yang bisa bantu ?

untuk no. 1 coba dicek result 'ledgercomp' nya dulu.

@cyber_hecker : datasource1 isinya query1, yakni : select from tb_m_account where detailid in ('100101001','100101002','100201001','100201002','100301001','100301002') and accname like :accname datasource2 isinya query2, yakni : select from tb_m_account where accname like :accname Ada 2 component yang ngebuka frmAccountSelection itu, tapi penanganan tiap komponennya ingin berbeda-beda. Kalo ledgercomp = 1, maka makenya yang datasource1 yang cuma nampilin angka dengan kepala 1. Kalo datasource2 itu nampilin semua angka.... @ndenkltop : ... jadi tergantung komponen apa yang manggil frmAccountSelection, isi ledgercomp-nya itu emang bisa satu 1 dan 2, dan kayaknya dua-duanya ga jalan.

dtmAccountSelection.qryAccountList1.Parameters.ParamByName('accname'). Value := accname; <<< cobain baris ini diganti: dtmAccountSelection.qryAccountList1.Parameters.ParamByName('accname'). Value := QUOTEDSTR(accname); atau bisa jadi tidak ada data yang memenuhi syarat.