Foxtable(狐表)用户栏目专家坐堂 → 日期型,如何在submitAjaxForm获取数据


  共有1816人关注过本帖树形打印复制链接

主题:日期型,如何在submitAjaxForm获取数据

帅哥哟,离线,有人找我吗?
goe12345
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:374 积分:2866 威望:0 精华:0 注册:2015/5/15 20:56:00
1  发帖心情 Post By:2018/12/17 17:08:00 [只看该作者]

数据表中的日期是长日期,我用format变成短日期后,就成正常显示了,是什么原因,如何才能显示长日期

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/17 17:36:00 [只看该作者]

1、你说的长短日期,指什么?你在js里面alert弹出值,是否正常?设置什么值可以正常显示?

 

2、我测试这个代码没问题

 

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","时间输入")
            With .AddInput("xm","日期时间","datetime-local")
                .Value = Format(Date.Now,"yyyy-MM-dd HH:mm") '留意一下这个格式,日期和时间之间用字母T隔开
                .Readonly = True
            End With
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "button").Attribute="""
        End With
        e.WriteString(wb.Build) '生成网页
End Select

 

3、短日期,参考

 

你afterOpenProject事件,改成短日期

 

Dim cd As System.Globalization.DateTimeFormatInfo = System.Globalization.DateTimeFormatInfo.CurrentInfo
cd.ShortDatePattern = "yyyy年MM月dd日"
Dim DateInfo As System.Reflection.FieldInfo = cd.Gettype.GetField("generalLongTimePattern", System.Reflection.BindingFlags.NonPublic Or System.Reflection.BindingFlags.Instance)
If  DateInfo IsNot Nothing Then
    DateInfo.SetValue(cd, "yyyy-MM-dd HH:mm:ss")
End If


 回到顶部
总数 12 上一页 1 2