主题：表连接数据刷新问题

问题如图: If e.DataCol.Name = "编码" Then     For Each dr As DataRow In DataTables("表A").DataRows        If e.DataRow("编码")<>"" AndAlso e.DataRow("金额") IsNot Nothing Then                                              End If     Next End If

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

窗口2-->补贴

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

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

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

                     Bid = id

         刷新补偿表

 

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

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

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

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

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

测试弹出的顺序如图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

有什么方法速度做实例吗?要重新做内部表,重新写代码......我做得太慢了,起码半天,太浪费时间了

8楼图3,粘贴完证书编码\ 使用金额之后,并不是根据证书编码扣减右边表的金额的

而是根据右边的表的当前行是哪个就扣减哪个的,错就错在这里 ,他是根据Table4的当前行扣减的

,而并不是按照证书编号扣减金额的