Select Case MainTable.Name
Case "A"
If Tables("A.B").current IsNot Nothing Then
Tables("A.B").Select(0,0)
End If
If Tables("A.B") Is Nothing Then
Tables("B").Select(0,0)
Case "B"
Tables("B.A").Select(0,0)
End Select
加好友 
发短信
Post By：2014/4/13 22:55:00 [只看该作者]
