ComboBox.Items你一直加吗?不清空?

解决方案 »

  1.   

    重装delphi算了,看看是不是这个问题。
      

  2.   

    关注结果: ComboBox.Items你一直加吗?不清空?
      

  3.   

    ComboBox是不是被撑炸了?!
    先清一下试试:
        ComboBox.Items.Clear;
      

  4.   

    将ComboBox.Items.Clear;加在你这个处理过程的最前面,如果还不行,我建议你重装Delphi.三少 :o)
      

  5.   

        不妨将你的ComboBox.Items.Add(query.fieldbyname('id').asstring);
        改成Combobox.Items.Add(query.fields.fields[0].asstring);
        (如果域‘id’是在第一个位置上的话,其他情况依此类推了)
        Happy new year!
      

  6.   

    建议您访问www.etechbase.net/tech,里面有很多资料,也许可以解决您的问题。
    访问http://168.168.18.11:81/etechbase/advsearch.php将您的问题输入查询内容框,选择不同的精确程度,即可以找到你所需要的答案。效果还是可以的。
      

  7.   

    http://www.csdn.net/expert/Topic/52701.shtm
      

  8.   

    你应该先Debug一下,看在那行代码报错。
      

  9.   

    问题没有解决!我的数据是在局域网上,和这个有关系吗?
    希望大家帮帮忙!
    谢谢!测试:用3个Form即可,第一FORM个上放两个BUTTON,分别调用另两个FORM,另两个FORM上每个
         有一个ComboBox即可测试。
         
      

  10.   

    把你的代码放到Tform.FormShow中试试?
      

  11.   

       你可以去下载一个控件组叫InfoPower里面有一个控件类似Tcombobox,可以下拉出数据库中一个字段的值。要的话,我可以给你
      

  12.   

    query.Active:=false;
      query.SQL.Clear;
      query.SQL.Add('select * from date ORDER BY id ASC');
      query.Active:=true;
      query.First;
      ComboBox.Items.Clear;
      while not query.Eof do
      begin
        ComboBox.Items.Add(query.fieldbyname('id').asstring);
        query.next;
      end;
      

  13.   

    (1)程序从FormCreate事件转到FormActive事件。
    (2)ComboBox.Items.Clear;
      

  14.   

    你把代码改成这样;我测了没问题。
    我看你的代码,想问你调用另外两个窗体时,你用的是模态窗体还是非模态窗体。调用代码什么样?
    begin
      ComboBox1.Clear;
      query1.Active:=false;
      query1.SQL.Clear;
      query1.SQL.Add('select * from date ORDER BY id ASC');
      query1.Open;
      while not query1.Eof do
      begin
        ComboBox1.Items.Add(query1.fieldbyname('id').asstring);
        query1.next;
      end;
    end;
      

  15.   

    我用的是ShowModal调用的。
    我测试,确实有东西没有释放掉,造成的!
    但怎么解决呢?谢谢大家对我的关心!我是新注册的不知道规矩,分给少了,不能好好感谢大家的好意!
    真是过意不去! 只能说谢谢大家了!
      

  16.   

    模态窗体:
    Form1 := TForm1.Create(nil);
    try 
      Form1.ShowModal;
    finally
      Form1.Free;
    end;
    非模的时候要多注意。
    你无法判断是否释放,应该用 
    if  Assigned(Form1)  then ...
    另外,调用单元关掉外单元窗体时 应该吧 指针付空  
    如 
    if (Assigned(Form1)) then
    begin
      Form1.Free;
      Form1 := nil; 
    end;建议看看<<delphi4 入门到精通>>  这本书,讲的很详细。
      

  17.   

    SORRY!
    这两天较忙,没给分,不好意思!
    谢谢大家!