在属性选项卡中的最后一项中,选中你所用的一列,然后在其下面的属性下栏框中选中
下拉框的属性,然后在VALUE中添加值,但是这种方法比料死。
另一种,就是用TDBGRID LIST这个控件,在TDBGRID的相应的列中有一个属性好像是DropDownList还是什么的,属性选项卡中第二项第三项的Colomns中的任一列属性有的

解决方案 »

  1.   

    谢谢两位!
    我用的True DBGrid的列不是固定的,是要随着记录集的变化而变化的。
    看样子要用写代码的方式,能够告诉我代码如何写?
      

  2.   

    说错了控件是TDBDropdown这个控件,它与TDBGrid是相似的一个控件
    还有一个就是要添加一个引用:XArrayDB,好象也是与TDBGrid相对应的一个东西。
    首先将TDBDropdown添加上数据
    dim Sql as string
    dim Rst as adodb.recordsetsql="select Name from Student"
    .....把值写入Rst
    x.clerar
    x.redim 0,rst.recordcount-1,0,0
    rst.movefirst
    do while not rst.eof
    就是用TDBGRID LIST这个控件,在TDBGRID的相应的列中有一个属性好像是DropDownList还是什么的,属性选项卡中第二项第三项的Colomns中的任一列属性有的
      

  3.   

    说错了控件是TDBDropdown这个控件,它与TDBGrid是相似的一个控件
    还有一个就是要添加一个引用:XArrayDB,好象也是与TDBGrid相对应的一个东西。
    首先将TDBDropdown添加上数据
    dim Sql as string
    dim Rst as adodb.recordsetsql="select Name from Student"
    .....把值写入Rst
    x.clerar
    x.redim 0,rst.recordcount-1,0,0
    rst.movefirst
    i=0
    do while not rst.eof
       x(i,0)=rst("Name").value
       rst.movenext
       i=i+1
    loop
    set tdbgdropdown1=x
    tdbgdropdown1.rebind
    tdbgdropdown1.refresh在TDBGRID的属性分页框中的第二项,选中要使用的列,在其中有一个属性是DropDown的,将tdbgdropdown1选择进去。测试
      

  4.   

    to atree_zhang(木棉如月) :
       如何用代码实现 :在TDBGRID的属性分页框中的第二项,选中要使用的列,在其中有一个属性是DropDown的,将tdbgdropdown1选择进去。
      

  5.   

    tdbgrid1.columns(0).dropdown=tdbgdropdown1
      

  6.   

    顺便问一下,这个TRUE DBGRID是个什么控件,好象没有看到过.