以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助][求助]讨教后台运算的思路  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65395)
--  作者：huangfanzi
--  发布时间：2015/3/15 12:12:00
--  [求助][求助]讨教后台运算的思路

第一个项目算是完成了，已经在用了，由于是第一个项目，基本上所有的运算全是前台处理，所以一开项目时就是等待加载所有的表与数据。
我现在准备重做这个项目，尽可能的用到后台处理，现有一事讨教一下，就是原来基于前台的运算如何处理，如以下代码：

下面的代码是之前甜版帮我写的，运行的非常完美，此代码是完全基于前台运算，如果转成后台处理，流程应该如何？


\'库存标记生成模块
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
--  作者：有点甜
--  发布时间：2015/3/15 14:17:00
--  

If e.DataCol.Name= "写入标记"  AndAlso e.DataRow("写入标记")=True Then
    Dim drs As List(Of DataRow) = DataTables("工序合并表").SqlSelect("母卷号 = \'" & 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

            drs(i-1).Save
        Next
        drs(drs.Count-1)("库存标记") = True

        drs(drs.Count-1).Save
    End If
End If