主题：表中必填字段禁止为空的通用代码（已解决）

各位老师，

 

表中的必填字段保存时不能为空，在每一个表中都单独设置代码时没有问题，且可以自动定位到为空的字段（例子中已将各表的验证代码注释了），

 

但那样每个表去写了代码太麻烦，把代码移动到全局表事件中想实现所有表中必填字段为空时都不能保存且自动定位到为空的字段，但一直出错，请教大家

 

请删除每一个表中的任一字段内容保存

 

谢谢！

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:必填验证.table

谢谢林老师，但有个问题就是，当在关联表中删除明细表的内容时，保存提示后定位时不能定位到这个关联表，却定位到明细表了，比如我删除了如下表中的一项

  

此主题相关图片如下：360截图2013010414-1.jpg

 

 提示确定后却定位到订单明细表去了，
 

此主题相关图片如下：360截图2013010414-2.jpg

能否直接定位在关联表那里呢？。

谢谢，我试试看是否可以再请教老师了。

再次请教林老师，我加了一个判断可以得到关联表及主表，但无法定位到具体是主表的哪一行下的明细表。

 

'保存前检查不为空的列是否为空
If tbs.contains(e.DataTable.Name)  Then
    Dim dr As DataRow = DataTables("系统表").Find("表名 = '" & e.DataTable.Name & "'")
    Dim s As String = dr("必填字段")
    Dim ss() As String = s.split("\")
    For i As Integer = 0 To ss.Length - 1
        If e.DataRow.IsNull(ss(i)) Then
            MessageBox.Show("'" & e.DataTable.Name & "'的" & "'" & ss(i) & "列'不能为空!")
            If e.DataTable.name Like "*明细" Then
                For Each re As Relation In Relations
                    If e.DataTable.Name = re.ChildTable.Name Then  '如果是明细表
                        Dim tbname As String = re.ParentTable.Name & "." & re.ChildTable.Name '得到关联表
                        Tables(tbname).Position = Tables(e.DataTable.Name).FindRow(e.DataRow)
                        MainTable = Tables(re.ParentTable.Name)
                    End If
                Next
            Else
                Tables(e.DataTable.Name).Position = Tables(e.DataTable.Name).FindRow(e.DataRow)
                MainTable = Tables(e.DataTable.Name)
            End If
            e.Cancel = True
            Exit For
        End If
    Next
End If

因为如果用一个全局变量记录当前录入的表名称，但用户编辑后可能还没有保存当前表又切换到其他表去操作了，那样当前表又变成其他表了，所以也不好定位。

哪位老师帮忙看一下，就是3楼的问题，谢谢！