For Each dr1 As Row In Tables("过账预览").Rows If dr1.IsNull("移动数量") = False Then
MessageBox.show(dr1.Index & ”为空!") End IfNext