Foxtable(狐表) → 用户栏目 → 专家坐堂 → 奇怪的问题


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

主题：奇怪的问题
帅哥哟，离线，有人找我吗？
douglas738888
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00 		奇怪的问题  发帖心情 Post By：2016/8/2 16:38:00 [只看该作者]

请教老师，下面这段代码在设计窗口测试没有问题，但是直接打开文件进行测试就报错“_完成”不属于表  工作任务完成提醒， 如果删除这段代码就不报错

不知代码的问题在哪里？？？？

写在datacolchanged:

If e.DataCol.name = "审批完成" Then    '工作策划主表,对应项目编号的审批完成全部勾选后, 工作任务完成提醒 对应项目编号的 各设计阶段完成逻辑列  勾选 20160722
    Dim pr As DataRow
    Dim cr As DataRow = e.DataRow
    Dim c11 As Integer = cr.DataTable.Compute("count(项目编号)", "项目编号 = '" & cr("项目编号") & "' and 设计阶段 = '" & cr("设计阶段") & "'")
    Dim c22 As Integer = cr.DataTable.Compute("count(项目编号)", "项目编号 = '" & cr("项目编号") & "' and 审批完成 = true and 设计阶段 = '" & cr("设计阶段") & "'")
    pr = DataTables("工作任务完成提醒").find("项目编号 = '" & cr("项目编号") & "'")
    If pr IsNot Nothing Then
        pr(cr("设计阶段") & "_完成") = (c11 = c22)
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/8/2 16:59:00 [只看该作者]

cr("设计阶段")是空值吧

msgbox(cr("设计阶段") & "_完成")看看



If e.DataCol.name = "审批完成" andalso e.DataRow.isnull("设计阶段") = false Then    '工作策划主表,对应项目编号的审批完成全部勾选后, 工作任务完成提醒 对应项目编号的 各设计阶段完成逻辑列  勾选 20160722
    Dim pr As DataRow
    Dim cr As DataRow = e.DataRow
    Dim c11 As Integer = cr.DataTable.Compute("count(项目编号)", "项目编号 = '" & cr("项目编号") & "' and 设计阶段 = '" & cr("设计阶段") & "'")
    Dim c22 As Integer = cr.DataTable.Compute("count(项目编号)", "项目编号 = '" & cr("项目编号") & "' and 审批完成 = true and 设计阶段 = '" & cr("设计阶段") & "'")
    pr = DataTables("工作任务完成提醒").find("项目编号 = '" & cr("项目编号") & "'")
    If pr IsNot Nothing Then
        pr(cr("设计阶段") & "_完成") = (c11 = c22)
    End If
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.02499 秒, 4 次数据查询