主题：[求助]请给我一段代码!

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