专家坐堂-[求助]苹果手机上网页登录使用有二个地方出错，请老师帮我看看Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

第一个问题，算是解决了，

.AddInput("开盘时间","开盘时间","datetime-local").Value = "2017-06-01T08:30"

强行给设置一个日期值，网上找来了，至于为什么，鬼才知道，哈哈！

一、日期时间不能被接受

之前我提出过这个问题，当时是说直接在微信中打开此网页不在对日期时间进行提交，蓝老师让我换其它的浏览器，我当时换了UC与QQ浏览器就可以了，一直用的好好的，可今天突然用QQ浏览器不行了，我又装了个谷歌浏览器，也不行了，这是怎么回事啊，郁闷，网上查了下资料，IOS系统是有兼容性问题，说是要时间格式设置成转成 yyyy/mm/dd hh:mm:ss，请问如何转换，还有说使用以下正则全局格式化：replace(/\\-/g, "/")

.AddInput("开盘时间","开盘时间","datetime-local")

此主题相关图片如下：1.jpg

二、级联失效

在解决第一个问题时，我也试着用UC浏览器，可是级联不能用，如下图所示，这个问题之前也遇到过，我是重启了手机解决了，可今天重启手机也不行了，QQ与谷歌浏览器级联是正常的，因为用不了级联，也就不好用UC试第一个问题了，进不了下一步

此主题相关图片如下：2.jpg

以下是上面这个页面的代码：

Dim e As RequestEventArgs = args(0)

Dim wb As New WeUI

wb.AddPageTitle("","ph1","<lable style=\'font-size:30px\'>下单-基本信息</lable>","")

wb.AddPageFooter("","pf1","<lable style=float:left;color:red;\'font-size:20px\'>用户名:" & DecryptText(e.Cookies("username"),"123","123") & "</lable>")

wb.AddForm("","form1","Xd_xxxx.htm")

\'wb.AddForm("","form1","Test.htm")

With wb.AddInputGroup("form1","ipg1","")

With .AddSelect("合同类型","合同类型","|常规|冲抵|现金")

.A ttribute = "o nchange=""setAjaxOptions(\'公司\',\'Jl_Lxgsgcwywy.htm\',\'合同类型\',false)"""

End With

With .AddSelect("公司","需方名称","")

.A ttribute = "o nchange=""setAjaxOptions(\'工程名称\',\'Jl_Lxgsgcwywy.htm\',\'合同类型\',\'公司\',false)"""

End With

With .AddSelect("工程名称","工程名称","")

.At tribute = "o nchange=""setAjaxOptions(\'合同\',\'Jl_Lxgsgcwywy.htm\',\'合同类型\',\'公司\',\'工程名称\',false)"""

End With

With .AddSelect("合同","合同编号","")

.A ttribute = "o nchange=""setAjaxOptions(\'浇注部位\',\'Jl_Htbhjzbw.htm\',\'合同\',false),setAjaxOptions(\'需方联系人\',\'Jl_Htbhxflxr.htm\',\'合同\',false)"""

End With

.AddSelect("浇注部位","浇注部位","")

.AddSelect("需方联系人","联系人","")

End With

wb.InsertHTML("<lable style=float:left;color:blue;\'font-size:20px\'>提示:浇注部位与联系人可以不选,在下一步中手工录入;如果是冲现合同,在下一步中可以修改需方名称与工程名称.</lable>")

With wb.AddButtonGroup("form1","btg1",False)

.Add("btn1", "下一步", "submit")

.Add("btn2", "返回首页", "", "default.htm")

End With

e.WriteString(wb.Build) \'生成网页

下面是级联Jl_Lxgsgcwywy.htm的代码

Dim e As RequestEventArgs = args(0)

Dim vals As String

If e.PostValues.Count = 1 Then

Dim Filter As String = "[合同类型] = \'" & e.PostValues("合同类型") & "\' And [执行状态] = \'执行中\' And [供货完结] = 0"

vals = "|" & _dt销售合同.SQLGetComboListString("公司", Filter)

ElseIf e.PostValues.Count = 2 Then

Dim Filter As String = "公司=\'" & e.PostValues("公司") & "\' And [合同类型] = \'" & e.PostValues("合同类型") & "\' And [执行状态] = \'执行中\' And [供货完结] = 0"

vals = "|" & _dt销售合同.SQLGetComboListString("工程名称", Filter)

ElseIf e.PostValues.Count = 3 Then

Dim Filter As String = "公司=\'" & e.PostValues("公司") & "\' And [合同类型] = \'" & e.PostValues("合同类型") & "\' And [工程名称] = \'" & e.PostValues("工程名称") & "\' And [执行状态] = \'执行中\' And [供货完结] = 0"

vals = "|" & _dt销售合同.SQLGetComboListString("合同", Filter)

End If

e.WriteString(vals)