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

1、清除行
Dim Max As integer = DataTables("订单").Compute("Max(编号)")
DataTables("订单").DataRows.Clear()
For i As integer  = 1 To 8
   DataTables("调用").AddNew()("编号") = Max + 1
Next

2、自己设计一个增加行的按钮：

With  DataTables("调用")
      .AddNew()("编号") = .DataRows(.DataRows.Count -1)("编号")  + 1

End With