保存前判断多列是否有空值 没有空值才保存
我写的应该是逻辑关系不对
Dim lmc As String = "血压,心率"
Dim sz() As String
sz = lmc.Split(",")
For i As Integer = 0 To 1
If Tables("高随访").Current.IsNull(sz(i)) Then
MessageBox.Show("" & lmc.split(",")(i) & "不许为空","提示",MessageBoxButtons.OK)
Tables("高随访").Current.Locked = False
ElseIf Tables("高随访").Current(sz(i)) IsNot Nothing Then
Tables("高随访").Current.Save()
DataTables("用药情况").Save()
Tables("高随访").Current.Locked = True
Tables("用药情况").Current.Locked = True
End If
Next