Foxtable(狐表) → 用户栏目 → 专家坐堂 → 材料组合


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

主题：材料组合
帅哥哟，离线，有人找我吗？
有点蓝
 小大  51楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/11/3 11:19:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/topics/0426.htm
……
Case "材料1","材料2"
if dr.isnull("材料2") then 
dr("组合") = dr("材料1")
else
dr("组合") = dr("材料1") & "/" & dr("材料2")
end if
……
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  52楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2021/11/3 11:36:00 [只看该作者]

Dim dr1 As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "产品材料","大气材料","其他材料"
        If dr1.IsNull("大气材料") OrElse dr1.IsNull("其他材料") Then
            dr1("组合材料") = dr1("产品材料")
        end if
            If dr1.IsNull("大气材料")  Then
                dr1("组合材料") = dr1("产品材料") & "/" & dr1("其他材料")
            end if
                If dr1.IsNull("其他材料") Then
                    dr1("组合材料") = dr1("产品材料")& "/" & dr1("大气材料")
                end if
else
                    dr1("组合材料") = dr1("产品材料") & "/" & dr1("大气材料") & "/" & dr1("其他材料")
                    
                End If
            End If
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  53楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2021/11/3 11:36:00 [只看该作者]

这段代码如何修改才能正确执行

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


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/11/3 13:33:00 [只看该作者]

    Case "产品材料","大气材料","其他材料"
dim s as string = dr1("产品材料")
if  dr1.IsNull("大气材料")  =false then
s = s & "/" & dr1("大气材料")
end if
if dr1.IsNull("其他材料")...........
……

dr1("组合材料") = s
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  55楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2021/11/3 15:33:00 [只看该作者]

Select Case e.DataCol.Name
    Case "产品材料","大气材料","其他材料"
        Dim dr As DataRow = e.DataRow
        Dim str As String = ""
        If dr.IsNull("产品材料") = False Then
            str &= "(" & dr("产品材料")& ")"
        End If
        If dr.IsNull("大气材料") = False Then
            str &=  "(" & dr("大气材料")& ")"
        End If
        If dr.IsNull("其他材料") = False Then
            str &=  "(" & dr("其他材料") & ")"
        End If
        e.DataRow("组合材料") = str
End Select
当大气材料和其他材料为空的时候，组合材料=（产品材料）这段代码如何修改把产品材料的括弧去掉呢？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  56楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/11/3 15:37:00 [只看该作者]

发到后面处理
Select Case e.DataCol.Name
    Case "产品材料","大气材料","其他材料"
        Dim dr As DataRow = e.DataRow
        Dim str As String = ""
        If dr.IsNull("大气材料") = False Then
            str &=  "(" & dr("大气材料")& ")"
        End If
        If dr.IsNull("其他材料") = False Then
            str &=  "(" & dr("其他材料") & ")"
        End If
if str > "" then
加括号的用法
else
不加括号
endif
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  57楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2021/11/3 16:18:00 [只看该作者]

Select Case e.DataCol.Name
    Case "产品材料","大气材料","其他材料"
        Dim dr As DataRow = e.DataRow
        Dim str As String = ""
        If str>"" Then
            If dr.IsNull("产品材料") = False Then
                str &= dr("产品材料")
            End If
        Else
            str &= "(" & dr("产品材料")& ")"
            
        End If
        If dr.IsNull("大气材料") = False Then
            str &=  "(" & dr("大气材料")& ")"
        End If
        If dr.IsNull("其他材料") = False Then
            str &=  "(" & dr("其他材料") & ")"
        End If
        e.DataRow("组合材料") = str
End Select

这样写好像还是不对？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  58楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/11/3 16:20:00 [只看该作者]

放到其它材料的代码后面在判断处理，懂不懂什么叫后面？

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


加好友 发短信
等级：八尾狐 帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2021/11/3 16:31:00 [只看该作者]

OK,谢谢老师！
最终代码：
Select Case e.DataCol.Name
    Case "产品材料","大气材料","其他材料"
        Dim dr As DataRow = e.DataRow
        Dim str As String = ""
        If dr.IsNull("大气材料") = False Then
            str &=  "(" & dr("大气材料")& ")"
        End If
        If dr.IsNull("其他材料") = False Then
            str &=  "(" & dr("其他材料") & ")"
        End If
        If str>"" Then
            If dr.IsNull("产品材料") = False Then
                str &= "(" & dr("产品材料")& ")"
            End If
        Else
            str &= dr("产品材料")
        End If
        e.DataRow("组合材料") = str
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  60楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2021/11/3 17:22:00 [只看该作者]

好像顺序不对了，产品材料必须排列在最前面

 回到顶部
总数 70 上一页 1 2 3 4 5 6 7 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询