- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 计划与实际引入数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94273)
-- 发布时间：2016/12/20 14:04:00
-- 计划与实际引入数据
此主题相关图片如下：计划实际1.png
如图，每种产品，批量安排时，都是一行 计划，紧接着是一行实际，计划行的“第1序_加工日期编号”都是有内容的，
想要达到的效果是，如“指令单”相同，将复制计划行的“第1序_加工日期编号”内容黏贴到实际行的“第1序_加工日期编号”里，
请问老师，这个怎么弄呀？
-- 发布时间：2016/12/20 15:18:00
--
查找到对应的行
Dim fdr As DataRow = e.DataTables.Find("指令单 = \'" & e.DataRow("指令单") & "\' and 类别 = \'实际\'")
If fdr IsNot Nothing Then
fdr("第1序_加工日期编号") = e.DataRow("第1序_加工日期编号")
End If
-- 发布时间：2016/12/20 16:20:00
--
解决了，谢谢老师！
-- 发布时间：2016/12/20 16:29:00
--
老师，每道工序里都有“_配膳日” “_开始日” “_结束日”，计划行里 都有日期，
我预先设置了 单元格样式 “实际日期超过”，
想如果实际行全部工序的对应3个日期 大于 计划的相应日期 时，就运用 单元格样式
（任意一个日期如果如果实际日期大于计划日期，就显眼标识，便于发现）
请问老师，这个怎么弄呢？
-- 发布时间：2016/12/20 16:49:00
--
发个例子上来吧。
-- 发布时间：2016/12/21 7:57:00
--
好的
-- 发布时间：2016/12/21 7:58:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:时间对比1.zip |
谢谢老师
-- 发布时间：2016/12/21 9:00:00
--
开发者密码？
-- 发布时间：2016/12/21 9:24:00
--
Drawcell事件
If e.Row("类别") = "实际" Then
If e.Col.name Like "*_配膳日" OrElse e.Col.name Like "*_开始日" OrElse e.Col.name Like "*_结束日" Then
Dim fdr As DataRow = e.Table.DataTable.find("部品id = \'" & e.Row("部品id") & "\'")
If fdr IsNot Nothing Then
If e.Row(e.Col.name) > fdr(e.Col.name) Then
e.style = "实际日期超过"
End If
End If
End If
End If
-- 发布时间：2016/12/21 9:59:00
--
密码 qdkf