主题：[求助]Table当前行定位问题

不严谨

Dim id As Integer
Dim r As Row
Dim dr As DataRow
Dim dr1 As DataRow
Dim wz As Integer '位置
Dim htbdze As String '合同变动后总额
Dim flt As String
flt ="合同or费用编号 = '"&forms("VO报表录入").controls("TextBox1").text &"' And 审核状态 = '已审定' And 审定日期 <= '# " & forms("VO报表录入").controls("DateTimePicker2").text  & " #'"
With Tables("VO报表台账")
    If .Current IsNot Nothing Then
        r = Tables("VO报表台账").Current
        Dim idx As Integer = Tables("支付汇总").FindRow("合同or费用编号 = '"& r("合同or费用编号") &"'")
        dr1 = DataTables("合同or费用台账").Find("合同or费用编号 = '"& r("合同or费用编号") &"'")
        If idx >= 0 Then
            Dim cr As Row = Tables("支付汇总").Rows(idx)

            CurrentTable.Position = idx
            cr.Locked = False
            Tables("合同or费用台账").Current.Locked = False
            cr("累计VO审定金额") = DataTables("VO报表台账").Compute("sum(审定金额)", flt)
            cr("累计VO审定份数") = DataTables("VO报表台账").Compute("Count(审定金额)", flt)
            cr("变更后合同or费用总额") = dr1("合同or费用总额") + cr("累计VO审定金额")

追加新记录，这样写啊

Dim cr As Row

If idx >= 0 Then

    cr = Tables("支付汇总").Rows(idx)

Else

    cr = Tables("支付汇总").AddNew

End If

 你为什么要执行这句代码？去掉不可以么？或者，你可以写到最后

CurrentTable.Position = idx