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


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

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

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


加好友 发短信
等级:小狐 帖子:356 积分:2314 威望:0 精华:0 注册:2014/10/4 9:38:00
  发帖心情 Post By:2015/10/30 20:27:00 [只看该作者]

老师我做好例子,无法添加附件哦

 回到顶部
帅哥哟,离线,有人找我吗?
xianzheng
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:356 积分:2314 威望:0 精华:0 注册:2014/10/4 9:38:00
  发帖心情 Post By:2015/10/30 20:34:00 [只看该作者]

还是不行的,我做好了例子,想上传附件,可无法添加?

 回到顶部
帅哥哟,离线,有人找我吗?
xianzheng
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:356 积分:2314 威望:0 精华:0 注册:2014/10/4 9:38:00
  发帖心情 Post By:2015/10/30 20:40:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目11130031.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
xianzheng
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:356 积分:2314 威望:0 精华:0 注册:2014/10/4 9:38:00
  发帖心情 Post By:2015/10/30 20:42:00 [只看该作者]

代码在工作任务的DataColChanged事件中,老师帮看下如何改

 回到顶部
帅哥哟,离线,有人找我吗?
e-png
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1695 积分:10725 威望:0 精华:0 注册:2009/10/25 16:45:00
  发帖心情 Post By:2015/10/30 23:48:00 [只看该作者]

哇哈,你这是2016呀,没法打开了···

 回到顶部
帅哥哟,离线,有人找我吗?
xianzheng
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:356 积分:2314 威望:0 精华:0 注册:2014/10/4 9:38:00
  发帖心情 Post By:2015/10/30 23:53:00 [只看该作者]

 我这可以打开的

 回到顶部
帅哥哟,离线,有人找我吗?
xianzheng
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:356 积分:2314 威望:0 精华:0 注册:2014/10/4 9:38:00
  发帖心情 Post By:2015/10/31 9:16:00 [只看该作者]

 求助

 回到顶部
帅哥哟,离线,有人找我吗?
xianzheng
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:356 积分:2314 威望:0 精华:0 注册:2014/10/4 9:38:00
  发帖心情 Post By:2015/10/31 9:42:00 [只看该作者]

 例子上传了,老师们帮看下,是什么问题

 回到顶部
帅哥哟,离线,有人找我吗?
e-png
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1695 积分:10725 威望:0 精华:0 注册:2009/10/25 16:45:00
  发帖心情 Post By:2015/10/31 9:57:00 [只看该作者]

If e.DataCol.Name = "完成时间" Then

dim r as DataRow = e.DataRow    'Tables("工作任务").current
dim dr as datarow = DataTables("工作任务明细").Find("编号 = '“ & r("编号") & "'") 
if dr is nothing 
    Messagebox.Show("先填写分工安排时间或分工完成时间!","提示",MessageBoxButtons.OK, 

MessageBoxIcon.Information)
    e.Cancel = True
    Return
End If

End If

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部
总数 21 上一页 1 2 3 下一页