吹水佬不愧值得我们尊重的一位版主

怎么复制吹水佬的代码测试，好像用不了？出现方法程序或事件不能含有嵌套过程或类定义

代码是在VFP9下调试。
VFP6的可能有些语句不支持，如EXECSCRIPT()执行的语句，可试改其他方式。

[此贴子已经被作者于2015-10-22 16:03编辑过]

我同样在VFP9中测试。

我查询了VFP9中所有函数，好像没有EXECSCRIPT()这个函数

对不起，我终于查到

还是没有办法测试

是不是自定义函数这段代码需要单独吗？
FUNCTION 建考场表(n级i, n场i, n列i, n行i)
     LOCAL i, n列k, n行k
     SELECT * FROM 学生表 WHERE 级==n级i INTO CURSOR 级表
    SELECT 级表
    INDEX on RAND(班+RECNO()) TAG 班序    && 乱序
    GO TOP IN "级表"
     
     n列k = n列i
     n行k = n行i
     
     DO WHILE !EOF("级表")
         IF n列k > n列
            n行k = n行k + n行
            IF (n行k+1) <= RECCOUNT("考场表")
                 n列k = n列i
             ELSE
                 n场i = n场i + 1    && 新场
                IF n列i = 2
                     n行i = n行k
                 ENDIF
                 n列i = 1
                 n列k = n列i
             ENDIF
         ENDIF
             * 写一列
        i = 1
         DO WHILE !EOF("级表") AND (i <= n行)
             IF (n行k+i) <= RECCOUNT("考场表")
                 GO (n行k+i) IN "考场表"
             ELSE
                 APPEND BLANK IN "考场表"
                 REPLACE 考场 WITH n场i IN "考场表"
             ENDIF

             REPLACE ("列"+TRANSFORM(n列k)) WITH 级表.名 IN "考场表"
             i = i + 1
             SKIP IN "级表"
         ENDDO
     
         n列k = n列k + 2   
     ENDDO
 ENDFUNC

据我测试，问题主要在自定义函数这段代码中

非常感谢吹水佬，测试已经成功