|
#2
sdta2023-05-10 00:55
|
只有本站会员才能查看附件，请 登录
上面是管理器页面界面。
点浏览班级按钮后，打开文件定位窗口，选择班级名单的文本文件（文本文件中第一行为班级名称，第二行开始一行一个学生姓名）。
只有本站会员才能查看附件，请 登录
读取文本文件内容后，显示到编辑框内。
只有本站会员才能查看附件，请 登录
确认无误后点添加名单按钮写入数据表。
添加名单按钮的代码搞不定了，下面是按钮代码。
程序代码：cstr=thisform.pageframe1.page3.edit1.Value
rs=ALINES(namelist,cstr,CHR(13)+CHR(10))
IF !FILE("classes.dbf",1)
CREATE TABLE classes (&namelist(1) c(8))
ELSE
ALTER TABLE classes ADD COLUMN &namelist(1) c(8) NOT NULL
ENDIF
USE classes IN 1
GO TOP
FOR i=2 TO rs
IF EMPTY(namelist(i))
LOOP
ELSE
REPLACE &namelist(1) WITH namelist(i)
ENDIF
ENDFOR
现在的问题提示在 CREATE TABLE classes (&namelist(1) c(8)) 这句上，提示语法错误
只有本站会员才能查看附件，请 登录
如果文件不存在，就创建一个数据表，然后将这个名单加进去，创建表时将第一个数据元素做为新字段的名字，可卡这里了，搞不动了……