CLEAR
CLOSE  all
SET SAFETY OFF
*---------原表转移到内存'
DIMENSION yb(10,16)
USE 原表
select * from 原表 into array yb
*---------替换表转移到内存'
DIMENSION thb(99)
USE 替换表
select * from 替换表 into array thb
 *----------------------------------
 *USE 替换后表
 FOR 替换循环=1  TO 84
  FOR k=1  TO 16
   ********************************************************************************
   * 第一次循环时将“替换表”中的第1--16的数分别去替换“原表”中1--16的数；第二次 *
   * 循环时是将“替换表”中的第2--17的数分别去替换“原表”中1--16的数；直至第八十 *
   * 四次循环时是将“替换表”中的第84--99的数分别替换“原表”中1--16的数，至此结束*
   * 并将替换好的结果全部写入“替换后表”中                                       *
   ********************************************************************************
  ENDFOR
 ENDFOR

 
 最后“替换后表”中应该有84行记录（每次替换即记录一行）

[此贴子已经被作者于2020-5-7 11:29编辑过]

变量是这样的，但84组变量中每组的最小个数要换到原表的“1”这个位置，最小第二个数要换到原表的“2”这个位置，......，最大的数要换到原表的“16”这个位置上，谢谢（并且这样运行完后总数应该有10*84=840行）

[此贴子已经被作者于2020-5-7 12:44编辑过]

先生替换后不对的，对于某一组16个数而言，替换时是将这组中最小的一个数替换到原表“1”的位置，这组中第二个最小的一个数替换到原表“2”的位置，......这组中最大的一个数替换到原表“16”的位置，是这样的要求，谢谢
并且替换后的结果（840行）最好写入到“替换后表.dbf”中，谢谢

原表有10行，一次替换下来就有10行，84次替换总数是840行
第一次替换下来的结果如下：
5    19    43    41    29    59    17    7    23    3    37    47    53    31    11    13
7    17    29    59    43    41    19    5    23    3    47    37    31    53    11    13
11    3    53    47    43    41    17    7    23    13    37    31    29    59    5    19
19    17    41    29    53    47    11    3    5    37    13    59    31    7    43    23
19    37    17    31    59    11    3    43    5    47    53    7    29    13    41    23
19    41    13    31    47    7    5    53    11    43    59    3    29    17    37    23
19    41    17    29    59    13    37    5    3    11    47    53    31    43    7    23
19    47    11    29    53    17    41    3    5    7    43    59    31    37    13    23
19    47    11    29    53    17    41    3    31    37    13    23    5    7    43    59
23    5    43    37    59    13    31    7    29    41    19    17    3    53    11    47

[此贴子已经被作者于2020-5-7 14:36编辑过]

先生您运行后在屏幕上显示的是符合要求的，但在“替换后表.dbf”中怎么会是空白的，最后还须如何修改代码，谢谢先生

嗯，谢谢先生