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

猜是用:表的方法Compute(max(某编码)....)，find....

最好是传文件，然后说明想得到什么样的要求．

dim a1 as integer = Tables("订单").Compute("max(编号)")
Dim drs As List(Of DataRow)  = DataTables("订单").Select("[编号] = '"& a1 &"' ")
Dim drs2 As List(Of DataRow)  = DataTables("调用").Select("[编号] = '"& a1 &"' ")
dim a2 as integer = drs2.count

if a2 <1 then   
    For Each ddang as datarow in drs        
           Dim r As Row = Tables("调用").Rows.AddNew()
               r("编号")  = ddang("编号")
               r("日期") = ddang("日期")
               r("数量")  = ddang("数量")
               r("产品")  = ddang("产品")
     next        
else
   messagebox.show("数据已存在")
end if



（可以在命令窗口运行，看下效果，是不是这个要求)

原来老六出手了。。。。

我是将编号列要改为数据型来试。如果不改,要转换数据类型(max才有效果)