Foxtable(狐表)用户栏目专家坐堂 → [求助][求助]讨教后台运算的思路


  共有2965人关注过本帖树形打印复制链接

主题:[求助][求助]讨教后台运算的思路

帅哥哟,离线,有人找我吗?
huangfanzi
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1104 积分:8956 威望:0 精华:0 注册:2014/10/25 11:24:00
[求助][求助]讨教后台运算的思路  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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


 回到顶部