保存按钮 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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 dr.IsNull(cc.Name) Then
                        MessageBox.Show(cc.Name & "内容为空" ,"提示")
                        Return
                    End If
            End Select
        Next
    End If
Next
Tables("zjfz_bm_sx").save()

主题：保存按钮