第一个项目算是完成了,已经在用了,由于是第一个项目,基本上所有的运算全是前台处理,所以一开项目时就是等待加载所有的表与数据。
我现在准备重做这个项目,尽可能的用到后台处理,现有一事讨教一下,就是原来基于前台的运算如何处理,如以下代码:
下面的代码是之前甜版帮我写的,运行的非常完美,此代码是完全基于前台运算,如果转成后台处理,流程应该如何?
'库存标记生成模块
If e.DataCol.Name= "写入标记" AndAlso e.DataRow("写入标记")=True Then
Dim drs As List(Of DataRow) = DataTables("工序合并表").Select("母卷号 = '" & e.DataRow("母卷号") & "'", "卷号,起始时间") '指定母卷号计算
If drs.Count=1 Then
drs(0)("库存标记") = True
Else
For i As Integer = 1 To drs.Count - 1
If drs(i)("卷号").Contains(drs(i-1)("卷号")) Then
drs(i-1)("库存标记") = False
Else
drs(i-1)("库存标记") = True
End If
Next
drs(drs.Count-1)("库存标记") = True
End If
End If