Foxtable(狐表) → 用户栏目 → 专家坐堂 → 导出不全


  共有2115人关注过本帖树形打印复制链接

主题：导出不全
美女呀，离线，留言给我吧！
zhangning
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		导出不全  发帖心情 Post By：2017/8/9 10:46:00 [显示全部帖子]


老师，我想将”进展状态“里显示”报警“的行，导入到表”加工进展异常监控“里，
代码是：
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("类别") = "计划"
            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

但导出的不全，无论有多少个”报警“，但导出的只有一个，
请参考下图，请老师帮看看问题出在哪里，谢谢！

图片点击可在新窗口打开查看此主题相关图片如下：导1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：导2.png
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2017/8/9 11:58:00 [显示全部帖子]

这个问题，按照老师的方法，解决了，
还有一个问题，如果显示“报警”就追加，追加以后，如果报警消除，显示为“报警解除”，那就需要将原来追加的行删掉，

这么做的目的是，将各部门报警的着重抓出来，如果问题解决了，就不需要关注了，
需要自动删除，请问老师，这种功能如何实现呢？谢谢！
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2017/8/9 15:25:00 [显示全部帖子]

写了以下代码，请老师斧正，谢谢！

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 IsNot Nothing Then
            dr6 = DataTables("加工进展异常监控").Delete()                       
        End If
    End If
End If
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2017/8/9 15:50:00 [显示全部帖子]

老师太厉害了，经过实验，点“报警”，就增加行了，如“报警解除“后，增加的行就自动删除了，
我什么时候能达到老师这样的水平就好了。
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2017/8/10 15:09:00 [显示全部帖子]

老师，我今天多加了一个条件，如代码：
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("指令单") & "' AND 工程 = '" & 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("指令单")
            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
结果每次切换数据表，就会再次导出一遍，导致多次重复，请老师帮看看问题出在哪里？谢谢！


图片点击可在新窗口打开查看此主题相关图片如下：导出1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：导出2.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：导出3.png
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2017/8/11 8:47:00 [显示全部帖子]

老师，是属性中的DATACOLCHANGED
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2017/8/11 8:49:00 [显示全部帖子]

在maintablechanged中的代码是：
DataTables("加工排产").DataCols("第11序_调度设备").RaiseDataColChanged()
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2017/8/11 10:22:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:生产管理2018 -实验.rar

开发者：qdkf
希望效果是，数据更新同步，具体的是不用每次都“重置列”，
现在如将表”设备别任务”的现有行都删除的话，切换到别的表再切换回来，记录又出现了，这种效果是想要的。
但表“加工进展异常监控”如删除的话，切换到别的表再切换回来，记录不会出现，
我怀疑是引用数据自动更新方面出现问题，这两个表的数据都是从”加工排产“表里引用过来的，
我找不出原因，请老师帮看看，谢谢！
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2017/8/11 11:00:00 [显示全部帖子]

解决了，确实是两个表不一样的问题，谢谢老师
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2017/8/11 13:26:00 [显示全部帖子]

老师，也是在12楼的文件里，
在表“加工排产”表里，如下图：

图片点击可在新窗口打开查看此主题相关图片如下：排2.png
图片点击可在新窗口打开查看

每两行是同一种产品的“计划”和“实际”，
在表“实际明细”里，如下图：

图片点击可在新窗口打开查看此主题相关图片如下：实际2.png
图片点击可在新窗口打开查看
希望将表“实际明细”里“计划良品数”列里的内容由表“加工排产”引入，
不会写代码，请老师帮帮忙，谢谢！
 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 6 次数据查询