delphi could not convert variant of type (null) into type (olestr)

XiaYY_YYXia 2013-11-12 08:32:31
procedure TForm3.DBEdit1Change(Sender: TObject); //onchange事件
var
i:integer;
s:string;
xcom:tcomponent;
begin
for i := 2 to 20 do
begin
s:='edit'+inttostr(i);
xcom:=findcomponent(s);
if xcom<>nil then
begin
Tedit(xcom).Text:=ADOquery1.Fields[i-2].Value; //break 按了之后这一条被选中了。错了么?
end;

procedure TForm3.FormShow(Sender: TObject);
begin

ADOConnection1.Connected:=false; //连接,设置。
ADOConnection1.Connected:=true;

ADOQuery1.Connection:=adoconnection1;
ADOQuery1.SQL.Clear;
ADOQuery1.Close;
ADOQuery1.SQL.Text:='select CustomerID,pyCode,CustomerName,ProvinceID,CityID,Address,Zip,Phone,Fax,Email,HomePage,Industry,Type,Source,Status,Revenue,employees,owner,StockNo,Notes from customers';
ADOQuery1.Open;
DataSource1.DataSet:=adoquery1;

ADOtable1.Close;
ADOtable1.Connection:=ADOConnection1; //连接adotable后做的事情
ADOtable1.tablename:='customers';
ADOtable1.Open;

dbnavigator1.DataSource:=DataSource1;
dbgrid1.DataSource:=DataSource1;

edit1.Text:='';
f(); //外观设置的函数调用

procedure TForm3.ToolButton5Click(Sender: TObject); //刷新按钮
begin
adoquery1.Close;
adoquery1.Open;
f();
end;

我能写的都写了,但是刷新按钮还是错,错误提示如题。
我什么都不做,运行先按刷新还是出现同样的错误。
我不知道我sql语句哪里被修改了?
...全文
601 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
XiaYY_YYXia 2013-11-12
  • 打赏
  • 举报
回复
引用 1 楼 babydog01 的回复:
Tedit(xcom).Text:=ADOquery1.Fields[i-2].Value; //break 按了之后这一条被选中了。错了么? Tedit(xcom).Text:=ADOquery1.Fields[i-2].asstring;//用这个确保是文本 你的错误代码没有贴出来,你的F函数有问题。
f函数没有错,真的是上面这条句错了! 太感谢了!纠结了我好几天啊!
XiaYY_YYXia 2013-11-12
  • 打赏
  • 举报
回复
引用 1 楼 babydog01 的回复:
Tedit(xcom).Text:=ADOquery1.Fields[i-2].Value; //break 按了之后这一条被选中了。错了么? Tedit(xcom).Text:=ADOquery1.Fields[i-2].asstring;//用这个确保是文本 你的错误代码没有贴出来,你的F函数有问题。
那请教一下,f函数为什么会出问题呢。。我记得我明明就是把原来的东西复制过去了而已啊。。
babydog01 2013-11-12
  • 打赏
  • 举报
回复
Tedit(xcom).Text:=ADOquery1.Fields[i-2].Value; //break 按了之后这一条被选中了。错了么? Tedit(xcom).Text:=ADOquery1.Fields[i-2].asstring;//用这个确保是文本 你的错误代码没有贴出来,你的F函数有问题。

2,507

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧