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超出范围