Foxtable(狐表)用户栏目专家坐堂 → [求助]列组合代码


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

主题:[求助]列组合代码

帅哥哟,离线,有人找我吗?
seal51
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

如果产品规格是50/20×3, 上述代码正确, 如果产品规格是50×3,结果是50填写到了外径,3填写到了内径,应该是50填写到内径

 回到顶部
帅哥哟,离线,有人找我吗?
seal51
  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

现在我只想把符合50/20×3的规格自动填写到外径,内径,高度, 如果规格不符合50/20×3,就不自动填写, 如何实现

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

去掉下面代码

        Else
            If str.Contains("/") Then
                e.DataRow("内径") = arr(1)
            ElseIf str.Contains("×") Then
                e.DataRow("高度") = arr(1)
            End If

 回到顶部
帅哥哟,离线,有人找我吗?
seal51
  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用有点蓝在2021/7/15 15:28:00的发言:
去掉下面代码

        Else
            If str.Contains("/") Then
                e.DataRow("内径") = arr(1)
            ElseIf str.Contains("×") Then
                e.DataRow("高度") = arr(1)
            End If
去掉这段代码,如果规格是50×3, 50还是会填写到外径列里


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

   If e.DataRow.IsNull(e.DataCol.Name) = False Then
        Dim Str As String = e.NewValue
        Dim arr() As String = str.Split(new Char(){"/","×"})

        If arr.Length = 3 Then
        e.DataRow("外径") = arr(0)
            e.DataRow("内径") = arr(1)
            e.DataRow("高度") = arr(2)
        End If
    End If

 回到顶部
帅哥哟,离线,有人找我吗?
seal51
  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

OK! 谢谢老师!

 回到顶部
总数 26 上一页 1 2 3