Foxtable(狐表) → 用户栏目 → 专家坐堂 → web中自动填入信息功能实现


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

主题：web中自动填入信息功能实现
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107014 积分：544295 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/3/14 8:42:00 [显示全部帖子]

dim s as string = "粘贴的内容........"
dim s1() as string = s.replace(vbcr,"").split(vblf)
for each a as string in s1
msgbox(a)
dim s2() as string = a.split("：")
msgbox(s1(0))
msgbox(s1(1))
next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107014 积分：544295 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/3/14 10:16:00 [显示全部帖子]

js也有split的用法，差不多的，用法百度一下

“一键解析”这个按钮就稍微有点麻烦，要分开多个AddInputGroup

With wb.AddInputGroup("form2", "ipg1", "信息录入")
    If e.GetValues.ContainsKey("chujian") Then '如果容纳chujian
        If e.GetValues.ContainsKey("name") Then
            Dim dr As DataRow = DataTables("检疫资料").SQLFind("用户姓名 = '" & e.Cookies("用户姓名") & "' And _Identify = '" & e.getvalues("name") & "'")
            If dr IsNot Nothing Then
                With .AddInput("中文船名", "中文船名", "Text")
                    .Value = dr("中文船名")
                    .Readonly = True
                End With 
                With .AddInput("IMO号", "IMO号", "text")
                    .Value = dr("IMO号")
                    .Readonly = True
                End With 
                With .AddInput("入境时间", "入境时间", "date")
                    .Value = dr("入境时间")
                    .Readonly = True
                End With 
                
                
                With .AddInput("检查类别", "检查类别", "text")
                    .Value = "出检"
                    .Readonly = True
                End With
                .AddInput("航次号", "航次号", "text")
            End If
        End If
    Else
        
        With .AddTextArea("一键解析", 10)
            .Placeholder = "请输入船舶信息进行解析"
            .class = "mark"
        End With
    End If
End With
With wb.AddButtonGroup("form2", "btg77", False)
    
    .Add("btn77", "一键解析", "button").Attribute = "" '调用js函数上传
    
End With
If e.GetValues.ContainsKey("chujian") = False Then
    With wb.AddInputGroup("form2", "ipg2", "信息录入")
        .AddInput("入境时间", "入境时间", "date")
        .AddInput("中文船名", "中文船名", "Text")
        .AddInput("英文船名", "英文船名", "text")
        
        .AddInput("船籍", "船    籍", "Text")
        .AddInput("总吨", "总    吨", "number")
        .AddInput("IMO号", "IMO号", "text")
        .AddInput("航次号", "航次号", "text")
        .AddInput("进检船员数量", "进境船员数量", "number")
        .AddInput("来自国家", "来自国家", "text")
        .Addselect("检查类别", "检查类别", "[进检]|出检")
    End With
End If
'    .Addselect("船员体温", "船员体温", "正常|不正常")
With wb.AddInputGroup("form2", "ipg3", "信息录入")
    .AddInput("出境时间", "出境时间", "date")
    .AddInput("出检船员数量", "出检船员数量", "number")
    .AddInput("去往国家", "去往国家", "Text")
    .AddInput("本港休假船员数量", "本港休假船员数量", "number")
    
End With
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107014 积分：544295 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/3/17 20:40:00 [显示全部帖子]


        var vals=result.split("|");
        document.getElementById("中文船名").innerHTML=vals[0];
        document.getElementById("航次").innerHTML=vals[1];
……
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107014 积分：544295 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/3/18 8:47:00 [显示全部帖子]

编辑器里有明显的波浪线提示的


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107014 积分：544295 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/3/18 9:16:00 [显示全部帖子]

编辑器里有明显的波浪线提示的，else对应的额是end if

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107014 积分：544295 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/3/18 9:38:00 [显示全部帖子]

如果是指页面最上面，先添加按钮

        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        With wb.AddInputGroup("form1","ipg1","登录")
            .AddInput("xm","户名","text")
            .AddInput("pw","密码","password")
        End With
        e.WriteString(wb.Build) '生成网页

如果是指比如户名和密码中间，要分开2个AddInputGroup

        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","登录")
            .AddInput("xm","户名","text")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        With wb.AddInputGroup("form1","ipg2","登录")
            .AddInput("pw","密码","password")
        End With
        e.WriteString(wb.Build) '生成网页
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 5 次数据查询