标题：定位的问题

1楼

gdtgl 发表于：2009/7/12 15:09:00

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

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

此主题相关图片如下：未命名.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文件夹.rar

2楼

gdtgl 发表于：2009/7/12 15:11:00

表A中的窗口1 按新增弹出错误（加定位的原因在于取到项目序号这个编号然后取相关标准到表E）

3楼

狐狸爸爸 发表于：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

4楼

gdtgl 发表于：2009/7/12 18:47:00

习惯了复制 -> 粘贴

学习....

共4 条记录, 每页显示 10 条, 页签: [1]