Dim dr As DataRow
dr = DataTables("合同主表").find("[客户名称] = \'" & Tables("结算主表").Current("客户名称") & "\'  and [合同开始日] <= \'" & Tables("结算主表").Current("年份月份") & "\' and  [合同结束日] >= \'" & Tables("结算主表").Current("年份月份") & "\'")
Tables("结算主表").Current("合同编号") = dr("合同编号")
\'以上是提取合同相关信息

Dim dr1s As List (of DataRow)
dr1s =DataTables("业务量明细表").Select("[供应商名称] = \'" & Tables("结算主表").Current("客户名称") & "\' and  [结算年月] = \'" & Tables("结算主表").Current("年份月份") & "\'")
For Each dr1 As DataRow In dr1s
    Dim dr2 As Row = Tables("结算主表.结算明细表").AddNew
    dr2("产品名称") = dr1("产品名称")
    dr2("产品型号") = dr1("图号")
    If Tables("结算主表").Current("数量来源") = "出库数" Then
        dr2("业务数量") = dr1("出库合计")
    Else
        dr2("业务数量") = dr1("供应商送货")
    End If
Next
\'以上是提取业务数量信息

DataTables("结算主表").Save()
DataTables("结算明细表").Save()

 如果你在Foxtable看到数据提取了，并保存了，但是重新打开后，数据还是不存在。

那么也许这一列是个表达式列，看看：

http://www.foxtable.com/help/topics/1380.htm

谢谢狐狸爸爸！果真是将该列设为表达式列了。