- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]身份证中出生日期如何转大写的年月日 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=100016)
-- 发布时间：2017/5/3 2:00:00
-- [求助]身份证中出生日期如何转大写的年月日
例子A中出生日期想分别改成大写的年月日，怎么改
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:出生年月日.table |
[此贴子已经被作者于2017/5/3 2:02:36编辑过]
-- 发布时间：2017/5/3 8:49: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 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
-- 发布时间：2017/5/3 8:49:00
--
CCNumber
-- 发布时间：2017/5/3 22:34:00
--
打印公式出错
问题1 设置的B5纸第二页是空白 2.第二个数据不执行,问题出在何处?
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:年月日.table |
-- 发布时间：2017/5/4 0:52:00
--
没看懂你代码的意义，如果要打印，参考
http://www.foxtable.com/webhelp/scr/1186.htm
-- 发布时间：2017/5/7 9:36:00
--
楼4 文件打印时页面设置没有反应出错,不知问题出在何处?望老师给看看.
Doc.PageSetting.LeftMargin = 30 \'设置左边距
Doc.PageSetting.RightMargin = 0 \'设置右边距
Doc.PageSetting.TopMargin= 0 \'设置上边距
Doc.PageSetting.BottomMargin = 0 \'设置底边距.
-- 发布时间：2017/5/7 12:36:00
--
你是直接指定 控件.x 和 控件.y 的，也就是你用的是直接定位，设置页面当然无效。
你可以把所有的控件，都放进一个容器ra里，这样边距的设置对ra就有效，自然对所有控件都有效。
http://www.foxtable.com/webhelp/scr/1185.htm