| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 点文本框拨打电话 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109100) |
| -- 作者：刘林 -- 发布时间：2017/11/4 10:44:00 -- 点文本框拨打电话 Dim In2 = .AddInput("联系电话","联系电话","text") In2.Value = pr("联系电话") In2.Attribute = """ 老师请问，如果点联系电话文本框，调入电话号码拨打这样写不行，该怎样写？ |
| -- 作者：有点蓝 -- 发布时间：2017/11/4 10:47:00 -- 你问过的：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=106829&skin=0 |
| -- 作者：刘林 -- 发布时间：2017/11/4 11:04:00 -- "这样合成不行 |
| -- 作者：刘林 -- 发布时间：2017/11/4 11:04:00 -- \'tel:\' + in2.value.innerHTML |
| -- 作者：有点蓝 -- 发布时间：2017/11/4 11:17:00 -- 贴出完整代码 |
| -- 作者：刘林 -- 发布时间：2017/11/4 11:20:00 -- With wb.AddInputGroup("form1","ipg1","信息修改") Dim In1 = .AddInput("学生姓名","学生姓名","text") In1.Value = pr("学生姓名") in1.attribute ="style=\'margin-top:5px;color:blue\'" .AddInput("身份证件号","身份证号","text").Value = pr("身份证件号") .AddInput("学籍号","学 籍","text").Value = pr("学籍号") Dim In2 = .AddInput("联系电话","联系电话","text") In2.Value = pr("联系电话") In2.Attribute = "" " .AddInput("家庭住址","家庭住址","text").Value = pr("家庭住址") If pr.Isnull("民族") |
| -- 作者：刘林 -- 发布时间：2017/11/4 11:21:00 -- onclick部分发不过来呢 |
| -- 作者：有点蓝 -- 发布时间：2017/11/4 11:25:00 -- 中间加上空格 |
| -- 作者：刘林 -- 发布时间：2017/11/4 11:31:00 -- With wb.AddInputGroup("form1","ipg1","信息修改") Dim In1 = .AddInput("学生姓名","学生姓名","text") In1.Value = pr("学生姓名") in1.attribute ="style=\'margin-top:5px;color:blue\'" .AddInput("身份证件号","身份证号","text").Value = pr("身份证件号") .AddInput("学籍号","学 籍","text").Value = pr("学籍号") Dim In2 = .AddInput("联系电话","联系电话","text") In2.Value = pr("联系电话") In2.Attri bute = "o nclick=""lo cation=\'tel:\' + in2.value.innerHTML"" " .AddInput("家庭住址","家庭住址","text").Value = pr("家庭住址") endwith
|
| -- 作者：有点蓝 -- 发布时间：2017/11/4 11:58:00 -- In2.Attri bute = " & pr("联系电话") & "\' "" " 不要把js代码和vb代码混用，不是一个妈的 |