Foxtable(狐表)用户栏目专家坐堂 → DataRowLockedChanging 判定


  共有1983人关注过本帖平板打印复制链接

主题:DataRowLockedChanging 判定

帅哥哟,离线,有人找我吗?
blsu33
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2927 积分:20167 威望:0 精华:0 注册:2012/2/3 17:45:00
DataRowLockedChanging 判定  发帖心情 Post By:2016/2/24 17:27:00 [只看该作者]

红袍老师,

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

问下老师,怎么构造

 回到顶部