16,749
社区成员
发帖
与我相关
我的任务
分享
procedure TnPOP_DCzuzhuang.FormActivate(Sender: TObject);
begin
(cxGrid1DBTableViewtype.Properties as TcxComboBoxProperties).Items.Clear;
qry_type.Close;
qry_type.SQL.Text:='select distinct itemname from t_mi_item';
qry_type.Open;
while not qry_type.Eof do
begin
if length(trim(qry_type.fieldbyname('itemname').AsString))<>0 then
(cxGrid1DBTableViewtype.Properties as TcxComboBoxProperties).Items.Add(qry_type.fieldbyname('itemname').AsString);
qry_type.Next;
end;
end;