以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147654)

--  作者:sanny
--  发布时间:2020/3/21 12:22:00
--  [求助]

老师

 

表A中有两列,产品 和 属性列

 

产品列中的 产品品名以 5.开头的,属性列就显示 ”电器类“, 产品品名以 2.开头的,属性列就显示 ”辅料类“, 产品品名以 3.开头的,属性列就显示 ”包材类“

 

如何使用代码按钮,一点后, 属性列的内容就自动填上,谢谢。


--  作者:有点蓝
--  发布时间:2020/3/21 13:33:00
--  
For Each  r As Row In Tables().rows
    If r.isnull("品名")=False Then
        Select Case r("品名")(0)
            Case "5"
                r("属性") = "电器类"
            Case "2"
                r("属性") = "辅料类"
                ……
        End Select
    End If
Next

--  作者:sanny
--  发布时间:2020/3/21 15:00:00
--  

老师, 品名中要以 6. 开头 或者 2. 或者 1.1. 起始开头的,以下对吗 ?

       

 

Select Case r("品名")(0)

            Case "6."
                r("属性") = "电器类"
            Case "2."
                r("属性") = "辅料类"

            Case "1.1."
                r("属性") = "包材类"


--  作者:有点蓝
--  发布时间:2020/3/21 15:15:00
--  
改为

if r("品名") like "6.*" then
r("属性") = "电器类"
elseif r("品名") like "2.*" then
r("属性") = "辅料类"
elseif r("品名") like "1.1.*" then
r("属性") = "包材类"
……

--  作者:sanny
--  发布时间:2020/3/21 15:45:00
--  

谢谢老师,

 

然后都不符合的,属 “其它类”,可以帮忙再增加一下吗?

 

 
 

--  作者:有点蓝
--  发布时间:2020/3/21 15:55:00
--