1、类似代码,逻辑和细节自己调整。实在是看不懂你到底要做什么
Select Case e.DataCol.name
Case "成品编码","工作时间","成品描述","生产批次","加工工序","加工内容","毛坯产地","加工顺序","循环时间","计划数量"
Dim filter As String = "成品编码='" & e.DataRow("成品编码") & "' and 生产批次='" & e.DataRow("生产批次") & "' and 加工工序='" & e.DataRow("加工工序") & "'"
Dim fdr1 As DataRow = DataTables("生产排产表").find(filter)
For i As Integer = 1 To 31
Dim d As Date = Date.Today.AddDays(i-1)
e.DataRow("日" & i) = e.DataRow("计划数量")-(e.DataRow("工作时间")-(cdate(fdr1("开始日期"))-d.AddHours(8)).totalminutes/e.DataRow("循环时间"))-DataTables("工序跟踪表").compute("sum(完成数量)", filter)
Next
End Select
2、你哪一步不会?请细分你的问题。你会find数据了吗?你会compute数据了吗?如果固定列名的情况,比如12月6日,你能计算出答案了吗?
你这样没有一点基础,理解不了代码意思的情况下,是无法开发项目的。
3、请先吧基础学习一下,你现在连看懂代码的基础都没有。