以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  表达式列求助！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128145)
--  作者：lisheng1971
--  发布时间：2018/11/29 19:19:00
--  表达式列求助！
表１中有列１－５，其中列２是身份证号码，列３是出生年月（时间日期格式），想用表达式从身份证号码中提取出出生年月，样式如：1988-06-25，但总报错，出生年月列改成字符格式就没问题，这是怎么回事，请版主指教！

SubString(Convert([身份证号码],\'System.String\'),7,4) + \'-\' + SubString(Convert([身份证号码],\'System.String\'),11,2) + \'-\' + SubString(Convert([身份证号码],\'System.String\'),13,2)
--  作者：有点甜
--  发布时间：2018/11/29 19:40:00
--  

不建议这样截取，参考

 

Select Case e.DataCol.Name
    Case "身份证号"
        If e.DataRow.IsNull("身份证号") Then  \'身份证号码是否为空
            e.DataRow("出生日期") = Nothing  \'如果为空,则清除出生日期
            e.DataRow("性别") = Nothing  \'如果为空,则清除出生日期
            e.DataRow("年龄") = Nothing \'如果为空,则清除年龄
        Else
            \'否则从身份证号码列中提取出生日期
            e.DataRow("出生日期") = ReadBirthday(e.DataRow("身份证号"))
            e.DataRow("性别") = ReadSex(e.DataRow("身份证号"))
            Dim d As Date = ReadBirthday(e.DataRow("身份证号"))
            Dim y As Integer = d.year
            If format(d, "MMdd") <= Format(Date.Today, "MMdd") Then
                e.DataRow("年龄") = Date.Today.Year - y
            Else
                e.DataRow("年龄") = Date.Today.Year - y -1
            End If
        End If
End Select
--  作者：lisheng1971
--  发布时间：2018/11/29 19:54:00
--  
谢谢版主！在表的事件里是有这样的代码的，主要是表中的代码量太大，想给代码减减负，所以想到用表达式列，就是不知道用代码和表达式哪个会让项目运行更省时间？
另外就表数据加载的问题表版主指教一下：

Dim Filter As String
If e.node.Text = "加载所有数据" Then
    Filter = ""
Else
    Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的DataRow
    Select Case e.Node.Level
        Case 0
            Filter ="[批次] = \'" & dr("批次") & "\'"
        Case 1
            Filter ="[批次] = \'" & dr("批次") & "\' And [工作单位] = \'" & dr("工作单位") & "\'"
    End Select
End If
DataTables("管理表").LoadFilter = Filter
DataTables("管理表").Load()

这个表有身几十列，在页面合集中有副表Ｎ个，这是目录树事件代码，本应开始是空，通过鼠标点击加载，表中有１０万行左右数据，现在一运行就全部加载，要很长时间，达不到要求，这是代码的部问题吗?
--  作者：有点甜
--  发布时间：2018/11/29 21:07:00
--  

1、基本就是用datacolchanged来做的。

 

2、你的出生日期，只需要计算一次啊，保存后再加载数据，不需要重新计算的啊。