TreeView出现的错误信息? |
尚未結案
|
deity
尊榮會員 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
|
deity
尊榮會員 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
另附代码: var
Form1: TForm1;
GtreeProduct:TTreeNode;
MyData:pchar;
implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject);
begin
with treeProduct.Items do
begin
clear;
GtreeProduct:=Add(nil,'在产产品');
Addchild(GtreeProduct,'blank');
MyData:='1';
GtreeProduct.Data:=MyData;
GtreeProduct:=Add(nil,'非在产产品');
Addchild(GtreeProduct,'blank');
MyData:='2';
GtreeProduct.Data:=MyData; end; procedure TForm1.TreeProductExpanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
var para,pstr:string; ProductQuery:TQuery;
begin
if Node.HasChildren then
if Node.getFirstChild.Text='blank' then
Node.DeleteChildren
else exit; ProductQuery:=TQuery.Create(Application);
pstr:=string(Node.Data); 这句的作用是什么?
if pstr[1]='1' then
para:='where (zaichan=true)and (substring(bianma from 1 for 1))="1"'; if pstr[1]='2' then
para:='where (zaichan=true)and (substring(bianma from 1 for 1))="2"'; with ProductQuery do
begin
close;
Sql.Add('select bianma,mingcheng,xinghao,zaichan');
Sql.Add('from "F:\Cptz1\cptz1\table\tab101.db"');
Sql.Add(para);
Sql.Add('Order by bianma');
open;
while Not ProductQuery.Eof do
begin
TreeProduct.Items.AddChild(Node,ProductQuery.fieldbyname('bianma').AsString);
next;
end;
end;
end; end. 当我先执行红色部分(1)时,就会出现上面那个提示,但如果我设个断点,又不会出现问题,先执行(2)棕色部分也不会出现问题,不知为何? 行径窄处,留一步与人行
|
chfamy
中階會員 發表:87 回覆:161 積分:54 註冊:2002-05-03 發送簡訊給我 |
|
mustapha.wang
資深會員 發表:89 回覆:409 積分:274 註冊:2002-03-13 發送簡訊給我 |
|
deity
尊榮會員 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |