专家坐堂-放在微信Jquery框架页面，经常用着用着就没有滚动条了，请问是咋回事？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  放在微信Jquery框架页面，经常用着用着就没有滚动条了，请问是咋回事？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98021)

--  作者：ycwk
--  发布时间：2017/3/22 17:49:00
--  放在微信Jquery框架页面，经常用着用着就没有滚动条了，请问是咋回事？
放在微信Jquery框架页面，经常用着用着就没有滚动条了，请问是咋回事？

--  作者：有点蓝
--  发布时间：2017/3/22 17:54:00
--

1、手机程序管理中强行关闭微信，重新打开微信（出现月亮画面）测试。微信中测试经常用着用着就会有问题，重启就好了

2、框架用法的问题，具体上代码

--  作者：ycwk
--  发布时间：2017/3/23 18:45:00
--

Dim e As RequestEventArgs = args(0)
Dim wb As New weui
\'msgbox("进函数了")
wb.AppendHTML("<link rel=\'stylesheet\' href=\'../ajax/jquery.mobile/1.1.1/jquery.mobile-1.1.1.min.css\'/>",True) \'引入样式文件,参数True表示添加到head区
wb.AppendHTML("<link rel=\'stylesheet\' href=\'../xdf/img/main.css\'/>",True) \'引入样式文件
wb.AppendHTML("<script src=\'../ajax/libs/jquery/1.7.1/jquery.min.js\'></script>",True) \'引入jquery
wb.AppendHTML("<script src=\'../ajax/jquery.mobile/1.1.1/jquery.mobile-1.1.1.min.js\'></script>",True) \'引入jquery
wb.AppendHTML("<script src=\'../scripts/main.js\'></script>",True) \'引入jquery
wb.AppendHTML("<div data-theme=\'g\' data-role=\'header\' data-position=\'fixed\'><h1>需求登记</h1></div>") \'页眉
\' wb.AppendHTML("<div data-theme=\'g\' data-role=\'footer\' data-position=\'fixed\'><h3>咨询电话:000*****</h3></div>") \'页脚
wb.AppendHTML("<div data-theme=\'g\' data-role=\'footer\'><h3>咨询电话:0000-0000</h3></div>") \'页脚
wb.InsertHTML("<div data-theme=\'g\' data-role=\'page\' data-position=\'fixed\'>") \'页内容样式不能加</div> 加在好几个地方都不能正常显示页头页脚
\'wb.InsertHTML("<h3 align=\'center\' style=\'margin-top:5px\'>服务满意度调查</h3>") \'插入表头

If e.PostValues.Count = 0 Then \'生成增加调查表网页

wb.AddForm("","form2","SoftRequire.htm")

\'wb.InsertHTML("form1","<fieldset data-role=\'controlgroup\' data-Type=\'horizontal\'>") \'起效果了按钮分组


With wb.AddInputGroup("form2","ipg1","请输入系统名称")
\' .AddTextArea("q8",2).Placeholder = "请输入80字以内的备注"
.AddInput("系统名称","系统名称","text")
End With
\'msgbox(4)
With wb.AddInputGroup("form2","ipg2","请输入功能模块")
\' .AddTextArea("q8",2).Placeholder = "请输入80字以内的备注"
.AddInput("功能模块","功能模块","text")
End With
\'msgbox(5)
With wb.AddInputGroup("form2","ipg3","请仔细描述您的需求")
\' .AddTextArea("q8",2).Placeholder = "请输入80字以内的备注"
.AddInput("需求描述","需求描述","text")
End With

With wb.AddInputGroup("form2","ipg4","您的联系方式")

.AddInput("科室","科室","text")
.AddInput("姓名","姓名","text")
\'.AddInput("岗位","岗位","text")
.AddSelect("岗位","岗位","医生|护士|财务人员|工程师|行政人员") \'第一个是数据库字段,第二个是左边的提示
.AddInput("电话","电话","text")
.AddInput("提交日期","提交日期","date")
End With

With wb.AddButtonGroup("form2","btg1",True)
.Add("btn1", "确定", "submit")
End With

Else \'保存新增的调查单
Dim dr As DataRow = DataTables("软件需求登记表").AddNew()
\' Dim nms() As String = {"q1","q2","q3","q4","q5","q6","q7","q8","q9","q10","科室","姓名","岗位","电话","提交日期"}
\' For Each nm As String In nms
\' dr(nm) = e.PostValues(nm)
\' \' msgbox(nm & e.PostValues(nm)) \' dr(nm) 为空值
\' Next
\' dr.Save()

\'msgbox(1)
Dim nms() As String = {"系统名称","功能模块","需求描述","科室","姓名","岗位","电话","提交日期"}
For Each nm As String In nms
dr(nm) = e.PostValues(nm)
\' msgbox(nm & e.PostValues(nm)) \'dr(nm) 为空值
Next
dr.Save()

\' nms = new String(){"科室","姓名","岗位","电话","提交日期"}
\' For Each nm As String In nms
\' dr(nm) = e.PostValues(nm)
\' Next
\' dr.Save()

With wb.AddMsgPage("","msgpage","增加成功", "您的意见我们已经收到,感谢你的反馈!") \'增加订单成功提示信息
.AddButton("btn1","继续增加","SoftRequire.htm")
\' .AddButton("btn1","返回列表","list.htm")
End With

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

[此贴子已经被作者于2017/3/24 7:16:29编辑过]

--  作者：有点色
--  发布时间：2017/3/23 18:48:00
--
做个例子测试吧，代码看不出问题。

--  作者：ycwk
--  发布时间：2017/3/26 14:14:00
--

Title属性不起作用？咋回事呀？用insertHTML也不行
Dim e As RequestEventArgs = args(0)
Dim wb As New weui

wb.AppendHTML("<title>我的第一个 HTML 页面</title>")
wb.AppendHTML("<link rel=\'stylesheet\' href=\'../ajax/jquery.mobile/1.1.1/jquery.mobile-1.1.1.min.css\'/>",True) \'引入样式文件,参数True表示添加到head区
wb.AppendHTML("<link rel=\'stylesheet\' href=\'../xdf/img/main.css\'/>",True) \'引入样式文件
wb.AppendHTML("<script src=\'../ajax/libs/jquery/1.7.1/jquery.min.js\'></script>",True) \'引入jquery
wb.AppendHTML("<script src=\'../ajax/jquery.mobile/1.1.1/jquery.mobile-1.1.1.min.js\'></script>",True) \'引入jquery
wb.AppendHTML("<script src=\'../scripts/main.js\'></script>",True) \'引入jquery

--  作者：有点色
--  发布时间：2017/3/27 0:52:00
--

Dim wb As New WeUI

wb.Title ="页面标题"

--  作者：ycwk
--  发布时间：2017/3/27 7:23:00
--
我发现是加了页眉和页脚后，点着点着就容易丢失滚动条，去掉以后就好了。

--  作者：有点蓝
--  发布时间：2017/3/27 8:50:00
--
用InsertHTML，不要使用AppendHTML