- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于手机端下拉组件问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185987)
-- 发布时间：2023/3/30 9:34:00
-- 关于手机端下拉组件问题
问题：下拉选省份可以跳出城市，输入一次后，通过IS回调，城市就显示不出来，需要先选择另一个省份再选回来，才可以选择城市
function setCodes18(){
var result= submitAjaxFileds(\'getCodes18.htm\',\'\',\'手机号\',false);
if(result){
var vals=result.split("|");
if(vals.length==8){
document.getElementById("姓名").value=vals[0];
document.getElementById("车牌号").value=vals[1];
document.getElementById("来访单位").value=vals[2];
document.getElementById("距离").value=vals[3];
document.getElementById("镇区").value=vals[4];
document.getElementById("城市").value=vals[5];
document.getElementById("省份").value=vals[6];
document.getElementById("受访人").value=vals[7];
-- 发布时间：2023/3/30 9:36:00
--
wb.AddPageTitle("", "pageheader", "伸东电子访客登记")
wb.AddForm("", "form1", "lfdj2.htm")
With wb.AddInputGroup("form1", "ipg1", "")
With .AddInput("手机号", "手机号:", "text")
.Attribute = "" \'调用js函数
End With
With .AddInput("姓名", "姓名:", "Text")
.Attribute = """
End With
With .AddInput("车牌号", "车牌号:", "text")
.Attribute = """
End With
With .AddInput("受访人", "受访人:", "text")
End With
With .AddInput("来访单位", "来访单位", "text")
End With
Dim str = dt.GetComboListString("省市", "", "邮编")
With .AddSelect("省份", "省份", str)
.Attribute = """
End With
With .AddSelect("城市", "城市", "")
End With
With .AddInput("镇区", "镇区", "text")
End With
With .AddInput("距离", "距离", "text")
End With
.AddSwitch("自带货物", "自带货物").Value = "false"
With .AddInput("货物数量", "货物数量:", "text")
End With
End With
With wb.AddButtonGroup("form1", "btg1", True)
\' .Add("btn1", "确定", "button").Attribute = ""
.Add("btn1", "确定", "submit")
End With
wb.AppendHTML("<script>" & vars("js006") & "</script>") \'引入脚本文件
e.WriteString(wb.Build)
-- 发布时间：2023/3/30 9:41:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:1.txt |
-- 发布时间：2023/3/30 9:41:00
--
代码在附件里，上传了很多次才成功
-- 发布时间：2023/3/30 9:44:00
--
下拉组件要这样赋值：https://www.baidu.com/baidu?ie=UTF-8&word=js%20select%20%E8%B5%8B%E5%80%BC
赋值的时候先给省份赋值，再给城市赋值
-- 发布时间：2023/3/30 10:18:00
--
function setCodes18(){
var result= submitAjaxFileds(\'getCodes18.htm\',\'\',\'手机号\',false);
if(result){
var vals=result.split("|");
if(vals.length==8){
document.getElementById("姓名").value=vals[0];
document.getElementById("车牌号").value=vals[1];
document.getElementById("来访单位").value=vals[2];
document.getElementById("距离").value=vals[3];
document.getElementById("省份").value=vals[4];
document.getElementById("城市1").value=vals[5];
document.getElementById("镇区").value=vals[6];
document.getElementById("受访人").value=vals[7];
}
}
}
好像把省份排在前面也不行
-- 发布时间：2023/3/30 10:19:00
--
下拉组件要这样赋值：https://www.baidu.com/baidu?ie=UTF-8&word=js%20select%20%E8%B5%8B%E5%80%BC