红袍老师,
DataRowLockedChanging 表事件中,希望表在锁定行的时候判断一下
举例 根据另外一个表来测定 有为空的字段,不允许当前行锁定,代码如下:不是标注颜色的部分,出现系统错误,系统就退出了
Dim str As String
Dim bm As String=e.DataTable.name
Dim dt2 As DataTable
Dim dr As DataRow
dt2 = Functions.Execute("loading","必填列",0,"表名='"& bm &"' And 是否必填=1")‘查找对用的表
If dt2.DataRows.Count>0 Then
For Each dr2 As DataRow In dt2.DataRows
str &= " or " & dr2("列名") & " Is null"
Next
If str.SubString(4)<>"" Then
Dim fdr As DataRow = e.DataTable.Find(str.SubString(3))
If fdr IsNot Nothing Then
PopMessage("请完成必填字段!","错误", PopIconEnum.Error, 5)
e.Cancel=True
End If
End If
End If
问下老师,怎么构造