For i As Integer = 0 To DataTables("FXFHWL_TABLE1").DataRows.Count -1 If DataTables("FXFHWL_TABLE1").DataRows(i).IsNull("出库类别") Then msgbox("第" & i+1 & "行出库类别不能为空!") Return End If If DataTables("FXFHWL_TABLE1").DataRows(i).IsNull("物流单号") Then msgbox("第" & i+1 & "行物流单号不能为空!") Return End If Next DataTables("FXFHWL_TABLE1").Save