if empty()
=messagebox("学校不能为空,请重新输入!",48+0+0,"警告")

ELSE
this.enabled=.t.
thisform.list1.enabled=.t.
thisform.list1.rowsource="sele MAX(学籍辅号) from xjk where allt(学籍辅号)='2'+SUBSTR((),7,2)+ALLTRIM(thisform.CD2.value).and.allt()='初中'into cursor t"
ENDIF

thisform.Text15.Value = INT(val(SUBSTR((this.VALUE),1,11))+1)

REPL 学籍辅号 WITH ALLTRIM(str(thisform.TEXT15.value))

代码是按顺序执行的。空，给出提示，设置焦点后，并不停下来……　后面与combo6无关的

最好是上传附件

错误出现在哪？
似乎应该要加
return

[此贴子已经被作者于2019-5-8 11:08编辑过]

if empty()
=messagebox("学校不能为空,请重新输入!",48+0+0,"警告")

ELSE
this.enabled=.t.
thisform.list1.enabled=.t.
thisform.list1.rowsource="sele MAX(学籍辅号) from xjk where allt(学籍辅号)='2'+SUBSTR((),7,2)+ALLTRIM(thisform.CD2.value).and.allt()='初中'into cursor t"
ENDIF
上面是通过combo6组合框，取最大学籍辅号显示到list1列表框，显示正常

thisform.Text15.Value = INT(val(SUBSTR((this.VALUE),1,11))+1)
通过list1列表框转换数字数据到test15文本框（在原最大值的基础上加1）显示，显示正常

REPL 学籍辅号 WITH ALLTRIM(str(thisform.TEXT15.value))
这个命令是保存，但在表对应的学籍辅号里就出现2.177E+10  这个代码，求版主帮助解决下，自己设计个小的学籍管理软件工作上使用方便，谢谢主！

没有代码，没有数据结构。无法回答呀。

你试过，在和ELSE之间加上return了吗？

谢谢各位大佬，问题已经解决，再次感谢！

[此贴子已经被作者于2019-5-8 16:49编辑过]

从界面看 Text15 是字符型，为什么会出现 thisform.Text15.Value = INT(val(SUBSTR((this.VALUE),1,11))+1) 这种情况而不报错，真是奇怪！