objID := QidClass.Create;
objID.id := frmMain.adoAdminData.FieldByName('At_AdminId').AsString;//附加id
trvUserGroup.Items.AddObject(nil,frmMain.adoAdminData.FieldByName('At_AdminTypeName').AsString, objID); //名字
如何获取显示trvUserGroup附加的id?
objID.id := frmMain.adoAdminData.FieldByName('At_AdminId').AsString;//附加id
trvUserGroup.Items.AddObject(nil,frmMain.adoAdminData.FieldByName('At_AdminTypeName').AsString, objID); //名字
如何获取显示trvUserGroup附加的id?
解决方案 »
- 关于MSComm控件
- 邮件问题,有那位高手用过DEPHI开发了邮件程序,正文带图片或HTML形式的内容的发送与接收,有分相送!
- 提示“未返回完整的HTTP头”错误是怎样产生的?
- 急救!如何判断两个日期型变量d1和d2之间相差多少个小时。如d1='2003-8-1 9:34:33' d2='2003-8-1 11:20:35'
- 如何判断一个FORM已经在内存中运行了?
- 主从数据库的问题,急急急,100分相送
- 小問題~合並記錄怎麼解決~
- 在TStringGrid想使用指定的Color来填充Cell,为什么用Canvas.Rectangle或Canvas.FillRect都不行
- 用delphi检测一个XML文档中是否有非法字符,XML用UTF8格式编码
- 哪里找得到delphi6的补丁
- Treeview 的问题
- 关于后台服务启动的次序
objID : QidClass;
id:integer;
begin
objID := trvUserGroup.Selected.Data;
id := objID.id;
end;
还有问题再加我QQ,我很少进CSDN,81034291