Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用微信扫电子fa piao，如何把数据传到狐表中？


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

主题：用微信扫电子fa piao，如何把数据传到狐表中？
帅哥哟，离线，有人找我吗？
lihe60
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6835 积分：43243 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2017/11/25 18:19:00 [显示全部帖子]

Dim fl As String = ProjectPath & "web\" & e.path
Dim path As String = "foxtableAppTest"

If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar",".txt"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If

Select Case e.path
    Case "test.htm"
        If e.PostValues.count = 0 Then
            Dim wb As new weui
            wb.AppendHTML("<script type='text/javascript' src='/" & path & "/js/common.js'></script>", True)
            wb.AppendHTML("<link rel='stylesheet' href='/" & path & "/css/common.css' Type='text/css' charset='utf-8'/>", True)
            
            wb.AddForm("","form1","test.htm")
            With wb.AddInputGroup("form1","ipg1","测试")
                .AddInput("姓名","姓名","Text")
                .AddInput("年龄","年龄","text")
            End With
            
            With wb.AddButtonGroup("form1","btg1",True)
                .Add("btn1", "扫一扫", "button").Attribute = " & path & "/plus/barcode_scan.html',true,true);"""
            End With
            
            wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('年龄').value=r;}</script>")
            '  wb.InsertHTML("<script>function scaned( t, r, f ) {plus.nativeUI.alert('扫描返回的信息如:\n编码:' + t + '\n内容:' + r + '\n图片存放路径(在手机端):' + f);}</script>")
            e.WriteString(wb.Build)
        Else
            Tables("表A").current("第一列")=e.PostValues("姓名")
            Tables("表A").current("第二列")=e.PostValues("年龄")
            Dim sb As New StringBuilder
            sb.AppendLine("<meta name='viewport' c>")
            sb.AppendLine("接收到的数据有:<br/><br/>")
            For Each key As String In e.PostValues.Keys
                sb.AppendLine(key & ":" & e.PostValues(key) & "<br/>")
            Next
            e.WriteString(sb.ToString)
        End If
End Select

这个代码还是不能把数据导入狐表，else后面的代码不执行。
[此贴子已经被作者于2017/11/25 18:39:35编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6835 积分：43243 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2017/11/26 11:10:00 [显示全部帖子]

有点甜老师，如何解决呀?

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


加好友 发短信
等级：狐神 帖子：6835 积分：43243 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2017/11/26 12:22:00 [显示全部帖子]


用ajax提交啊

 

wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('年龄').value=r;var result = submitAjaxForm('form1','',false);alert(result)}</script>")



这个代码放进去，还是不行的。18楼的代码如何修改？
 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6835 积分：43243 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2017/11/26 15:53:00 [显示全部帖子]

如何解决呀

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


加好友 发短信
等级：狐神 帖子：6835 积分：43243 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2017/11/26 18:21:00 [显示全部帖子]

Dim fl As String = ProjectPath & "web\" & e.path
Dim path As String = "foxtableAppTest"

If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar",".txt"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If

Select Case e.path
    Case "test.htm"
        If e.PostValues.count = 0 Then
            Dim wb As new weui
            wb.AppendHTML("<script type='text/javascript' src='/" & path & "/js/common.js'></script>", True)
            wb.AppendHTML("<link rel='stylesheet' href='/" & path & "/css/common.css' Type='text/css' charset='utf-8'/>", True)
            
            wb.AddForm("","form1","test.htm")
            With wb.AddInputGroup("form1","ipg1","测试")
                .AddInput("姓名","姓名","Text")
                .AddInput("年龄","年龄","text")
            End With
            
            With wb.AddButtonGroup("form1","btg1",False)
                .Add("btn1", "扫一扫", "button").Attribute = " & path & "/plus/barcode_scan.html',true,true);"""
            End With
            
            '   wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('年龄').value=r;}</script>")
            wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('年龄').value=r;var result = submitAjaxForm('form1','',false);alert(result)}</script>")
            '  wb.InsertHTML("<script>function scaned( t, r, f ) {plus.nativeUI.alert('扫描返回的信息如:\n编码:' + t + '\n内容:' + r + '\n图片存放路径(在手机端):' + f);}</script>")
            e.WriteString(wb.Build)
        Else
            '  Dim sb As New StringBuilder
            For Each key As String In e.PostValues.Keys
                Tables("表A").current("第二列")=e.PostValues(key)
            Next
            
            '  e.WriteString(sb.ToString)
        End If
End Select

没有任何提示，就是扫一扫的结果不能输入到狐表。
 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6835 积分：43243 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2017/11/26 21:33:00 [显示全部帖子]

谢谢，现在好了。但多了一个提示“打包网站成APP测试”，是为什么？

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


加好友 发短信
等级：狐神 帖子：6835 积分：43243 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2017/11/26 21:44:00 [显示全部帖子]

还有一个问题，只能扫英文或数字，不能扫中文。

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


加好友 发短信
等级：狐神 帖子：6835 积分：43243 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2017/11/26 23:18:00 [显示全部帖子]

Dim fl As String = ProjectPath & "web\" & e.path
Dim path As String = "foxtableAppTest"

If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar",".txt"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If

Select Case e.path
    Case "test.htm"
        If e.PostValues.count = 0 Then
            Dim wb As new weui
            wb.AppendHTML("<script type='text/javascript' src='/" & path & "/js/common.js'></script>", True)
            wb.AppendHTML("<link rel='stylesheet' href='/" & path & "/css/common.css' Type='text/css' charset='utf-8'/>", True)
            
            wb.AddForm("","form1","test.htm")
            With wb.AddInputGroup("form1","ipg1","测试")
                .AddInput("姓名","姓名","Text")
                .AddInput("年龄","年龄","text")
            End With
            
            With wb.AddButtonGroup("form1","btg1",False)
                .Add("btn1", "扫一扫", "button").Attribute = " & path & "/plus/barcode_scan.html',true,true);"""
            End With
            
            wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('年龄').value=r;var result = submitAjaxForm('form1','',false);alert(result)}</script>")
            '  wb.InsertHTML("<script>function scaned( t, r, f ) {plus.nativeUI.alert('扫描返回的信息如:\n编码:' + t + '\n内容:' + r + '\n图片存放路径(在手机端):' + f);}</script>")
            e.WriteString(wb.Build)
        Else
            For Each key As String In e.PostValues.Keys
                Tables("表A").current("第二列")=e.PostValues(key)
            Next
        End If
End Select

就是这段代码，另外都是官方提供（论坛上下载，未作任何改动）的。
 回到顶部
总数 19 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询