主题：用PerformClick执行按钮删除行出错

Dim ckmc As String=e.Form.Name

Dim zuo As Table=Tables(ckmc+"_zuo")

Dim you As Table=Tables(ckmc+"_you")

Dim zuoh As Integer

If zuo.Current IsNot Nothing Then '当前行不为空

    '右侧代码

    Dim an As Row=you.AddNew '添加新的一行

   ' zuo.Select(zuo.position,0)  '选定左侧当前行

    an("ghsdm")=zuo.Current("ghsdm")  '为新的行赋值

    an("ghsmc")=zuo.Current("ghsmc")

    you.Position = you.Rows.Count - 1 '定位到最后一行

    '右侧定位到最后一行

    '左侧代码

    zuoh=zuo.Position

    zuo.current.delete '删除选定行

    If zuoh=zuo.Rows.count   Then  '如果删掉的是最后一行则(删掉一行之后,所有不减1)

        zuo.Position=zuo.Rows.count

    End If

End If

选中最后一行时，直接点击toyou1按钮的时候，是正常的，可是双击的时候，就会提示index超出范围