Dim t As Table = e.form.controls("设备状态表").Tablemsgbox(t.TopPosition)If t.TopPosition >=0 Then For i As Integer = t.TopPosition To t.BottomPosition Dim r As Row = t.rows(i) r("验收人员") = _UserName r("验收开始日期") = Date.now NextEnd If