回 帖 发 新 帖 刷新版面

主题:记录超出范围

我在表单frmaddsp中的表格控件的Dblclick事件中写代码如下:
SELECT tblspmc
thisform.text1.Value =spmc
thisform.combo1.RowSource ="SELECT spxh FROM tblspmc WHERE ;
ALLTRIM(spmc)==ALLTRIM(thisform.text1.Value) INTO CURSOR curcob" 
thisform.combo1.RowSourceType= 3 
thisform.Refresh 
目的是完成表单的text1的值等于tblspmc表中的 spmc字段的值(这个值有重复值点击哪个就取哪个),再就是为combo1指明数据源。
这个目的在这个表单全能实现。
我在调用表单frmin时,我在这个表单的text1文本框中valid事件中写代码:
SELECT curIn  &&临时表
nRecn=RECNO()
SUM jhje TO nIn_Amount  &&统计jhje字段的值
Thisform.txtwfje.Value=nIn_Amount-Thisform.txtyfje.Value
IF nRecn#0 AND RECCOUNT()>0
GO nRecn
ENDIF  
Thisform.Refresh 
在执行这个代码时出现:
错误信息: 记录超出范围。
产生错误的位置: FORM1.COUNT
所在行号: 6
产生错误的代码: SELECT spxh FROM tblspmc WHERE ALLTRIM(spmc)==ALLTRIM(thisform.text1.Value) INTO CURSOR curcob 

请老师指教,这有礼了

回复列表 (共2个回复)

沙发

IF nRecn#0 AND RECCOUNT()>0
GO nRecn
ENDIF  
改为(因为有可能RECNO()>RECCOUNT())
IF nRecn<=RECCOUNT()
GO nRecn
ENDIF  

板凳

谢谢!按你的指导问题已解决。

我来回复

您尚未登录,请登录后再回复。点此登录或注册