以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  手机weui模式排版问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=108185)
--  作者：133198609
--  发布时间：2017/10/18 1:01:00
--  手机weui模式排版问题
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编辑过]
--  作者：有点甜
--  发布时间：2017/10/18 9:16:00
--  

1、不需要显示的列，你可以不写。或者是，select 的时候，把身份证列赋值为_Identify，如 select 身份证 as _Identify, 序号, 部门 from {表A}

 

2、代码没问题，修改代码后，要做一些别的修改，如敲入一个回车，再保存代码

 
--  作者：133198609
--  发布时间：2017/10/18 17:24:00
--  谢谢
谢谢