重置“工序_班组”列提示错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 重置“工序_班组”列提示错误

共有14166人关注过本帖树形打印复制链接主题：重置“工序_班组”列提示错误

czy

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2009/12/20 12:28:00 [只看该作者]

If e.DataCol.Name = "工序_班组" Then
    Dim dr1 As DataRow = DataTables("基础表").Find(" [班组] = '" & e.DataRow("工序_班组") & "'")
    If dr1 IsNot Nothing Then
        dr("工作时间") = dr1("工作时间")
    Else
        dr("工作时间") = Nothing
    End If
End If

[此贴子已经被作者于2009-12-20 12:28:32编辑过]

wqc360

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：790 积分：5677 威望：0 精华：0 注册：2009/4/17 18:42:00

Post By：2009/12/20 15:35:00 [只看该作者]

谢谢C版，搞定

狐狸爸爸

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/12/21 9:14:00 [只看该作者]

错误提示再清楚不过了：基础表没有图号列

If e.DataCol.Name = "工序_班组" Then
    dr = DataTables("基础表").Find(" [班组] = '" & e.DataRow("工序_班组") & "'")
    If dr IsNot Nothing Then
        e.DataRow("工作时间") = dr("工作时间")
    Else
        e.DataRow("工作时间") = Nothing
    End If
End If
Dim Sum As Double = Tables("生产工序").Compute("Sum(工艺工时_天数)","[图号] = '" & dr("图号") & "' And [派工单号] = '" & dr("派工单号") & "' And [状态] = '执行' And [工序_序号] <= " & dr("工序_序号"))
Dim Sum1 As Double = Tables("生产工序").Compute("Sum(工艺工时_天数)","[图号] = '" & dr("图号") & "' And [派工单号] = '" & dr("派工单号") & "' And [状态] = '执行' And [工序_序号] >= " & dr("工序_序号"))

第一个红色，dr成了基础表的行，第二个红色，使用dr("图号")，如果基础表没有图号，自然出错

wqc360

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：790 积分：5677 威望：0 精华：0 注册：2009/4/17 18:42:00

Post By：2009/12/21 11:36:00 [只看该作者]

难怪，C版帮我搞了一个dr1，就解决了，谢谢，我虽然借鉴了很多，但是对代码语法是一窍不通，所以只能复制，粘贴，修改，出为题就无能为力了，只有请求帮助，谢谢

下一主题 >> << 上一主题

总数 14 上一页 1 2

主题：重置“工序_班组”列提示错误