如何将数据库中某一字段的数据用DBComboBox或ComboBox显示出来(最好不要写代码!) 我目前是使用这个方法实现的! var JSB,I:Integer; JSB:=0; I:=0; DM_Data.T_BuMen.Open; I:=DM_Data.T_BuMen.RecordCount; DM_Data.T_BuMen.FindFirst; while JSB<I do begin F_Father.DBComboBox1.Items.Append(DM_Data.T_BuMen['BBuMen']); DM_Data.T_BuMen.FindNext; JSB:=JSB+1; end; 但是,我选择其中一项时DBComboBox中显示为空白的!
DataModule1.Qy_class.Open; CB_class.Items.Clear; while not DataModule1.Qy_class.eof do begin CB_class.Items.Add(DataModule1.Qy_class.Fieldbyname('class').asString); next; end;
begin F_Father.DBComboBox1.Items.Clear DM_Data.T_BuMen.Open; DM_Data.T_BuMen.First; if DM_Data.T_BuMen.RecordCount >0 then begin while not DM_Data.T_BuMen.eof do begin F_Father.DBComboBox1.Items.Add(DM_Data.T_BuMen.FieldByName('BBuMen').asstring); DM_Data.T_BuMen.Next ; end; end; end;