主题：导出不全

If e.DataCol.name Like "*序_进展状态*"  Then
    Dim idx As Integer = e.DataCol.name.replace("第", "").replace("序_进展状态", "")
    If e.DataRow("第" & idx & "序_进展状态") = "报警"  Then
        Dim dr6 As DataRow
        dr6 = DataTables("加工进展异常监控").Find("加工日期编号 = '" & e.DataRow("第" & idx & "序_加工日期编号") & "'")
        If dr6 Is Nothing Then
            dr6 = DataTables("加工进展异常监控").AddNew()
            dr6("加工日期编号") = e.DataRow("第" & idx & "序_加工日期编号")
            dr6("进展状态") = e.DataRow("第" & idx & "序_进展状态")
            dr6("设备") = e.DataRow("第" & idx & "序_调度设备")
            dr6("类别") = "计划"
            dr6("部组名") = e.DataRow("部组名")
            dr6("部品ID") = e.DataRow("部品ID")
            dr6("工程") = e.DataRow("第" & idx & "序_工程名")
            dr6("开始日期") = e.DataRow("第" & idx & "序_开始日")
            dr6("结束日期") = e.DataRow("第" & idx & "序_结束日")
            dr6("投入数量") = e.DataRow("第" & idx & "序_投入数量")
            dr6("作业者") = e.DataRow("第" & idx & "序_作业者")
            dr6("加工先") = e.DataRow("第" & idx & "序_加工先")
            dr6("配膳日") = e.DataRow("第" & idx & "序_配膳日")
            dr6("夜") = e.DataRow("第" & idx & "序_夜")
            dr6("瓶颈") = e.DataRow("第" & idx & "序_瓶颈")
        End If
    End If
End If

你切换数据表执行了什么代码？maintableChanged等事件。

你两个表不一样？

 

        dr6 = DataTables("加工进展异常监控").Find("指令单 = '" & e.DataRow("指令单") & "' AND 工程 = '" & e.DataRow("第" & idx & "序_工程名") & "'")

        If dr6 Is Nothing Then
            dr6 = DataTables("加工进展异常监控").AddNew()

1、看11楼，你新增的表和你查找的表，必须是同一个表。

 

2、你修改表数据，就自动同步数据了啊，没必要每次都重置列。

直接跨表统计

 

http://www.foxtable.com/webhelp/scr/1454.htm

 

http://www.foxtable.com/webhelp/scr/1472.htm

 

你的代码有没有报错？

 

我测试了一下，没问题。请认真测试。

 代码没问题，例子发上来测试。