If DataTables("表A").HasChanges Then
If Tables("表A").Rows.Count > 0 Then
Dim Colnames As String() = {"第一列","第二列","第三列","第四列"}
Dim Issave As Boolean = True
For Each ColName As String In Colnames
If Tables("表A").Current.IsNull(ColName) Then
Issave = False
MessageBox.Show("当前记录还未输入完成,请完成输入")
Return
End If
Next
........
If Issave Then
If MessageBox.show("是否保存当前数据?","提示",MessageBoxButtons.YesNo) = DialogResult.Yes Then
For Each r As Row In Tables("表A").Rows
r.Locked = True
Next
DataTables("表A").Save()
End If
End If
End If