主题：C版请进

C版，您好，文件我已经做成内部表了，请帮我看看，文件-基础数据-下达计划-窗口控件下达生产计划，录入数据，点控件下达生产计划，可以执行，只有计划工序表中两个日期列没数据，需点配置栏重算表得到，还能接受。
文件-计划数据-到料排产-窗口控件到料排产录入数据，点控件到料准备生产，就出错，请帮我看看生产工艺表、生产工序表、生产目录表、日报表的表属性和填充按钮代码应该怎么改，其中计算数据都需要要，只能改代码用不同方法得出，不能少，关键问题是子父表之间相互提取数据进行计算，这又是必须的。谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目15.rar

您空了再看，很乱的，可能会耽误你很多时间，先谢谢您了。

狗狗没拿回来，明天我试试

原来的计算结果都对，用手工录入数据进行的测试，逻辑也对。

将计划工序相关代码改成：
Dim T1 As Table = Tables("计划工序")
For n As integer = 0 to T1.count-1
    if T1.rows(n)("图号") = tables("产品目录").current("图号") And T1.rows(n).isnull("派工单号")
        T1.rows(n)("派工单号") = e.Form.Controls("(派工单号)").text
        T1.rows(n)("计划数量") = e.Form.Controls("(计划数量)").text
        T1.rows(n)("计划日期_开始") = e.Form.Controls("(计划转入日期)").Value
        T1.rows(n)("计划日期_结束") = e.Form.Controls("(计划完工日期)").Value
    End if
Next
这段代码我是覆盖下达生产计划窗口下达生产计划控件的如下代码：
for n as integer = 0 to tables("计划工序").count-1
    if tables("计划工序").rows(n)("图号") = tables("产品目录").current("图号") and tables("计划工序").rows(n).isnull("派工单号")
        tables("计划工序").rows(n)("派工单号") = Forms("下达生产计划").Controls("(派工单号)").text
        tables("计划工序").rows(n)("计划数量") = Forms("下达生产计划").Controls("(计划数量)").text
    end if
next
最后得到的计算结果计划日期_开始=计划转入日期、计划日期_结束=计划完工日期是不对的，并且与计划工序表属性DataColChanged代码计算结果不一样，因原来填充以后就是这两个算不出来，没数据，现在是有填充数据，但不对，点重算表，得到正确结果，是运行了DataColChanged代码。

到料准备生产窗口，到料准备生产按钮代码改成这样


改了以后还是提示生产工序和生产工艺表DataColChanged代码错误

找到报错问题了：
生产工序、工艺表的DataColChanged事件少了一个【2】红色部分
If e.DataCol.Name = "图号" Orelse e.DataCol.Name = "派工单号"  Then
    Dim dr2 As DataRow = DataTables("生产目录").Find("[图号] = '" & e.DataRow("图号") & "' And [派工单号] = '" & e.DataRow("派工单号") & "' ")
    If dr2 IsNot Nothing Then
        e.DataRow("到料数量") = dr2("到料数量")
    Else
        e.DataRow("到料数量") = Nothing
    End If
End If

请C版测试，现在只是工序表的计划日期没算出来，要点重算才行。这个问题是否解决。谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目15.rar

15楼经测试，还是不行，不过辛苦您了，帮我看看17楼，谢谢

能不能设置目录表中“工艺工时_天数”变法触发工序表关联行"工序_序号"列的DataColChanged事件