[求助]身份证中出生日期如何转大写的年月日 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

例子A中出生日期想分别改成大写的年月日，怎么改

下载信息 [文件大小：下载次数： ]
点击浏览该文件:出生年月日.table

[此贴子已经被作者于2017/5/3 2:02:36编辑过]

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 y,m,d As Integer
            m=08
            d=31
            DateYMD(ReadBirthday(e.DataRow("身份证号")),Date.Today,y,m,d)
            e.DataRow("年龄") = y
        End If
    Case "出生日期"
        If e.DataRow.IsNull("出生日期") Then
            e.DataRow("年") = Nothing
            e.DataRow("月") = Nothing
            e.DataRow("日") = Nothing
        Else
            Dim str As String = cldate(e.NewValue)
            Dim ary() As String = str.Split(new Char() {"年", "月", "日"})
            e.DataRow("年") = ary(0)
            e.DataRow("月") = ary(1)
            e.DataRow("日") = ary(2)
        End If
End Select

打印公式出错

问题1 设置的B5纸第二页是空白 2.第二个数据不执行,问题出在何处?

下载信息 [文件大小：下载次数： ]
点击浏览该文件:年月日.table

没看懂你代码的意义，如果要打印，参考

http://www.foxtable.com/webhelp/scr/1186.htm

楼4 文件打印时页面设置没有反应出错,不知问题出在何处?望老师给看看.

Doc.PageSetting.LeftMargin = 30 '设置左边距
Doc.PageSetting.RightMargin = 0 '设置右边距
Doc.PageSetting.TopMargin= 0 '设置上边距
Doc.PageSetting.BottomMargin = 0 '设置底边距.

你是直接指定控件.x 和控件.y 的，也就是你用的是直接定位，设置页面当然无效。

你可以把所有的控件，都放进一个容器ra里，这样边距的设置对ra就有效，自然对所有控件都有效。

http://www.foxtable.com/webhelp/scr/1185.htm

主题：[求助]身份证中出生日期如何转大写的年月日