- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]单个工序计划排程 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=110336)
-- 发布时间：2017/12/1 10:05:00
-- [求助]单个工序计划排程
表A
列名如下
定单 数量 优先级 UPH(每小时产量) 工时数 今天 明天 后天 大后天
M01 100 10 10 10 80 20
M02 50 1 2 25 12 16 16 预存6K
说明：
假设每天上班时间为8小时。
计划表中只显示近4天的计划。
排计划前，依优先级排序。
面临困难：
1.如何将每天的计划产出数字 放到今天，明天。。。下方。
请问有没有参考的实例。
-- 发布时间：2017/12/1 10:28:00
--
根据当前日期，得到 今天、明天、后天的日期，然后合成条件，统计或者查询数据，不就好了？
Dim jt As Date = Date.Today
Dim mt As Date = jt.AddDays(1)
Dim ht As Date = jt.AddDays(2)
Dim dht As Date = jt.AddDays(3)
http://www.foxtable.com/webhelp/scr/0681.htm
-- 发布时间：2017/12/2 16:26:00
--
老师，帮忙看一下。
每天的计划产出，如何自动到每班的下方。
[此贴子已经被作者于2017/12/2 16:33:34编辑过]
-- 发布时间：2017/12/2 16:29:00
--
11111
[此贴子已经被作者于2017/12/2 16:34:15编辑过]
-- 发布时间：2017/12/2 16:55:00
--
2个表通过哪一列数据进行关联？
-- 发布时间：2017/12/2 17:00:00
--
排班
只是为了体现
列12-02_早，中夜班
的工时总数
排班表
列 日期&‘“_” &列 班次 =
排程表
列名 12-02_早。。。
排程表 我增加了一个机台列
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:排程.zip |
-- 发布时间：2017/12/2 17:26:00
--
排班表datacolchanged
Select Case e.DataCol.Name
Case "机台","日期","班次","工时"
If e.DataRow.IsNull("日期") = False
Dim dr As DataRow = DataTables("排程").Find("机台=\'" & e.DataRow("机台") & "\'")
If dr Is Nothing Then
dr = DataTables("排程").AddNew()
dr("机台") = e.DataRow("机台")
End If
Dim c As String
If e.DataRow("日期").Date = Date.Today
c = "今天"
ElseIf e.DataRow("日期").Date = Date.Today.AddDays(1)
c = "明天"
End If
c = c & "_" & e.DataRow("班次")
If DataTables("排程").DataCols.Contains(c)
dr(c) = e.DataRow("工时")
End If
End If
End Select
-- 发布时间：2017/12/2 17:42:00
--
老师，您误解了。
我不是要排班的小时数联结过来
要把排产的数量 自动排入。
表A 列名如下 定单 数量 优先级 UPH(每小时产量) 工时数 今天 明天 后天 大后天 M01 100 10 10 10 80 20 M02 50 1 2 25 12 16 16 预存6K 说明： 假设每天上班时间为8小时。 计划表中只显示近4天的计划。 排计划前，依优先级排序。 面临困难： 1.如何将每天的计划产出数字 放到今天，明天。。。下方。 如红字 |
-- 发布时间：2017/12/2 20:52:00
--
这个我一直没有想到方法实现。
有可能吗
-- 发布时间：2017/12/3 9:45:00
--
用 mod 和\\