Foxtable(狐表) → 用户栏目 → 专家坐堂 → 帮忙简化下代码吧


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

主题：帮忙简化下代码吧
帅哥哟，离线，有人找我吗？
jiskin
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：714 积分：5207 威望：0 精华：0 注册：2012/4/13 13:10:00 		帮忙简化下代码吧  发帖心情 Post By：2013/5/10 16:57:00 [只看该作者]

Select Case e.DataCol.name
    Case "零件名称","规格","材质"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.Isnull("零件名称") AndAlso dr.Isnull("规格") AndAlso dr.Isnull("材质") Then
            dr("仓库_库位代码") = Nothing
        Else
            If dr.Isnull("零件名称") = False AndAlso dr.Isnull("规格") = False AndAlso dr.Isnull("材质") = False Then
                pr = DataTables("库存总表").Find("[品名] = '" & dr("零件名称") & "' and [规格] = '" & dr("规格") & "' and [材质] = '" & dr("材质") & "'")
                dr("仓库_库位代码") = pr("储位")
            End If
            If dr.Isnull("零件名称") = False AndAlso dr.Isnull("规格") = False AndAlso dr.Isnull("材质") = True Then
                pr = DataTables("库存总表").Find("[品名] = '" & dr("零件名称") & "' and [规格] = '" & dr("规格") & "'")
                dr("仓库_库位代码") = pr("储位")
            End If
            If dr.Isnull("零件名称") = False AndAlso dr.Isnull("规格") = True AndAlso dr.Isnull("材质") = False Then
                pr = DataTables("库存总表").Find("[品名] = '" & dr("零件名称") & "' and [材质] = '" & dr("材质") & "'")
                dr("仓库_库位代码") = pr("储位")
            End If
            If dr.Isnull("零件名称") = False AndAlso dr.Isnull("规格") = True AndAlso dr.Isnull("材质") = True Then
                dr("仓库_库位代码") = Nothing
            End If
        End If
End Select
谁帮我简化一下啊

 "零件名称","规格","材质"三个列
如果三列有都内容 就根据这三列内容查找
如果名称有内容 规格有内容 材质无内容 就根据名称 规格找
如果名称有内容 材质有内容  就根据这两个找
 回到顶部
帅哥哟，离线，有人找我吗？
don
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00 		  发帖心情 Post By：2013/5/10 17:36:00 [只看该作者]

Select Case e.DataCol.name
    Case "零件名称","规格","材质"
        Dim flt As String
        Dim dr As DataRow = e.DataRow
        Dim v1 as String() = {"品名","规格","材质"}
        Dim v2 as String() = {"零件名称","规格","材质"}

        For n1 As Integer = 0 to v2.length-1
            if  dr.Isnull(s1) =False Then
                 flt+ =  " and " & v1(n1) & " = '" & dr(v2(n1)) & "'"
            End if
        next

        If fllt = Nothing Then
            dr("仓库_库位代码") = Nothing
        Else         
            Dim pr As DataRow = DataTables("库存总表").Find(flt.substring(5)) 
            If pr isnot nothing Then  dr("仓库_库位代码") = pr("储位")       
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
jspta
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1732 积分：11266 威望：0 精华：0 注册：2011/12/15 22:06:00 		  发帖心情 Post By：2013/5/10 17:42:00 [只看该作者]

以下是引用jiskin在2013-5-10 16:57:00的发言：
Select Case e.DataCol.name
    Case "零件名称","规格","材质"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.Isnull("零件名称") AndAlso dr.Isnull("规格") AndAlso dr.Isnull("材质") Then
            dr("仓库_库位代码") = Nothing
        Else
            If dr.Isnull("零件名称") = False AndAlso dr.Isnull("规格") = False AndAlso dr.Isnull("材质") = False Then
                pr = DataTables("库存总表").Find("[品名] = '" & dr("零件名称") & "' and [规格] = '" & dr("规格") & "' and [材质] = '" & dr("材质") & "'")
                dr("仓库_库位代码") = pr("储位")
            End If
            If dr.Isnull("零件名称") = False AndAlso dr.Isnull("规格") = False AndAlso dr.Isnull("材质") = True Then
                pr = DataTables("库存总表").Find("[品名] = '" & dr("零件名称") & "' and [规格] = '" & dr("规格") & "'")
                dr("仓库_库位代码") = pr("储位")
            End If
            If dr.Isnull("零件名称") = False AndAlso dr.Isnull("规格") = True AndAlso dr.Isnull("材质") = False Then
                pr = DataTables("库存总表").Find("[品名] = '" & dr("零件名称") & "' and [材质] = '" & dr("材质") & "'")
                dr("仓库_库位代码") = pr("储位")
            End If
            If dr.Isnull("零件名称") = False AndAlso dr.Isnull("规格") = True AndAlso dr.Isnull("材质") = True Then
                dr("仓库_库位代码") = Nothing
            End If
        End If
End Select
谁帮我简化一下啊

 "零件名称","规格","材质"三个列
如果三列有都内容 就根据这三列内容查找
如果名称有内容 规格有内容 材质无内容 就根据名称 规格找
如果名称有内容 材质有内容  就根据这两个找

Dim arr1() As String = {"零件名称","规格","材质"}
Dim arr2() As String = {"品名","规格","材质"}
Dim dr As DataRow = e.DataRow
Dim str As String = ""
Dim intA As Integer
For IntA = 0 To arr1.Length - 1
    If dr.IsNull(arr1(intA)) = False Then
        str = str & arr2(IntA) & " = '" & arr1(IntA) & "' and "
    End If
Next

if str > "" then
str = str.TrimEnd(" " ,"d","n","a")
Dim pr As DataRow = DataTables("库存总表").Find(str)
If dr("仓库_库位代码") <> pr("储位") Then dr("仓库_库位代码") = pr("储位")

end if  

 

感觉你这代码设置的地方有点不合理

[此贴子已经被作者于2013-5-10 17:43:34编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jiskin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：714 积分：5207 威望：0 精华：0 注册：2012/4/13 13:10:00 		  发帖心情 Post By：2013/5/10 19:15:00 [只看该作者]

以下是引用jspta在2013-5-10 17:42:00的发言：

Dim arr1() As String = {"零件名称","规格","材质"}
Dim arr2() As String = {"品名","规格","材质"}
Dim dr As DataRow = e.DataRow
Dim str As String = ""
Dim intA As Integer
For IntA = 0 To arr1.Length - 1
    If dr.IsNull(arr1(intA)) = False Then
        str = str & arr2(IntA) & " = '" & arr1(IntA) & "' and "
    End If
Next

if str > "" then
str = str.TrimEnd(" " ,"d","n","a")
Dim pr As DataRow = DataTables("库存总表").Find(str)
If dr("仓库_库位代码") <> pr("储位") Then dr("仓库_库位代码") = pr("储位")

end if  

 

感觉你这代码设置的地方有点不合理

[此贴子已经被作者于2013-5-10 17:43:34编辑过]

 

是不是因为两张表源自两个access数据库的原因？代码运行的后总是出错 未将对象引用设置到对象的实例

另外 能帮忙解释下If dr.IsNull(arr1(intA)) = False Then
        str = str & arr2(IntA) & " = '" & arr1(IntA) & "' and "
这两句的意思吗 谢谢了
 回到顶部
帅哥哟，离线，有人找我吗？
jiskin
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：714 积分：5207 威望：0 精华：0 注册：2012/4/13 13:10:00 		  发帖心情 Post By：2013/5/10 19:24:00 [只看该作者]

以下是引用don在2013-5-10 17:36:00的发言：
Select Case e.DataCol.name
    Case "零件名称","规格","材质"
        Dim flt As String
        Dim dr As DataRow = e.DataRow
        Dim v1 as String() = {"品名","规格","材质"}
        Dim v2 as String() = {"零件名称","规格","材质"}

        For n1 As Integer = 0 to v2.length-1
            if  dr.Isnull(s1) =False Then
                 flt+ =  " and " & v1(n1) & " = '" & dr(v2(n1)) & "'"
            End if
        next

        If fllt = Nothing Then
            dr("仓库_库位代码") = Nothing
        Else         
            Dim pr As DataRow = DataTables("库存总表").Find(flt.substring(5)) 
            If pr isnot nothing Then  dr("仓库_库位代码") = pr("储位")       
        End If
End Select

 

 if  dr.Isnull(n1) =False Then

                 flt+ =  " and " & v1(n1) & " = '" & dr(v2(n1)) & "'"

 

这句能帮忙解释下吗看不懂哈，  for next下 n1 不是 0 1 2 这几个数字么？

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


加好友 发短信
等级：七尾狐 帖子：1732 积分：11266 威望：0 精华：0 注册：2011/12/15 22:06:00 		  发帖心情 Post By：2013/5/11 17:04:00 [只看该作者]

以下是引用jiskin在2013-5-10 19:15:00的发言：

 

是不是因为两张表源自两个access数据库的原因？代码运行的后总是出错 未将对象引用设置到对象的实例

另外 能帮忙解释下If dr.IsNull(arr1(intA)) = False Then
        str = str & arr2(IntA) & " = '" & arr1(IntA) & "' and "
这两句的意思吗 谢谢了

第一句话判断是否是空值，跟你原来一样

然后 进行表达式合成，

arr2是数组，你可以看下数组内容。这段循环的意思就是，循环数组中的名称，以达到判断该列是否为空的目的。

你可以加一条message.show(str)查看下这个合成了什么，跟你想要的代码是不是一致。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询