学习主子表同时保存数据出现的问题

 看了主子表同时保存数据的例子，想把电话也显示出来，以下是根据示例修改的内容：

Private Sub fxlxr2_AfterUpdate()

    If Me.fxlxr2 = -1 Then
        Me.lxr = Me.gysid.Column(3)
        Me.dh = Me.gysid.Column(5)
        Me.lxr.SetFocus
    Else
        Me.lxr = Me.gysid.Column(2)
        Me.dh = Me.gysid.Column(4)
        Me.lxr.SetFocus
    End If
End Sub

问题来了，其中的Me.dh = Me.gysid.Column(5)不起作用，到底哪里出了问题？

附件是我修改后的：点击下载此附件