以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  定位的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3549)
--  作者：gdtgl
--  发布时间：2009/7/12 15:09:00
--  定位的问题

想问一下 positionchanged 的事件为什么会影响到增加行 的原因，，

想问一下应如何修改代码：




图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新建文件夹.rar
--  作者：gdtgl
--  发布时间：2009/7/12 15:11:00
--  
表A中的窗口1 按 新增 弹出错误 （加定位的原因在于取到 项目序号 这个编号 然后取相关标准到 表E）
--  作者：狐狸爸爸
--  发布时间：2009/7/12 18:32:00
--  
Dim wz As Integer
Dim dr As DataRow
If Tables("表A.表B").Current IsNot Nothing then
    dr = DataTables("表B").Find("[项目序号] = \'" & Tables("表A.表B").Current("项目序号") & "\'")
    If dr IsNot Nothing Then
        wz = Tables("表B").FindRow(dr)
        If wz >= 0 Then
            Tables("表B").Position = wz
        End If
    End If
End If
--  作者：gdtgl
--  发布时间：2009/7/12 18:47:00
--  

习惯了 复制 -> 粘贴  

学习....