简单问题，，，，高分求教~~~~

Question

Query1.Locate('username',cc2.text,[]);
cc1.Text:=query1.fieldbyname('deptname').AsString;

Answer 1

cc1.Text:=query1.fieldbyname('deptname').AsString;
改为
cc1.items.add(query1.fieldbyname('deptname').AsString);

Answer 2

to  dongxsoft(浮云化雨) 把全部写出来，可以？

Answer 3

你前边写的没看明白，cc1,cc2,c1,c2...如下可以，cc1change同理
procedure Tfrmabnormity.cc2Change(Sender: TObject);
begin
  with Query1 do
  begin
    Open;
    Locate('username',cc2.text,[]);
    cc1.Text:=fieldbyname('deptname').AsString;
  end;
end;

Answer 4

c1是combox吗，怎么显示全部用户名呢，显示不开呀，何况又是输入全部，你是想添加到item吧？要么你吧你的功能再描述一遍，如果仅是cc2change，上面的不久解决了吗

Answer 5

query1.first;
       for i:=0 to query1.RecordCount-1 do//改成这样试试
       begin
         ShowMessage(query1.FieldByName('username').AsString);
         if query1.FieldByName('username').AsString=cc2.Text then
            begin
              cc1.Text:=query1.fieldbyname('deptname').AsString;
              ShowMessage(cc1.Text);
              exit;
            end 
         else
            query1.Next;
         end;

Answer 6

cc1.Text:=query1.fieldbyname('deptname').AsString;
///就这句不执行，不能付值，为什么？？
不执行的原因可能是c1 的style设置为dropdownlist(选项下拉框的地二项），把他改为第一项就可以了

Answer 7

to  zhxfzhxf1(zhxfzhxf1是这个问题，可是为什么有时候可以，有时候不可以？我已经改成dropdown就好了
谢谢