主题：C版请进

哦，那就应该不会有问题了。

 C版的热心为我感动.mr725的水平和热心程度也可以当版主了.

将计划工序相关代码改成：
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代码错误

那就改成这样：

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
    End if
Next
DataTables("计划工序").DataCols("工时_天数").RaiseDataColChanged()

找到报错问题了：
生产工序、工艺表的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楼，谢谢

计划工序表15楼不是已经好了吗。

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