运行表单“2018年秋学期课表调整”出错，（我想用表单中输入的内容替换掉kb20180920.dbf中字段内容，如年级：一年级  班级：（1）班 学科：队会 节次：zhou15），现将click事件代码贴出，恳请高手帮忙，万分感谢！



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

依我之见，下列的代码不应该出现在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，在第二次按键之后必定出错，因为重复定义变量了。定义全局变量只能在程序开始时或者不可能会重复执行的位置，例如表单的init事件、load事件等地方。建议楼主多借鉴别人成熟的代码。

你的kb20180920.dbf表中，没有 cjc 这个字段。招待到　REPLACE……　时肯定是出错了。

总课表名称中最好不要带日期。带了日期下一学年就不能用了。

如何修改代码，还请不吝赐教。

从表单上看不出实现的目标

1.表设计非常不规范，Zhou11~16,Zhou21~26,Zhou31~36,Zhou41~46,Zhou51~56
是什么意思，课程表应该是每周都相同的吧，如果不相同，可以改的
我自己认为，可以这样，比较好，程序容易控制，
课程表(年间,班级,周1,周2,周3,周4,周5,周6,周,学年)
课程表(Nj C(10),Bj C(10),Zhou1 C(10),Zhou2 C(10),Zhou3 C(10),Zhou4 C(10),Zhou5 C(10),Zhou6 C(10),Zhou I,Xn C(10))
如果1个班没周课程都相同，就1个班1个学期只有1行记录,如
一年级，(1)班，数学，语文，美术，科学，班会，体育，1，2018-01
如果每周都不同的，如有23周，就有23行，

就你问题来说，你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
下面这话的意思是，把字段 CJC 更新 为 变量 CXK 的值，条件是 nj=cnj .and. bj=cbj，但你表没有字段 CJC,把节次更新为学科，怪怪的。。
REPLACE cjc with cxk for nj=cnj .and. bj=cbj
楼主，看看命令
REPLACE FieldName1 WITH eExpression1 [ADDITIVE]
   [, FieldName2 WITH eExpression2 [ADDITIVE]] ... [Scope]
   [FOR lExpression1] [WHILE lExpression2] [IN nWorkArea | cTableAlias]
   [NOOPTIMIZE

[此贴子已经被作者于2018-12-8 12:11编辑过]

对于固定课程的，固定地点的，固定老师的，课程表，还是比较容易，如小学，中学，高中
但对于，动态的课程表，就有点难度了，如大学的，大学城的。
那就设计到很多安排了。

一周五天，每天六节课，zhou35表示周三第5节课.因为我是新手，还请各位高手帮忙写点代码，以解决问题，万分感谢！！！