以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  保存按钮  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86295)
--  作者：lingyun00800
--  发布时间：2016/6/15 8:13:00
--  保存按钮

老师：

      保存按钮中，只筛选了当前行的状态。如果指针不在新增这行的时候，表就直接保存了。

      怎么改进一下。。。谢谢

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:1.foxdb
--  作者：Hyphen
--  发布时间：2016/6/15 8:40:00
--  
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()
--  作者：lingyun00800
--  发布时间：2016/6/15 9:19:00
--  

当指针在别的列时，还是能保存啊！
--  作者：大红袍
--  发布时间：2016/6/15 9:41:00
--  
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()