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


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

主题:如何把编码提取到相应的表格中

帅哥哟,离线,有人找我吗?
文竹2017
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:129 积分:1033 威望:0 精华:0 注册:2020/6/28 13:58:00
如何把编码提取到相应的表格中  发帖心情 Post By:2021/5/7 15:05:00 [只看该作者]

1.如何把钢板编码中的东西自动提取到相应的表格中

2.只要通过下拉框选中就会自动提取

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20210507150112.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:超级版主 帖子:107718 积分:547917 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/5/7 15:18: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
    End
 If
End
 
If

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


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


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20210507162402.png
图片点击可在新窗口打开查看

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


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

看代码颜色就知道少了一个双引号。

e.DataRow("材质") = sr(0).trim
[此贴子已经被作者于2021/5/7 16:31:56编辑过]

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


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

代码 没问题了 但是如何在表格中体现出来呢


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


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

没看懂什么意思,这个代码就是在表格中处理的。

已有的数据重置一下列
[此贴子已经被作者于2021/5/9 21:49:26编辑过]

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


加好友 发短信
等级:幼狐 帖子:129 积分:1033 威望:0 精华:0 注册:2020/6/28 13:58:00
  发帖心情 Post By:2021/5/11 12:58: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
    End If
End If


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


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


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20210511125600.png
图片点击可在新窗口打开查看

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


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

宽度、长度参考7楼的代码自己补充完整。如果完全看不懂请学习基础:http://www.foxtable.com/webhelp/topics/1592.htm

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


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


图片点击可在新窗口打开查看此主题相关图片如下:123.png
图片点击可在新窗口打开查看

 回到顶部
总数 14 1 2 下一页