Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何把编码提取到相应的表格中


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

主题：如何把编码提取到相应的表格中
帅哥哟，离线，有人找我吗？
文竹2017
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：129 积分：1033 威望：0 精华：0 注册：2020/6/28 13:58:00 		  发帖心情 Post By：2021/5/11 14:48:00 [只看该作者]

麻烦你看一下

 
 回到顶部
帅哥，在线噢！
y2287958
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4733 积分：34458 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2021/5/11 15:04:00 [只看该作者]

纸上谈兵，何解不上个实例？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

If e.DataCol.Name = "钢板_编码" Then '如果更改的是身份证号码列
    If e.DataRow.IsNull("钢板_编码") Then '身份证号码是否为空
        e.DataRow("钢板_材质") = Nothing '如果为空,则清除出生日期
    Else
      Dim sr() As String = e.DataRow("钢板_编码").split("-")
        e.DataRow("钢板_材质") = sr(0).trim
        If sr.length > 1 Then e.DataRow("钢板_厚度") = sr(1).trim

        If sr.length > 2 Then e.DataRow("钢板_宽度") = sr(2).trim
    End If
End If
 回到顶部
帅哥，在线噢！
hongsejiyi
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：338 积分：5262 威望：0 精华：0 注册：2019/1/1 15:53:00 		  发帖心情 Post By：2021/5/11 15:05:00 [只看该作者]

看看这样操作能否完成你的功能要求！


表A_DataColChanged事件

 

If e.DataCol.Name ="编码" Then

    Dim cs() As String = e.DataRow("编码").split("-")

    Dim mb() As String = {"材质","厚度","宽度","长度"}

    If cs.Length>0 Then

        Dim i As Integer =0

        For Each s As String In cs

            e.DataRow(mb(i))=s

            i=i+1

        Next

    End If

End If

 


此主题相关图片如下：编码自动解析20210511.jpg
按此在新窗口浏览图片

[此贴子已经被作者于2021/5/11 15:13:02编辑过]
 回到顶部
总数 14 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询