怎样？

Question

procedure TFrmAdd.FormCreate(Sender: TObject);
var s0,s1:string;
begin
s0:='select  classid=area from SYST_DictCode_Detail';
s1:='select classid=clienttype from SYST_DictCode_Detail';
  CbBClientType.Items.Clear;
  CombBArea.Items.Clear;
  dm_jcxx.ADOTSYST_DictCode_Detail.open;
  dm_jcxx.ADOTSYST_DictCode_Detail.First;
   while not dm_jcxx.ADOTSYST_DictCode_Detail.Eof do
     begin
       CombBArea.Items.Add(s0);
       CbbclientType.Items.Add(s1);
       dm_jcxx.ADOTSYST_DictCode_Detail.Next;
     end;end;
错在那理，怎么combobox中读不出东西啊

Answer 1

dm_jcxx.ADOTSYST_DictCode_Detail.sql.text := s1/s0

Answer 2

while Not(DataM.ci_b_t.Eof) do
  begin
    SelCiPai_ComboBox.Items.Add(DataM.ci_b_t.FieldByName('cipai').AsString);
    DataM.ci_b_t.Next;
  end;

Answer 3

procedure TFrmAdd.FormCreate(Sender: TObject);
var s0,s1:string;
begin
  s0:='select  classid=area from SYST_DictCode_Detail';
  CbBClientType.Items.Clear;
  dm_jcxx.ADOTSYST_DictCode_Detail.sql.text:=s0;
  dm_jcxx.ADOTSYST_DictCode_Detail.open;
  dm_jcxx.ADOTSYST_DictCode_Detail.First;
   while not dm_jcxx.ADOTSYST_DictCode_Detail.Eof do
   begin
       CombBArea.Items.Add(s0);
       CbbclientType.Items.Add(dm_jcxx.ADOTSYST_DictCode_Detail.FieldByname('classid').asstring);
       dm_jcxx.ADOTSYST_DictCode_Detail.Next;
   end;
同样的办法加入另一个下拉框

Answer 4

你到底要做什么？
s1, s0语句还没加到ADOTSYST_DictCode_Detail中procedure TFrmAdd.FormCreate(Sender: TObject);
var s0:string;
begin
  s0:='select  area, clienttype from SYST_DictCode_Detail';  CbBClientType.Items.Clear;
  CombBArea.Items.Clear;  with dm_jcxx.ADOTSYST_DictCode_Detail do
  begin
    SQL.Clear;
    SQL.Add(s0); 
    open;
    Frist;
    while not Eof do
    begin
      CombBArea.Items.Add(FieldByName('area').AsString);
      CbbclientType.Items.Add(FieldByName('clienttype').AsString);
      Next;
    end;
  end;

Answer 5

楼上两位说的不合楼主的CombBArea.Items.Add(s0)一样吗？
我估计是象foxnt说的那样，dm_jcxx.ADOTSYST_DictCode_Detail中没有数据所以那个循环根本不执行
楼主可用
dm_jcxx.ADOTSYST_DictCode_Detail.IsEmpty来判断一下，看看是否是这样
另外： foxnt  升级了？呵呵……

Answer 6

哦，此话是对
 
cornermoss(角落的青苔：时间流过岁月，冲不退不淡是我热情^ō^) 和cxz7531(追求未知)说的 ：）

Answer 7

同意cxz7531(追求未知) 和 zxtyhy(地图鱼) 的做法，

Answer 8

呵呵，仔细一看，cxz7531(追求未知)原来和我们说的是一回事sorry