ADOQuery1的sql语句是select * from patient order by ccid asc
tv1是treeview控件
ADOQuery1.First;
if ADOQuery1.IsEmpty then
begin
tv1.Items.Add(nil,'无新病人记录') ;
exit;
end
else
begin
repeat
begin
lpid1:= ADOQuery1.fieldbyname('id').asstring; //取出连接标记;
lpid2:=ADOQuery1.fieldbyname('pid').asstring;
lpid3:=ADOQuery1.fieldbyname('ccid').asstring;
mynode:=tv1.items.add(tv1.selected,ADOQuery1.fieldbyname('id').asstring); //病人基本信息初始化;
tv1.items.addchild(mynode,ADOQuery1.fieldbyname('name').asstring);
tynode:=tv1.items.addchild(mynode,ADOQuery1.fieldbyname('sex').asstring);
end;
ADOQuery1.Next;
until ADOQuery1.eof;代码运行的时候当数据库中有两条记录的时候name字段好象读取不到tv1(treeview)中没有姓名节点
tv1是treeview控件
ADOQuery1.First;
if ADOQuery1.IsEmpty then
begin
tv1.Items.Add(nil,'无新病人记录') ;
exit;
end
else
begin
repeat
begin
lpid1:= ADOQuery1.fieldbyname('id').asstring; //取出连接标记;
lpid2:=ADOQuery1.fieldbyname('pid').asstring;
lpid3:=ADOQuery1.fieldbyname('ccid').asstring;
mynode:=tv1.items.add(tv1.selected,ADOQuery1.fieldbyname('id').asstring); //病人基本信息初始化;
tv1.items.addchild(mynode,ADOQuery1.fieldbyname('name').asstring);
tynode:=tv1.items.addchild(mynode,ADOQuery1.fieldbyname('sex').asstring);
end;
ADOQuery1.Next;
until ADOQuery1.eof;代码运行的时候当数据库中有两条记录的时候name字段好象读取不到tv1(treeview)中没有姓名节点
解决方案 »
- 数据库insert delphi中
- 关于sql语句单引号的问题---3q
- 请问如何删除某个字符串开头的文件?谢谢
- 如何改变一个Application的MainForm?
- DLL调用问题
- 带参数启动程序的问题!!!!!!
- 真是xxx,2000下完全正常得dll,在98底下一加载就说什么acces violation,,,,哪位老大给些提示...
- 胃疼病犯了,散分!!!顺便问个问题,up有分!下,和经理提意见买书,大家说买什么书好?一定要好的,不过时的.
- 关于Interbase使用
- 分发DCOM应用服务程序问题
- 急!Delphi如何调用.net写的webservice XML?
- 菜,菜,,菜,,,,,,,
现在是name字段对应的值不显示了其他的都显示