使用TIMER的纳闷（已调用子窗体，本表单Grid 自动刷新出错了）

落沙惜语 2009-09-16 06:14:16
我做了个表单（FORM1），有GRID1，还有TIMER1。。。
在FORM1有INIT（）
WITH THISFORM.GRID1.COLUMN2
.ADDOBJECT('add1','calledit')
.CURRENTCONTROL='add1'
.add1.VISIBLE=.T.
ENDWITH

CALLEDIT 是COMMAND的类
通过ADD1 我调用了表单（FORM2）
当我在FORM2操作时
FORM1.TIMER1.TIMER事件给Grid 自动刷新
THISFORM.INIT()
错误内容
A MEMBER OBJECT WITH THISNAME ALREADY EXISTS

请问如何解决TIMER 有没有可以设置,用户在操作或调用新的表单时就别刷新??????
...全文
135 12 打赏 收藏 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
handmars 2009-09-29
  • 打赏
  • 举报
 回复
楼主把问题说清楚点
river_a 2009-09-28
  • 打赏
  • 举报
 回复
[Quote=引用楼主 dominicwang 的回复:]
我做了个表单（FORM1），有GRID1，还有TIMER1。。。
在FORM1有INIT（）
  WITH THISFORM.GRID1.COLUMN2
    .ADDOBJECT('add1','calledit')
    .CURRENTCONTROL='add1' 
    .add1.VISIBLE=.T.
  ENDWITH

CALLEDIT 是COMMAND的类
通过ADD1 我调用了表单（FORM2）
当我在FORM2操作时
  FORM1.TIMER1.TIMER事件给Grid 自动刷新
        THISFORM.INIT()
错误内容
A MEMBER OBJECT WITH THISNAME ALREADY EXISTS

请问如何解决TIMER 有没有可以设置,用户在操作或调用新的表单时就别刷新??????
[/Quote]
你搞什么啊？
在init 里给grid.column2 加了一个object ,
timer 反复执行init ,就等于grid.column2反复添加相同的object ,

即使object 名字不同，也一会儿就把你的程序搞死了


十豆三 2009-09-26
  • 打赏
  • 举报
 回复
主要条理没有说清楚。需要再详细说明一下过程及相关代码。
落沙惜语 2009-09-18
  • 打赏
  • 举报
 回复
D
落沙惜语 2009-09-18
  • 打赏
  • 举报
 回复
谁能帮帮我呀，要分还可以加
ACMAIN_CHM 2009-09-17
  • 打赏
  • 举报
 回复
[Quote]问题是我看这代码，只要 timer1 的定时一到，总是要调用 thisform.init ？跟点不点 add1 打开 form2，以及楼主想“调用新的表单时就别刷新”似乎没什么关系[/Quote]

估计楼主仅是想实现刷新
WWWWA 2009-09-17
  • 打赏
  • 举报
 回复
init 中代码是什么？
落沙惜语 2009-09-17
  • 打赏
  • 举报
 回复
点 add1 后正开着 form2 啊,所以TIMER()无法删除 'add1'

FORM1.INIT()如下：

IF TYPE('THISFORM.GRID1.COLUMN2.add1')= 'O'
*MESSAGEBOX( '此对象存在 ')
THISFORM.GRID1.COLUMN2.REMOVEOBJECT('add1')
ENDIF

SELECT * FROM USER INTO CURSOR SQLUSER

THISFORM.GRID1.RECORDSOURCE=''
THISFORM.GRID1.RECORDSOURCE='sqluser'
THISFORM.GRID1.ColumnCount=6
THISFORM.GRID1.HEADERHEIGHT=22
THISFORM.GRID1.ROWHEIGHT=20
THISFORM.GRID1.LOCKCOLUMNS=3

*THISFORM.GRID1.COLUMN1.CONTROLSOURCE='allt(sqluser.th)'
*THISFORM.GRID1.COLUMN1.WIDTH=25
*tHISFORM.GRID1.COLUMN1.BACKCOLOR=RGB(236,233,216)
*THISFORM.GRID1.COLUMN1.HEADER1.FONTSIZE=9
*THISFORM.GRID1.COLUMN1.HEADER1.ALIGNMENT=2
*THISFORM.GRID1.COLUMN1.HEADER1.CAPTION='区号'

THISFORM.GRID1.COLUMN1.CONTROLSOURCE='allt(sqluser.zh)'
THISFORM.GRID1.COLUMN1.WIDTH=25
THISFORM.GRID1.COLUMN1.BACKCOLOR=RGB(236,233,216)
THISFORM.GRID1.COLUMN1.HEADER1.FONTSIZE=9
THISFORM.GRID1.COLUMN1.HEADER1.ALIGNMENT=2
THISFORM.GRID1.COLUMN1.HEADER1.CAPTION='座号'

THISFORM.GRID1.COLUMN2.CONTROLSOURCE='sqluser.OPTION'
THISFORM.GRID1.COLUMN2.WIDTH=26
THISFORM.GRID1.COLUMN2.HEADER1.FONTSIZE=9
THISFORM.GRID1.COLUMN2.HEADER1.ALIGNMENT=2
THISFORM.GRID1.COLUMN2.HEADER1.CAPTION='添加'

THISFORM.GRID1.COLUMN3.CONTROLSOURCE="RIGHT('000000000'+LTRIM(STR(SQLUSER.CALLID,9)),9)"
THISFORM.GRID1.COLUMN3.WIDTH=72
THISFORM.GRID1.COLUMN3.BACKCOLOR=RGB(236,233,216)
THISFORM.GRID1.COLUMN3.HEADER1.FONTSIZE=9
THISFORM.GRID1.COLUMN3.HEADER1.ALIGNMENT=2
THISFORM.GRID1.COLUMN3.HEADER1.CAPTION='流水号'

THISFORM.GRID1.COLUMN4.CONTROLSOURCE='sqluser.MUNAME'
THISFORM.GRID1.COLUMN4.WIDTH=100
THISFORM.GRID1.COLUMN4.HEADER1.FONTSIZE=9
THISFORM.GRID1.COLUMN4.HEADER1.ALIGNMENT=2
THISFORM.GRID1.COLUMN4.HEADER1.CAPTION='项目'
THISFORM.GRID1.COLUMN4.ALIGNMENT=3

THISFORM.GRID1.COLUMN5.CONTROLSOURCE='sqluser.MUUNIT'
THISFORM.GRID1.COLUMN5.WIDTH=25
THISFORM.GRID1.COLUMN5.HEADER1.FONTSIZE=9
THISFORM.GRID1.COLUMN5.HEADER1.ALIGNMENT=2
THISFORM.GRID1.COLUMN5.HEADER1.CAPTION='单位'
THISFORM.GRID1.COLUMN5.ALIGNMENT=3

THISFORM.GRID1.COLUMN6.CONTROLSOURCE='sqluser.PRICE'
THISFORM.GRID1.COLUMN6.ALIGNMENT=3
THISFORM.GRID1.COLUMN6.WIDTH=50
THISFORM.GRID1.COLUMN6.HEADER1.FONTSIZE=9
THISFORM.GRID1.COLUMN6.HEADER1.ALIGNMENT=2
THISFORM.GRID1.COLUMN6.HEADER1.CAPTION='单价'
THISFORM.GRID1.COLUMN6.FORMAT='ZR'
THISFORM.GRID1.Column6.InputMask='999.9'

WITH THISFORM.GRID1.COLUMN2
.ADDOBJECT('add1','calledit')
.CURRENTCONTROL='add1'
.add1.VISIBLE=.T.
ENDWITH

THISFORM.GRID1.COLUMN2.add1.CAPTION=''
THISFORM.GRID1.COLUMN2.Sparse=.F.
THISFORM.GRID1.COLUMN2.READONLY=.F.
THISFORM.GRID1.COLUMN2.BACKCOLOR=RGB(236,233,216)
THISFORM.GRID1.REFRESH
THISFORM.GRID1.AfterRowColChange()
************
ADD1.CLICK()
do form form2.scx
都市夜猫 2009-09-16
  • 打赏
  • 举报
 回复
[Quote=引用 3 楼 firstxinjie 的回复:]
嘿嘿，白猫黑猫论。
[/Quote]
在 addobject 之前先用 pemstate() 或 vartype() 判断一下当然可以。
问题是我看这代码，只要 timer1 的定时一到，总是要调用 thisform.init ？跟点不点 add1 打开 form2，以及楼主想“调用新的表单时就别刷新”似乎没什么关系
firstxinjie 2009-09-16
  • 打赏
  • 举报
 回复
[Quote=引用 1 楼 dkfdtf 的回复:]
愣是没看懂！刷新干哈要调用表单 init ?

[/Quote]

嘿嘿，白猫黑猫论。
firstxinjie 2009-09-16
  • 打赏
  • 举报
 回复
[Quote=引用楼主 dominicwang 的回复:]
A MEMBER OBJECT WITH THISNAME ALREADY EXISTS
[/Quote]

同名对象已存在。



在动态添加对象前，判断一下即可。
都市夜猫 2009-09-16
  • 打赏
  • 举报
 回复
愣是没看懂！刷新干哈要调用表单 init ?
用于确定分数阶系统（FOS）的Lyapunov指数谱，包括分数阶Lorenz系统、4D分数阶Chen系统和分数阶Duffing振荡器（Matlab代码实现）
内容概要：本文介绍了用于确定分数阶系统（FOS）Lyapunov指数谱的Matlab代码实现方法，涵盖分数阶Lorenz系统、4D分数阶Chen系统和分数阶Duffing振荡器三种典型系统。文档详细阐述了Lyapunov指数在判断系统混沌、稳定性及动力学行为中的核心作用，提供了完整的数值计算流程与Matlab代码实现方案，使读者能够复现并分析这些复杂非线性系统的动力学特性。; 适合人群：具备一定非线性动力学和数值计算基础，从事系统建模、混沌理论或控制理论研究的研究生、科研人员及工程技术人员。; 使用场景及目标：① 掌握分数阶微分系统的数值求解方法；② 学习并实现Lyapunov指数谱的计算，用于分析分数阶系统的混沌与稳定性；③ 为复杂非线性系统的建模、仿真与控制提供理论支持和技术工具。; 阅读建议：学习者应在掌握分数阶微积分和Lyapunov指数基本理论的基础上，结合提供的Matlab代码进行实践操作，通过修改参数、更换系统等方式深入理解算法原理和系统动力学行为。
创新7.1声卡驱动KX连线图
下载代码方式：https://pan.quark.cn/s/a4b39357ea24 【创新7.1声卡KX驱动+连线图】是一款专门为创新公司所制造的7.1音频声卡量身定制的驱动方案，其核心宗旨在于为用户带来超越官方原生驱动程序的卓越音质感受。KX驱动属于一种由爱好者群体自主开发的非官方驱动软件，该驱动在Creative公司原版驱动程序的基础上进行了深度改良与功能扩充，旨在提供更为多样化的声音调节参数以及更为出色的运行表现。 我们现在来详细认识一下7.1声道系统。7.1声道代表的是一种沉浸式音频技术规范，该规范包含七个全频域音箱单元（具体包括前置左声道、前置右声道、中央声道、环绕左声道、环绕右声道、后置左声道以及后置右声道）搭配一个低频震动单元，其设计目的是为用户构建更加立体且逼真的听觉场景，尤其适合应用于电子游戏、电影观影以及音乐欣赏等场景。 KX驱动的独到之处在于其赋予了用户更为广阔的个性化定制权限，使用者能够依据自身的听音偏好对音频参数进行细致调节，例如均衡器参数、混响效果、压缩比设定、噪声抑制门限等，从而使得最终的音效呈现出更为精致且个性化的特质。不仅如此，KX驱动还兼容VST插件机制，该机制是虚拟乐器与音频效果处理软件的通用标准，用户通过安装各式各样的VST插件，能够进一步增强声卡的实用功能，例如模拟多种乐器音色或达成复杂的声音效果制作。 在获取并部署KX驱动程序之后，对"连线图"的正确导入工作具有决定性意义。连线图又被称为音频路由配置图或信号流向示意图，它是一份用于指导用户如何正确配置并连接各个音频输出通道的视觉化手册。对于非专业背景的使用者而言，准确设定这些音频通道可能会面临一定程度的困难，因此连线图的提供极大地简化了这一过程。依照连线图进行配置操...
PSO-LSTM基于PSO优化LSTM网络的电力负荷预测（Python代码实现）
内容概要：本文介绍了基于粒子群优化算法（PSO）优化长短期记忆网络（LSTM）的电力负荷预测方法，并通过Python代码实现。该方法结合PSO强大的全局搜索能力，对LSTM模型的关键超参数进行智能寻优，有效提升了模型在处理非线性、强时序性电力负荷数据时的预测精度与泛化性能。文中系统阐述了从数据预处理、模型构建、PSO优化流程到预测结果分析的完整技术链条，重点展示了如何通过优化算法克服传统LSTM参数依赖经验设定的局限性，为复杂时间序列预测提供了高效解决方案。; 适合人群：具备一定Python编程能力和机器学习基础知识，从事电力系统分析、能源管理、负荷预测等相关领域的研究人员、工程师以及高校研究生。; 使用场景及目标：①应用于电力系统的短期与中期负荷预测，提升电网调度的准确性与经济性；②作为智能优化算法与深度学习融合的典型范例，用于科研项目开发与教学实践；③目标在于通过超参数自动优化，显著降低预测模型的均方根误差（RMSE）和平均绝对百分比误差（MAPE），增强模型的鲁棒性与实用性。; 阅读建议：建议读者结合所提供的完整Python代码，深入理解PSO优化LSTM的具体实现过程，重点关注适应度函数的设计、参数编码方式及优化迭代机制，并鼓励在自有数据集上进行复现实验与调参优化，以深刻掌握模型性能提升的技术路径。
YUV image viewer
代码下载链接： https://pan.quark.cn/s/4dc6ba4a4bc8 这款YUV格式的图像查看软件表现优异，同时具备将bmp等不同格式的图像文件转换为YUV格式的能力，亦可将YUV数据转换回BMP格式，操作极为便捷，并且允许用户调整RGB与YUV之间的转换算法，此外还集成了诸多其他实用功能。
输入扩张对归一化最小均方(NLMS)算法稳态过剩均方误差(EMSE)的影响研究（Matlab代码实现）
内容概要：本文系统研究了输入扩张技术对归一化最小均方（NLMS）算法在稳态条件下过剩均方误差（EMSE）的影响，并提供了完整的Matlab代码实现。通过严谨的理论推导与详实的仿真实验，深入探讨了输入信号经线性扩张处理后对NLMS算法收敛性能和稳态误差的优化作用。研究不仅阐明了不同扩张方式与参数配置对EMSE的具体改善效果，还定量分析了其对算法收敛速度与稳定性的影响，旨在为自适应滤波系统的性能优化与工程设计提供坚实的理论依据和有效的技术手段。; 适合人群：具备信号处理、自适应滤波等专业知识的研究生、科研人员及工程技术人员，要求熟练掌握Matlab编程语言，并拥有基本的算法仿真实现经验。; 使用场景及目标：①深入探究NLMS算法在不同输入信号条件下的稳态性能表现规律；②通过Matlab仿真平台，验证输入扩张技术在降低EMSE方面的有效性与实用性；③为自适应滤波器的设计选型、参数整定与性能优化提供直接的技术支持和可靠的实验参考。; 阅读建议：建议读者紧密结合所提供的Matlab代码，深入理解算法的实现细节，重点关注输入扩张模块的设计原理与EMSE的计算流程。同时，鼓励通过调整仿真参数（如扩张因子、步长、输入信号类型等），观察其对算法性能的动态影响，从而加深对理论分析结果的理解，并提升解决实际工程问题的能力。
VFP

2,750

社区成员

29,142

社区内容

发帖
与我相关
我的任务
社区描述
VFP，是Microsoft公司推出的数据库开发软件，用它来开发数据库，既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章