以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  狐表自带分解数值的功能吗  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118164)
--  作者：zhuzhi
--  发布时间：2018/4/26 11:25:00
--  狐表自带分解数值的功能吗
请教老师们，是否可以用狐表的内部指令，在狐表工作表里，把某一个单元格的值分解到另外几个单元格中呢。比如把身份证号分解为其他18个单一数值？

请求指点，十分感谢！
--  作者：有点甜
--  发布时间：2018/4/26 12:45:00
--  

DataColChanged事件

 

If e.DataCol.Name = "身份证" Then

    Dim s As String = e.DataRow("身份证")

    e.DataRow("第一列") = s(0)

    e.DataRow("第二列") = s(1)

    e.DataRow("第三列") = s(2)

End If
--  作者：zhuzhi
--  发布时间：2018/4/26 21:00:00
--  
谢谢老师，执行命令出错，显示e是Private，因此它在上下文中不可访问，错误代码：If e.DataCol.Name = "身份证号" Then

我的代码是：
If e.DataCol.Name = "身份证号" Then
    Dim s As String = e.DataRow("身份证号")
    e.DataRow("号1") = s(0)
    e.DataRow("号2") = s(1)
    e.DataRow("号3") = s(2)
    e.DataRow("号4") = s(3)
    e.DataRow("号5") = s(4)
    e.DataRow("号6") = s(5)
    e.DataRow("号7") = s(6)
    e.DataRow("号8") = s(7)
    e.DataRow("号9") = s(8)
    e.DataRow("号10") = s(9)
    e.DataRow("号11") = s(10)
    e.DataRow("号12") = s(11)
    e.DataRow("号13") = s(12)
    e.DataRow("号14") = s(13)
    e.DataRow("号15") = s(14)
    e.DataRow("号16") = s(15)
    e.DataRow("号17") = s(16)
    e.DataRow("号18") = s(17)
End If

我的表全是字符格式的，会否有影响呢？

谢谢！
--  作者：有点甜
--  发布时间：2018/4/26 21:05:00
--  
写到datacolchanged事件去。