以前用的是table现改为adotable
以前相等的条件现不等了
有没办法去掉这种异常。
另
table.fieldbyname('xm').asstring;和 adotable.fieldbyname('xm').asstring;
有什么区别。
以前相等的条件现不等了
有没办法去掉这种异常。
另
table.fieldbyname('xm').asstring;和 adotable.fieldbyname('xm').asstring;
有什么区别。
解决方案 »
- SetFileAttributes这个函数是做什么用的?
- 如此实现与内网的一台机建立IPC$连接?
- 如何从excel中读取数据,并保存到文本中?
- dll 声明问题.....
- 如何删除应用程序服务器在WINDOWS注册表中的登录信息?
- 求助:-->> 通过OLE方式创建Access数据库后,怎样在数据库里创建表呢?
- ActiveX Mediaplayer 的Deviceid
- 搞了几年编程了。被别人这样说!
- 为何Delphi不建一个“界面”的版块呢?
- 如何简单的实现禁止局域网某个ip地址的用户上网?十万火急
- 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连