Private Sub 将生日移到第二列_Click()
Me.frmChild!生日.ColumnOrder = 2    '列移到第2位
End Sub

Private Sub 恢复_Click()
Me.frmChild.SourceObject = "tbl_test 子窗体"
End Sub

附   件:

点击下载此附件

演   示: