以前用的是table现改为adotable
以前相等的条件现不等了
有没办法去掉这种异常。
另
table.fieldbyname('xm').asstring;和 adotable.fieldbyname('xm').asstring;
有什么区别。
以前相等的条件现不等了
有没办法去掉这种异常。
另
table.fieldbyname('xm').asstring;和 adotable.fieldbyname('xm').asstring;
有什么区别。
解决方案 »
- 咱终于是星星了,放点分吧.
- 文本导入ms access
- 寻求“根据机器名,找对应的IP地址”的函数?
- 一个很奇怪的错误提示,请进来看看
- 有谁知道InterNetExpress中的InetXPageProducer控件怎么用?
- 帮我想想办法,老板要我在网上找所有正在新建的酒店或者宾馆?
- 如何实现所画的网络拓扑图节点可以任意拖动后,其相连线条(多条)随之移动?
- 关于websnap的问题
- 请各位高手指教,在delphi中怎样才能实现:扫描仪选择和扫描图片,谢谢,急。
- pdg是什么文件!!!!
- StringGrid如何设置任意行或者列为FixRow或者FixColumn
- 如何把FastReport中生成的数据提取到程序变量中?
ADOtable 是用于微软的ADO数据引擎。
procedure Tpcsyzxform.FormShow(Sender: TObject);
var i:integer;
begin
datamodule2.Tab:='蒲城商业中心';
datamodule2.ftprl.Active:=false;
datamodule2.ftprl.Active:=true;
i:=0;
datamodule2.ftprl.First;
while not datamodule2.ftprl.eof do
begin
for i:=0 to 95 do
begin
if datamodule2.ftprl.FieldByName('bh').AsString=TstaticText(Controls[i]).Name then
begin
TstaticText(Controls[i]).Caption:=datamodule2.ftprl.fieldbyname('xm').AsString;
end;
end;
datamodule2.ftprl.Next;
end;
end;
adotable
procedure Tpcsyzxform.FormShow(Sender: TObject);
var i:integer;
begin
datamodule2.Tab:='蒲城商业中心';
datamodule2.adoftprl.Active:=false;
datamodule2.ftprl.Active:=true;
i:=0;
datamodule2.adoftprl.First;
while not datamodule2.adoftprl.eof do
begin
for i:=0 to 95 do
begin
if datamodule2.adoftprl.FieldByName('bh').AsString=TstaticText(Controls[i]).Name then
begin
TstaticText(Controls[i]).Caption:=datamodule2.adoftprl.fieldbyname('xm').AsString;
end;
end;
datamodule2.adoftprl.Next;
end;
end;
上面的table控件时执行成功
下面的adotable控件时执行失败
var i:integer;
var s,s1 : string;
begin
datamodule2.Tab:='蒲城商业中心';
datamodule2.adoftprl.Active:=false;
datamodule2.ftprl.Active:=true;
i:=0;
datamodule2.adoftprl.First;
while not datamodule2.adoftprl.eof do
begin
for i:=0 to 95 do
begin
s := datamodule2.adoftprl.FieldByName('bh').AsString;
s1 : = TstaticText(Controls[i]).Name; //加断点.
if s = s1 then
begin
TstaticText(Controls[i]).Caption:=datamodule2.adoftprl.fieldbyname('xm').AsString;
end;
end;
datamodule2.adoftprl.Next;
end;
end;
table有没有办法和adoconnection连