procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
depna:string;
begin
depna:=treeview1.Selected.Text;
with adoquery1 do
begin close;
sql.Clear;
if (depna='公司') then
begin
sql.add('select p_no,p_na from person_v')
end
else
begin
sql.Add('select p_no,p_na from person_v where depna='+'"'+depna+'"');
end; adoquery1.open;
end;end;問題﹕啟動時沒問題﹐在change 時提示'invalid column name'電腦部' '(例﹕depna有一個值為電腦部)
我不明白﹖﹖﹖
還請各位指教
var
depna:string;
begin
depna:=treeview1.Selected.Text;
with adoquery1 do
begin close;
sql.Clear;
if (depna='公司') then
begin
sql.add('select p_no,p_na from person_v')
end
else
begin
sql.Add('select p_no,p_na from person_v where depna='+'"'+depna+'"');
end; adoquery1.open;
end;end;問題﹕啟動時沒問題﹐在change 時提示'invalid column name'電腦部' '(例﹕depna有一個值為電腦部)
我不明白﹖﹖﹖
還請各位指教
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货