型号拆分 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 型号拆分

共有2066人关注过本帖树形打印复制链接主题：型号拆分

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/30 16:23:00 [显示全部帖子]

If e.DataCol.name = "产品型号" Then
    If e.NewValue = "" Then
        e.DataRow("列1") = Nothing
        e.DataRow("列2") = Nothing
        e.DataRow("列3") = Nothing
    Else
        Dim ary() As String = e.newvalue.split("-")
        e.DataRow("列1") = ary(0)(0)
        e.DataRow("列2") = ary(0)(1)
        e.DataRow("列3") = ary(1)
    End If
End If

[此贴子已经被作者于2018/5/30 16:40:42编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/30 16:41:00 [显示全部帖子]

e.DataRow("产品_参数E") = ary(0).substring(4,2)

e.DataRow("产品_参数F") = ary(0).substring(6,2)

e.DataRow("产品_参数H") = ary(1)

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/30 16:42:00 [显示全部帖子]

如果你型号不固定，需要额外编写代码，请上传具体例子。

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/31 16:48:00 [显示全部帖子]

Dim r As Row = Tables("表A").current
If r("产品型号") = "" Then
    r("产品_参数A") = Nothing
    r("产品_参数B") = Nothing
    r("产品_参数C") = Nothing
    r("产品_参数D") = Nothing
    r("产品_参数E") = Nothing
    r("产品_参数F") = Nothing
    r("产品_参数G") = Nothing
    r("产品_参数H") = Nothing
    'r("产品_参数I") = Nothing
Else
    Dim ary() As String = r("产品型号") .split("-")
    r("产品_参数A") = ary(0)(0)
    r("产品_参数B") = ary(0)(1)
    r("产品_参数C") = ary(0)(2)
    r("产品_参数D") = ary(0)(3)
    r("产品_参数E") = ary(0).substring(4,2)
    r("产品_参数F") = ary(0).substring(6,2)
    r("产品_参数G") = ary(0).substring(8,2)
    r("产品_参数H") = ary(1)
End If

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/31 17:58:00 [显示全部帖子]

For Each r As Row In Tables("表A").rows
    If r("产品型号") = "" Then
        r("产品_参数A") = Nothing
        r("产品_参数B") = Nothing
        r("产品_参数C") = Nothing
        r("产品_参数D") = Nothing
        r("产品_参数E") = Nothing
        r("产品_参数F") = Nothing
        r("产品_参数G") = Nothing
        r("产品_参数H") = Nothing
        'r("产品_参数I") = Nothing
    Else
        Dim ary() As String = r("产品型号") .split("-")
        r("产品_参数A") = ary(0)(0)
        r("产品_参数B") = ary(0)(1)
        r("产品_参数C") = ary(0)(2)
        r("产品_参数D") = ary(0)(3)
        r("产品_参数E") = ary(0).substring(4,2)
        r("产品_参数F") = ary(0).substring(6,2)
        r("产品_参数G") = ary(0).substring(8,2)
        r("产品_参数H") = ary(1)
    end if
next

下一主题 >> << 上一主题

主题：型号拆分