主题:记录超出范围
我在表单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
请老师指教,这有礼了
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
请老师指教,这有礼了