主题：保存按钮

For Each dr As Row In Tables("zjfz_bm_sx").Rows

    If dr.DataRow.RowState = DataRowState.Added Then

        For Each cc As Col In Tables("zjfz_bm_sx").Cols

            Select Case cc.name

                Case "ID"

                Case Else

                    If Tables("zjfz_bm_sx").Current.IsNull(cc.Name) Then

                        MessageBox.Show(cc.Name & "内容为空" ,"提示")

                        Return

                    End If

            End Select

        Next

    End If

Next

Tables("zjfz_bm_sx").save()