课表调整表单运行出错
运行表单“2018年秋学期课表调整”出错,(我想用表单中输入的内容替换掉kb20180920.dbf中字段内容,如年级:一年级 班级:(1)班 学科:队会 节次:zhou15),现将click事件代码贴出,恳请高手帮忙,万分感谢!
2018年秋学期课表调整.zip
(3.8 KB)
click事件代码:
SET TALK OFF
SET SAFETY OFF
SET COMPATIBLE OFF
cCurrentProcedure = SYS(16,1)
nPathStart = AT(":",cCurrentProcedure)- 1
nLenOfPath = RAT("\", cCurrentProcedure) - (nPathStart)
mypath=SUBSTR(cCurrentProcedure, nPathStart, nLenofPath)
SET Default TO (mypath)
PUBLIC cnj,cbj,cxk,cjc
cnj=ALLTRIM(thisform.text1.Value)
cbj=ALLTRIM(thisform.text2.Value)
cxk=ALLTRIM(thisform.text3.Value)
cjc=ALLTRIM(thisform.text4.Value)
use kb20180920
REPLACE cjc with cxk for nj=cnj .and. bj=cbj
browse