- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何把编码提取到相应的表格中 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=164873)
-- 发布时间：2021/5/7 15:05:00
-- 如何把编码提取到相应的表格中
1.如何把钢板编码中的东西自动提取到相应的表格中
2.只要通过下拉框选中就会自动提取
此主题相关图片如下：qq截图20210507150112.png
-- 发布时间：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
-- 发布时间：2021/5/7 16:25:00
--
此主题相关图片如下：qq截图20210507162402.png
-- 发布时间：2021/5/7 16:32:00
--
看代码颜色就知道少了一个双引号。
e.DataRow("材质") = sr(0).trim
[此贴子已经被作者于2021/5/7 16:31:56编辑过]
-- 发布时间：2021/5/9 14:27:00
--
代码 没问题了 但是如何在表格中体现出来呢
-- 发布时间：2021/5/9 21:49:00
--
没看懂什么意思，这个代码就是在表格中处理的。
已有的数据重置一下列
[此贴子已经被作者于2021/5/9 21:49:26编辑过]
-- 发布时间：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
-- 发布时间：2021/5/11 12:59:00
--
此主题相关图片如下：qq截图20210511125600.png
-- 发布时间：2021/5/11 13:34:00
--
宽度、长度参考7楼的代码自己补充完整。如果完全看不懂请学习基础：http://www.foxtable.com/webhelp/topics/1592.htm
-- 发布时间：2021/5/11 14:48:00
--
此主题相关图片如下：123.png