专家坐堂-奇怪的问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  奇怪的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88420)

--  作者：douglas738888
--  发布时间：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
--  发布时间：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