請問

該如何重劃Grid

procedure TForm1.DBLookupComboBox3CloseUp(Sender: TObject);
begin
Table1.Filtered:=False;
Label6.Caption:=DBLookupComboBox3.KeyValue;
if DBGrid5.Fields[4].value=DBLookupComboBox3.KeyValue
then
begin
Table1.Filter:='Class=''' DBLookupComboBox3.KeyValue '''';
Table1.Filtered:=True;

end;

end;

我希望依照combobox上的keyvalue來和資料表中的一個Class欄位比較數字

若相同

則show出資料庫中此筆資料

點combox內另一個選項則Grid重新顯示

請問該怎麼作

如果是元件的重繪的話

試看看 update的方法是不是你要的

如 Grid1.update

不行耶!

若配合以下procedure

該如何使用

procedure TForm1.DBGrid5DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);1

procedure TForm1.DBLookupComboBox3CloseUp(Sender: TObject); //按照組別查詢病患
begin
Table1.Filtered:=False;
Label6.Caption:=DBLookupComboBox3.KeyValue;
if DBGrid5.Fields[4].value=DBLookupComboBox3.KeyValue
then
begin
//Table1.Filter:='Class=''' DBLookupComboBox3.KeyValue '''';
//Table1.Filtered:=True;

end;

end;

簡單吧...