Dim Tbl As Table = Tables("派工")Dim cur As StringIf tbl.Current IsNot Nothing Then cur = tbl.Current("派工单号")End If