主题：求易表对应的狐表公式或代码

哈哈～
 第 1 项是狐爸的方法正确！gdtgl的办法也能调入，但是没有删除原有的内容。

 第 2 项根据狐爸的稍微改两个小地方。

Dim Max As integer = DataTables("订单").Compute("Max(编号)")
For i As integer  = 1 To 8
   DataTables("调用").AddNew()("编号") = Max + 1
Next
增加的行是在【调用】表中增加，编号列的内容要全部一样（即：【订单】表的最大编号+1）

另外，我原来问题的第2项中，还有两个没解决：a、增加行前要删除【调用】表中的所有行，b、有可能还要在8条后再增加行，此时再增的行的编码也要自动的等于Max + 1。