一个小问题，帮忙看一下！

Question

我想问一下，如何在DBcombox里面添加items字段！
我的代码如下：
procedure TPK_Coursebrowse.DBCombox1_select;
var
node:TDBComboBox;
begin
  node:=nil;
  with PK_Data do
    begin
     PK_ClassQuery.First;
     DBComboBox1.Items.Clear;
       while not PK_ClassQuery.Eof do
         begin
           DBComboBox1.Items.Add(node....);//好象是这里出错了，帮忙看一下应该怎么写？
           PK_ClassQuery.Next;
         end;
   end;
end;大家帮忙看一下，很快的！

Answer 1

DBComboBox1.Items.Add(PK_ClassQuery.FieldByName('FieldName').AsString);

Answer 2

FieldByName没有这个方法啊！
怎么办？
能不能在给看一下？

Answer 3

procedure TPK_Coursebrowse.DBCombox1_select;
begin
  with PK_Data do
    begin
     PK_ClassQuery.First;
     DBComboBox1.Items.Clear;
       while not PK_ClassQuery.Eof do
         begin
           DBComboBox1.Items.Add(PK_ClassQuery.FieldByName('字段名').asstring);
           PK_ClassQuery.Next;
         end;
   end;
end;
fieldByName有这个方法的

Answer 4

我现在就在试，它只有fielder,fields,fieldvalues,Tfields
等方法，还有，这样的话，那我的nil就用不上了，我想通过nil指针动态添加啊！
谢谢大家了，在帮忙想想！

Answer 5

这是VCL本身的问题，不是BUG的BUG，在它的弹出方法、属性的过程中，VCL会自动过滤掉类型不一致的数据。比如你在trim()加入某个控件的属性、方法，它只能弹出STRING属性的值。这就要求我们要自己记住一些常用的方法属性了。后面一个问题不明白你的意思。

Answer 6

哦，这个吗，我把fieldbyname写进去了，没有错误，可是没有达到我的目的。
我想动态的添加DBcombox的items，因为DBcombox连上数据库后，只显示当前的字段，不能显示所有字段。
我想从库表中把某一字段动态的添加到DBcombox的items里面，所以我在这里用了指针，来进行判断，可是DBcombox的下拉列表还是没有东西！
这样说大家可以明白了吗？

Answer 7

h_dm.cd_hj_hjsf.first;
            while not  h_dm.cd_hj_hjsf.eof do
            begin
            combobox4.items.insert(-1, h_dm.cd_hj_hjsf.fieldbyname('mzh').asstring);
            h_dm.cd_hj_hjsf.Next;
            end;
   看看我的行不行了把
DBComboBox1.Items.Add(PK_ClassQuery.FieldByName('字段名').asstring);
该成combobox4.items.insert(-1, h_dm.cd_hj_hjsf.fieldbyname('mzh').asstring);
试试了，总之我的行

Answer 8

我试了上面的方法，还是不行！
我想是不是我的事件用错了！
procedure TPK_Coursebrowse.DBCombox1_select;（这是我自己创建的事件）不行！
onclick好象也不行！
onDBclick也不行！
郁闷～！·～！＃＃

Answer 9

DBComboBox 如果跟字段挂钩了,当然只能显示当前记录的字段了.如果你不想只显示当前记录字段值,两个途径:1、取消跟数据集挂钩；2、自己重写DBCOMBOBOX的PAS，让他不是只显示当前记录字值。
  嘿嘿，如果你实现了第二中方法，可以给我发过来参考参考。