以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]DataColChanged代码找不出什么原因远行无效  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76509)

--  作者:xianzheng
--  发布时间:2015/10/30 18:37:00
--  [求助]DataColChanged代码找不出什么原因远行无效
[求助]以下DataColChanged代码找不出什么原因远行无效
If e.DataCol.Name = "完成时间" Then
    If Tables("工作任务").filter = "编号 not In (\'" & DataTables("工作任务明细").GetComboListString("编号").replace("|", "\',\'") & "\')"  Then
        Messagebox.Show("先填写分工安排时间或分工完成时间!","提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
        e.Cancel = True
        Return
    End If
End If

--  作者:狐狸爸爸
--  发布时间:2015/10/30 18:38:00
--  
直接说你要干什么比较好。
--  作者:xianzheng
--  发布时间:2015/10/30 18:40:00
--  
如果关联的明细表为空的,则不能填写主表的“完成时间”列
--  作者:狐狸爸爸
--  发布时间:2015/10/30 18:41:00
--  
我在另一个帖子回复你了
--  作者:xianzheng
--  发布时间:2015/10/30 18:41:00
--  
如果关联的明细表("工作任务明细")为空的,则不能填写主表("工作任务")的“完成时间”列
--  作者:xianzheng
--  发布时间:2015/10/30 18:57:00
--  
老师你好,之前你给的代码,我稍改了下,已经可以解决了关联明细有行记录信息是可以的,但如果关联明细表什么信息都没有(空行)时之前代码就无效了
--  作者:xianzheng
--  发布时间:2015/10/30 19:00:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20151030185919.png
图片点击可在新窗口打开查看

--  作者:xianzheng
--  发布时间:2015/10/30 19:01:00
--  
如果如上图,之前的代码不可以的
--  作者:xianzheng
--  发布时间:2015/10/30 19:05:00
--  
所以我想在DataColChanged中写了下面的代码,但不知道什么原因远行无效
If e.DataCol.Name = "完成时间" Then
    If Tables("工作任务").filter = "编号 not In (\'" & DataTables("工作任务明细").GetComboListString("编号").replace("|", "\',\'") & "\')"  Then
        Messagebox.Show("先填写分工安排时间或分工完成时间!","提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
        e.Cancel = True
        Return
    End If
End If

--  作者:e-png
--  发布时间:2015/10/30 19:53:00
--  
if Tables("工作任务明细").count =0
    Messagebox.Show("先填写分工安排时间或分工完成时间!","提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
    e.Cancel = True
    Return
End If