主题：请求帮助：提取的业务数量不能保存？

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()

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