Question

求教delphi 中TDBGridEh 中添加树形下拉框 怎么实现

Answer 1

静态的就直接在dbgrid中的相应字段的picklist属性里加
如果是动态的就在要出现下拉表的字段的onColEnter事件里写：
rocedure TFBdgeneral.dbgAttribColEnter(Sender: TObject)
egi
//点取'XX'字段时下拉菜单
if dbgAttrib.SelectedField.FieldName='XX' the
egi
maindm.ClientmyQuery.Close
maindm.ClientmyQuery.CommandText:='SELECT content FROM table'
maindm.ClientmyQuery.Ope
dbgAttrib.Columns[1].PickList.Clear;//表示colums[1]表示dbgattrib中的第二个字段
if maindm.ClientmyQuery.RecordCount>0 the
egi
maindm.ClientmyQuery.First
while not maindm.ClientmyQuery.Eof do
egi
dbgAttrib.Columns[1].PickList.Add(trim(maindm.ClientmyQuery.Fieldbyname('content').asstring));//动态地把查寻到的内容一个个加到你的下拉表里
maindm.ClientmyQuery.Next
end
end
maindm.ClientmyQuery.Close
end
end
//改动一下，你就可以在某字段下的某条记录加上不同的下拉表