主题：临时表当前行引用的问题

临时表，这样用

 

Dim r As row = Tables("CreatPartProcessTemp").Current

If r IsNot Nothing Then

     msgbox(r("ProcessMachine"))

Else

    msgbox("表格为空")

End If

 

窗口表，这样用

 

Dim r As row = Forms("窗口1").Controls("Table1").Table.Current

If r IsNot Nothing Then

     msgbox(r("ProcessMachine"))

Else

    msgbox("表格为空")

End If