With wb.AddTable("","Table1")
.PageNumber = page '设置页码
.ActiveSheet = "menu" '指定菜单
.Primarykey = "身份证号" '指定主键,只要是能唯一区分行的列即可,并非一定要表的实际主键.
.ColWidth = ",,,,,,,,6px"
.CreateFromDataTable(dt, False,"","","序号","部门","姓名","年龄","政治面貌","现工作岗位","现任技术职务名称","学历","身份证号")
End With
问题一：
这里身份证号这一列是主键，设置列宽在手机里显示无效。
由于这一列很宽，很占用屏幕，有没有办法隐藏这一列或者把列宽或字体都缩小。
问题二：
Format(#12/31/2008#, "yyyy-MM-dd") '2008-12-31
如何才能格式化为 2008.12
Format(#12/31/2008#, "yyyy.MM") 这个无效，字母会自动变为yyyy.mm，结果是2008.00
是否只能这样？有没有更便捷的方式？
Dim yy,mm,dd As String
yy = e.DataRow("出生日期").Year
mm = Format(e.DataRow("出生日期").Month,"00")
dd = yy & "." & mm
[此贴子已经被作者于2017/10/18 2:29:09编辑过]
加好友 
发短信
Post By：2017/10/18 1:01:00 [只看该作者]
