看不懂你的描述，看不懂你的逻辑，请单独做个实例发上来，说明操作步骤，说明要实现的功能。

窗口2-->补贴

说明:  我在Excel 文件批量复制 编码 金额 粘贴到 BC明细表中,

         BC明细表保存之后 遍历 BC明细表,根据编码查找 补偿表中是否能找到该编码

         找到的话 剩余金额 = 剩余金额 -金额

                     Bid = id

         刷新补偿表

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

参考代码

If e.DataCol.Name = "编码" OrElse e.DataCol.name = "金额" Then
    Dim t As Table = e.Form.controls("Table4").Table
    If e.DataRow("编码")<>Nothing AndAlso e.DataRow("金额")<>Nothing Then
        Dim fdr As DataRow = t.DataTable.Find("编号 = \'" & e.DataRow("编码") & "\'")
        If fdr IsNot Nothing Then
            fdr("剩余金额") -= e.DataRow("金额")
        End If
    End If
End If

4楼代码没问题。 你输入编码后，输入金额，就会对应减去table4的代码。请认真测试。

或者你截图说明测试步骤。

测试弹出的顺序如图3所示

看起来好像问题是出在在了刷新按钮的click事件里面

此主题相关图片如下：1.png


此主题相关图片如下：2.png


此主题相关图片如下：3.png

测试没问题，你肯定有其它代码影响。

请上传具体例子说明。

8楼问题截图很明显阿,我特意用方框了,选择是是Table4中 id 为 6112 6115的证书编号,但是 扣掉的是id 为4489的剩余金额

问题在刷新按钮的Click事件中:以下代码:

刷新的时候position指在了0的位置,

甜大,可不可以按证书编码查找Table4中的编号,然后把找到的数据设置为当前行

循环Table3,find Table4中的证书编号......思路有点乱...

问题就在下面的代码,指定了当前行

Dim r As Row =Tables("_Table3").Current
Dim bcid As Integer
If r IsNot Nothing  Then
    bcid= r("bcid")
    With Tables("_Table4")
        Dim p As Integer
        p= .FindRow("[id]=" & bcid ) \'从当前行的下一行开始查找
        If p >= 0 Then \'如果找到的话
           \' .Position = p \'定位到找到的行.
            SystemReady = False
            .position = p
            SystemReady = True
            .Rows(p).checked = False
        End If
msgbox("p= " & p)
    End With
msgbox("bcid= " & bcid)
End If