以文本方式查看主题
- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]DataColChanged代码找不出什么原因远行无效 (http://foxtable.net/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
|