请帮我看看有什么错????????

hansonboy 2002-07-30 04:19:46
if ClientQ[TEdit(Components[i]).Name].DataType = ftInteger then
TEdit(Components[i]).Text := IntToStr(ClientQ[TEdit(Components[i]).Name])

编译时没错,但一执行到这句话时就出错,错误提示为:
Variant does not reference an automation object
...全文
23 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
hansonboy 2002-07-30
  • 打赏
  • 举报
回复
Thank you 试一下先驱
yangyugw 2002-07-30
  • 打赏
  • 举报
回复
高,实在高zswang难怪你都4星了
建议你在csdn开一个课堂给各位上课
让我们也进步!!!

************
* 努力学习 *
* 全为 *
*¥人民币¥*
************

王集鹄 2002-07-30
  • 打赏
  • 举报
回复
ClientQ[TEdit(Components[i]).Name] //这是一个变体类型,不是字段类型,是字段的值!

if ClientQ.FieldByName(Components[i].Name).DataType = ftInteger then
TEdit(Components[i]).Text := IntToStr(ClientQ[TEdit(Components[i]).Name])
hansonboy 2002-07-30
  • 打赏
  • 举报
回复
是不个TADOQuery控件
  • 打赏
  • 举报
回复
ClientQ是什么?
hansonboy 2002-07-30
  • 打赏
  • 举报
回复
急呀,快点帮我看看呀?

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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