Dim t As Table = e.form.controls("设备状态表").Table
msgbox(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
    Next
End If