F
fanxin119
Unregistered / Unconfirmed
GUEST, unregistred user!
各位老大好 问个问题啊 :
我用了一个TcxDBComboBox控件,它下拉框里的内容是从数据库里读出来的,当我在数据库里修改或新添加了这个字段的值后,需要这个下拉框里的值能重新更新 和数据库里的保持一致,我用的这个方法不知道怎么回事有点问题,就是更新数据库后,下拉框里的项目会重新载入一遍,但会出现两遍重复的内容,等程序重新启动一遍又好了,不知道该怎么改啊 ?下面是我用的重新载入的代码:
function ComboValue(sql: string;
Aadoq: TADOQuery;
Cbname: TcxDBComboBox;leibie : string): Boolean;
begin
Aadoq.Connection := DM.Adoc_main;
Aadoq.Close;
Aadoq.SQL.Text := sql ;
Aadoq.ExecSQL;
Aadoq.Open;
Cbname.Clear;
while not Aadoq.Eofdo
begin
Cbname.Properties.Items.Add(Aadoq[leibie]);
Aadoq.Next;
end;
Cbname.ItemIndex := 0;
result := true;
end;
这个leibie 就是数据库里它对应的字段。好像那个clear没起作用一样
我用了一个TcxDBComboBox控件,它下拉框里的内容是从数据库里读出来的,当我在数据库里修改或新添加了这个字段的值后,需要这个下拉框里的值能重新更新 和数据库里的保持一致,我用的这个方法不知道怎么回事有点问题,就是更新数据库后,下拉框里的项目会重新载入一遍,但会出现两遍重复的内容,等程序重新启动一遍又好了,不知道该怎么改啊 ?下面是我用的重新载入的代码:
function ComboValue(sql: string;
Aadoq: TADOQuery;
Cbname: TcxDBComboBox;leibie : string): Boolean;
begin
Aadoq.Connection := DM.Adoc_main;
Aadoq.Close;
Aadoq.SQL.Text := sql ;
Aadoq.ExecSQL;
Aadoq.Open;
Cbname.Clear;
while not Aadoq.Eofdo
begin
Cbname.Properties.Items.Add(Aadoq[leibie]);
Aadoq.Next;
end;
Cbname.ItemIndex := 0;
result := true;
end;
这个leibie 就是数据库里它对应的字段。好像那个clear没起作用一样