DBCombobox问题。

Question

已设置了datasource及dataField.
加入如下事件
procedure TfrmParts.DBComboBox1DropDown(Sender: TObject);
begin
  Application.CreateForm(TfrmTemSel,frmTemSel);
  frmTemSel.ShowModal;
  If frmTemSel.ModalResult=mrOk then
    dbCOMBOBOX.text := frmTemSel.sValue;    
  frmTemSel.Free;
end;//这样的话为什么在dbCombobox1中根本就见到新赋的值？

Answer 1

已设置了datasource及dataField.
加入如下事件
procedure TfrmParts.DBComboBox1DropDown(Sender: TObject);
begin
  Application.CreateForm(TfrmTemSel,frmTemSel);
  frmTemSel.ShowModal;
  If frmTemSel.ModalResult=mrOk then
    dbCOMBOBOX.Field.AsString:= frmTemSel.sValue;    
  frmTemSel.Free;
end;

Answer 2

请检查一下是否有
dbCOMBOBOX.dataSource.dataet.edit
才能赋值

Answer 3

按zhoutian618(周天) 的方法为什么要加上这句就OK了？dbCombobox1.Refresh;