-- 作者:有点甜
-- 发布时间:2017/7/4 18:04:00
--
临时表,这样用
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
|