按钮代码求助（C版请进，又出问题了） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 按钮代码求助（C版请进，又出问题了）

共有19393人关注过本帖树形打印复制链接主题：按钮代码求助（C版请进，又出问题了）

czy

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

加好友

发短信

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

Post By：2009/12/19 16:52:00 [只看该作者]

是不是这样？

Dim dr As DataRow = e.DataRow
Dim Sum As Double = Tables("表B").Compute("Sum(工序天数)","[图号] = '" & dr("图号") & "' And [名称] = '" & dr("名称") & "' And [订单号] = '" & dr("订单号") & "' And [工序号] <= " & dr("工序号"))
Dim pr As DataRow = dr.GetParentrow("表A")
dr("工序完工日期") = pr("到料日期").AddDays(Sum * (pr("计划周期")/pr("合计天数")))

[此贴子已经被作者于2009-12-19 16:53:56编辑过]

wqc360

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

加好友

发短信

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

Post By：2009/12/19 16:55:00 [只看该作者]

插在那里呀，我死了几次都不行
dr("工序完工日期") = pr("到料日期").AddDays(Sum) pr("计划周期")/pr("合计天数")

wqc360

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

加好友

发短信

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

Post By：2009/12/19 16:58:00 [只看该作者]

这样不行
dr("工序完工日期") = pr("到料日期")*pr("计划周期")/pr("合计天数").AddDays(Sum)

wqc360

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

加好友

发短信

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

Post By：2009/12/19 17:00:00 [只看该作者]

ok，太感谢C版了

wqc360

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

加好友

发短信

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

Post By：2009/12/19 17:03:00 [只看该作者]

再求一个代码
表B“工序开工日期”=“工序完工日期”-“工序天数”

czy

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

加好友

发短信

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

Post By：2009/12/19 17:18:00 [只看该作者]

这应该很简单吧。

Dim dr As DataRow = e.DataRow
Dim Sum As Double = Tables("表B").Compute("Sum(工序天数)","[图号] = '" & dr("图号") & "' And [名称] = '" & dr("名称") & "' And [订单号] = '" & dr("订单号") & "' And [工序号] <= " & dr("工序号"))
Dim pr As DataRow = dr.GetParentrow("表A")
dr("工序完工日期") = pr("到料日期").AddDays(Sum * (pr("计划周期")/pr("合计天数")))
if dr.IsNull("工序完工日期") And dr.IsNull("工序天数") Then
dr("工序开工日期") = Nothing
Else
dr("工序开工日期") = dr("工序完工日期").AddDays(-dr("工序天数"))
End If

czy

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

加好友

发短信

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

Post By：2009/12/19 17:19:00 [只看该作者]

改一下。

Dim dr As DataRow = e.DataRow
Dim Sum As Double = Tables("表B").Compute("Sum(工序天数)","[图号] = '" & dr("图号") & "' And [名称] = '" & dr("名称") & "' And [订单号] = '" & dr("订单号") & "' And [工序号] <= " & dr("工序号"))
Dim pr As DataRow = dr.GetParentrow("表A")
dr("工序完工日期") = pr("到料日期").AddDays(Sum * (pr("计划周期")/pr("合计天数")))
if dr.IsNull("工序完工日期") OrElse dr.IsNull("工序天数") Then
dr("工序开工日期") = Nothing
Else
dr("工序开工日期") = dr("工序完工日期").AddDays(-dr("工序天数"))
End If