主题：[求助]自定义录入界面的问题

如果收款人对应多个账号

在前几行,录入收款人后,按enter健,自动录入(窗口2)同一行收款人账号.

而在后几行(大于500行),录入收款人后,按enter健,录入的却是(窗口2)后一行账号(相同收款人).

If e.Col.Name = "收款人"  Then

    Forms("窗口2").Open()

    Dim t As Table = Tables("窗口2_Table1")

    If e.keycode = keys.Down

        t.position = t.Position +1

        e.Cancel = True

    ElseIf e.keycode = keys.up

        t.position = t.Position -1

        e.Cancel = True

    ElseIf e.Keycode = keys.Enter And t.Current IsNot Nothing

        e.Row("收款人账号") = t.Current("收款人账号")

        e.Row("收款人开户银行") = t.Current("收款人开户银行")

        e.Row("省") = t.Current("省")

        e.Row("ID") = t.Current("ID")

        e.Text = t.Current("收款人")

        Forms("窗口2").close()

    End If

End If