如何把编码提取到相应的表格中 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有4344人关注过本帖树形打印复制链接主题：如何把编码提取到相应的表格中

有点蓝

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

加好友

发短信

等级：超级版主帖子：110334 积分：561518 威望：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

有点蓝

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

加好友

发短信

等级：超级版主帖子：110334 积分：561518 威望：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编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：110334 积分：561518 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/5/9 21:49:00 [显示全部帖子]

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

已有的数据重置一下列

[此贴子已经被作者于2021/5/9 21:49:26编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：110334 积分：561518 威望：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

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

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