Foxtable(狐表) → 用户栏目 → 专家坐堂 → if 分支多了增加行很慢


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

主题：if 分支多了增加行很慢
帅哥哟，离线，有人找我吗？
程兴刚
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7259 积分：40814 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2022/4/22 19:03:00 [显示全部帖子]

Dim wr As Row = Tables("订单_产品主表").Current
Dim nr As Row
For Each Name As String In Names
                nr = Tables("订单_产品清单").AddNew
                nr("报价分类") = wr("报价分类")
                nr("订单类别") = wr("订单类别")
                nr("订单信息") = wr("订单信息")
                nr("客户信息") = wr("客户信息")
                nr("订单ID") = wr("订单ID")
                nr("报价ID") = wr("报价ID")
                nr("客户信息") = wr("客户信息")
                nr("区域楼层") = wr("区域楼层")
                nr("区域名称") = wr("区域名称")
                nr("产品订购ID") = wr("产品订购ID")
                nr("产品_构件名称") = Name
                nr("产品模块") = "木作报价"
                nr("产品分类") = wr("产品分类")
                nr("客户信息") = wr("客户信息")
                nr("日期") = Date.Today
                
                If nr("产品_构件名称").Contains("柜体") Then
                    nr("长") = wr("长")
                    nr("宽") = wr("宽")
                    nr("厚") = wr("厚")
                    nr("数量") = 1
                    nr("计价单位") = "投影面积"
                ElseIf nr("产品_构件名称").Contains("柜门") Then
                    nr("长") = wr("长")
                    nr("宽") = wr("宽")
                    nr("厚") = 22
                    nr("数量") = 1
                    nr("计价单位") = "平方米"
                ElseIf nr("产品_构件名称").Contains("见光") Then
                    nr("长") = wr("长")
                    nr("宽") = wr("厚") + 100
                    nr("厚") = 18
                    nr("数量") = 1
                    nr("计价单位") = "平方米"                    
                ElseIf nr("产品_构件名称").Contains("台面") Then
                    nr("长") = wr("长")
                    nr("数量") = 1
                    nr("计价单位") = "延米"                    
                ElseIf nr("产品_构件名称").Contains("灯光") Then
                    nr("长") = wr("长")
                    nr("数量") = 3
                    nr("计价单位") = "延米"
                ElseIf nr("产品_构件名称").Contains("变压") Then
                    nr("数量") = 1
                    nr("计价单位") = "套"
                ElseIf nr("产品_构件名称").Contains("衣杆") Then
                    nr("数量") = wr("长") * 2.5
                    nr("计价单位") = "延米"
                ElseIf nr("产品_构件名称").Contains("门铰") Then
                    nr("数量") = (wr("长") * wr("宽")*0.0001) / 15
                    Round2(nr("数量"),1)
                    nr("计价单位") = "个"
                ElseIf nr("产品_构件名称").Contains("抽") Then
                    nr("数量") = (wr("长") * wr("宽")*0.000001) / 3.5
                    nr("计价单位") = "件"
                ElseIf nr("产品_构件名称").Contains("墙板") Then
                    nr("数量") = (wr("长") * wr("宽")*0.000001) * 1.05
                    nr("计价单位") = "平方米"
                ElseIf nr("产品_构件名称").Contains("线") Then
                    nr("数量") = wr("长") + 200
                    nr("计价单位") = "延米"
                Else
                End If
            Next
        Else
            Forms("产品清单").Open
        End If
 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7259 积分：40814 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2022/4/22 19:04:00 [显示全部帖子]

代码不全，最前面少了if判断

 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7259 积分：40814 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2022/4/23 0:27:00 [显示全部帖子]

也只能这样了，快不到哪里去，区区几个判断并不影响速度，检查前面的代码：

Case "新增明细"
    pause = True
    If Tables("订单_产品主表").Current Is Nothing Then '如果Current为Nothing
    MessageBox.Show("没有报价资源", Vars("昵称"))
    Return "" '则返回
    End If
    If DataTables.Contains("订单_产品清单") = False Then '如果表C没有加载
    DataTables.Load("订单_产品清单") '加载表C
    End If

    Dim r As Row = Tables("订单_产品主表").Current
    If r IsNot Nothing Then
    Dim Cols1() As String = {"区域名称", "区域楼层", "产品名称", "长", "宽", "厚", "订单ID" }
    For Each c As String In Cols1
        If r.IsNull(c) Then
        r.DataRow.SetError(c, "不能为空")
        MessageBox.Show(c & "不能为空", Vars("昵称"))
        Return ""
        End If
    Next
    End If

    Dim cmd As New SQLC ommand
    cmd.ConnectionNa Me = "2022"
    cmd.CommandT ext = "Sel ect * From {系统_数据模块}"
    wdt = cmd.Execute Reader()
    Dim dr As Data Row
    '否则在产品表查找同名的产品行,将找到的行赋值给变量dr
    dr = wdt.SQLFind("[模块类别]  ='木作报价模块'and [模块名称] = '" & Tables("订单_产品主表").Current("产品分类") & "'")
    Dim Value As String = dr("参数_A")
    Dim Names(), Values() As String
    Names = Value.Split("|")
    'If e.Form.Controls("同空间").Checked = True Then
    Dim wr As Row = Tables("订单_产品主表").Current
    Dim s As String = "报价分类|订单类别|订单信息|客户信息|订单ID|报价ID|客户信息|区域楼层|区域名称|产品订购ID|产品分类|客户信息"
     Values = S.Split("|")
    For Each Name As String In Names
        Dim nr As Row = Tables("订单_产品清单").AddNew
        For Index As Integer = 0 To Values.Length - 1 '优点：以后不管增减多少父子表相同字段，只需改变变量S的值即可
            nr(Values(Index)) = (Values(Index))
        Next
        nr("产品_构件名称") = Name
        nr("产品模块") = "木作报价"
        nr("日期") = Date.Today
        If nr("产品_构件名称").Contains("柜体") Then
        nr("长") = wr("长")
        nr("宽") = wr("宽")
        nr("厚") = wr("厚")
        nr("数量") = 1
        nr("计价单位") = "投影面积"
        ElseIf nr("产品_构件名称").Contains("柜门") Then
            nr("长") = wr("长")
            nr("宽") = wr("宽")
            nr("厚") = 22
            nr("数量") = 1
            nr("计价单位") = "平方米"
        ElseIf nr("产品_构件名称").Contains("见光") Then
            nr("长") = wr("长")
            nr("宽") = wr("厚") + 100
            nr("厚") = 18
            nr("数量") = 1
            nr("计价单位") = "平方米"
        ElseIf nr("产品_构件名称").Contains("台面") Then
            nr("长") = wr("长")
            nr("数量") = 1
            nr("计价单位") = "延米"
        ElseIf nr("产品_构件名称").Contains("灯光") Then
            nr("长") = wr("长")
            nr("数量") = 3
            nr("计价单位") = "延米"
        ElseIf nr("产品_构件名称").Contains("变压") Then
            nr("数量") = 1
            nr("计价单位") = "套"
        ElseIf nr("产品_构件名称").Contains("衣杆") Then
            nr("数量") = wr("长") * 2.5
            nr("计价单位") = "延米"
        ElseIf nr("产品_构件名称").Contains("门铰") Then
            nr("数量") = (wr("长") * wr("宽") * 0.0001) / 15
            Round2(nr("数量"), 1)
            nr("计价单位") = "个"
        ElseIf nr("产品_构件名称").Contains("抽") Then
            nr("数量") = (wr("长") * wr("宽") * 0.000001) / 3.5
            nr("计价单位") = "件"
        ElseIf nr("产品_构件名称").Contains("墙板") Then
            nr("长") = wr("长")
            nr("宽") = wr("宽")
            nr("厚") = wr("厚")
            nr("数量") = 1
            nr("计价单位") = "平方米"
        ElseIf nr("产品_构件名称").Contains("线") Then
            nr("数量") = wr("长") + 200
            nr("计价单位") = "延米"
        Else
        End If
    Next

您的代码依然不全！
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询