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


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

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

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/17 8:59:00 [显示全部帖子]

1、你执行到哪一段代码的时候有问题?

 

2、在那段代码,把对应的变量的值弹出看看是否正确。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/17 15:11:00 [显示全部帖子]

1、在js那里,弹出值看一下,如

 

alert(vals[3])

 

2、在js那里,你直接复制为  new Date(); 或者是字符 "1999-01-02" 是否正常?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部