Foxtable(狐表)用户栏目专家坐堂 → [求助]DataColChanged代码找不出什么原因远行无效


  共有4525人关注过本帖树形打印复制链接

主题:[求助]DataColChanged代码找不出什么原因远行无效

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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2015/10/31 10:09:00 [显示全部帖子]

StartEdit

 

If e.Col.Name = "完成时间" Then
   
    Dim drs As List(Of DataRow) = e.Table.Current.DataRow.GetChildRows("工作任务明细")
    If drs.Count = 0 Then
        Messagebox.Show("先填写工作任务明细!","提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
        e.Cancel = True
        Return
       
    End If
    For Each dr As  DataRow  In drs
        If dr.IsNull("分工安排时间") OrElse  dr.IsNull("分工完成时间")  Then
            Messagebox.Show("先填写分工安排时间或分工完成时间!","提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
            e.Cancel = True
            Return
        End If
    Next
End If


 回到顶部