Foxtable(狐表)用户栏目专家坐堂 → [求助]


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

主题:[求助]

帅哥哟,离线,有人找我吗?
lungby
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:84 积分:688 威望:0 精华:0 注册:2018/3/1 9:46:00
[求助]  发帖心情 Post By:2020/9/2 16:41:00 [只看该作者]

想做网页版的,通过输入的数据,在数据库表中查询相应数据的其他列,填到网页的相应文档里,
js文件代码如下:
function setCodes(){
    var result= submitAjaxFileds('getCodes.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];
        }
    }
}


内部函数部分如下:

Dim wb As New weui

Dim e As RequestEventArgs = args(0)

If e.PostValues.Count = 0 Then

    wb.AddForm("","form1","zhuti.htm")

    With wb.AddInputGroup("form1","ipg1","工程信息")

.AddInput("工程代号","工程代号","Text") '前一个"工程代号"ID,后一个"工程代号"是标题

       With .AddInput("工程代号","工程代号","")
                .Attribute = 
"oninput=
'setCodes()''调用js函数
            End With

        .AddInput("工程名称","工程名称","Text")

        .AddInput("委托单位","委托单位","Text")

        .AddInput("建设单位","建设单位","Text")

        .AddInput("施工单位","施工单位","Text")

        .AddInput("设计单位","设计单位","Text")





HttpRequest代码如下:

Select Case e.Path

    Case "index.htm"

         Functions.Execute("首页",e)

    Case "zhuti.htm"

         Functions.Execute("结构实体抽测",e)

    Case "getCodes.htm" '

        Dim dr As DataRow = DataTables("工程信息").Find("工程代号='" & e.Values("工程代号") & "'")

        If dr IsNot Nothing Then

            e.WriteString(dr("工程名称") & "|" & dr("委托单位") & "|" & dr("建设单位") & "|" & dr("监理单位") & "|" & dr("施工单位") & "|" & dr("见证单位") & "|" & dr("见证人") & "|" & dr("设计单位"))

        End If

    Case Else

        e.WriteString("糟糕,文件未找到!")

End Select


请帮忙看下代码,谢谢
[此贴子已经被作者于2020/9/2 16:43:28编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:57342 积分:290623 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/2 16:51:00 [只看该作者]

调试一下

    Case "getCodes.htm" '

msgbox(e.Values("工程代号"))

        Dim dr As DataRow = DataTables("工程信息").Find("工程代号='" & e.Values("工程代号") & "'")

        If dr IsNot Nothing Then

msgbox(dr("工程名称"))

            e.WriteString(dr("工程名称") & "|" & dr("委托单位") & "|" & dr("建设单位") & "|" & dr("监理单位") & "|" & dr("施工单位") & "|" & dr("见证单位") & "|" & dr("见证人") & "|" & dr("设计单位"))

        End If


js文件代码:

function setCodes(){
    var result= submitAjaxFileds('getCodes.htm','','工程代号',false);
alert(result);
……



 回到顶部
帅哥哟,离线,有人找我吗?
lungby
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:84 积分:688 威望:0 精华:0 注册:2018/3/1 9:46:00
  发帖心情 Post By:2020/9/2 17:01:00 [只看该作者]

js文件代码也要改吗?
   if(result)改为alert(result) ?

alert(result);  分号怎么替换呢?

改成如下,还是不行
function setCodes(){
    var result= submitAjaxFileds('getCodes.htm','','工程代号',false);
    alert(result){
        var vals=result.split("|");
        if(vals.length==8){


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:57342 积分:290623 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/2 17:04:00 [只看该作者]

alert(result);是用来做调试的,相当于foxtable的messagebox提示框

function setCodes(){
    var result= submitAjaxFileds('getCodes.htm','','工程代号',false);
alert(result); //看弹出什么内容
    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];
        }
    }
}

 回到顶部
帅哥哟,离线,有人找我吗?
lungby
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:84 积分:688 威望:0 精华:0 注册:2018/3/1 9:46:00
  发帖心情 Post By:2020/9/2 17:10:00 [只看该作者]

没有任何提示,就是调取不了数据
这个和列的顺序没关系吧?


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


加好友 发短信
等级:超级版主 帖子:57342 积分:290623 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/2 17:15:00 [只看该作者]

可能js文件编码问题。不要使用记事本编辑js文件,最好下载一些专业的编辑器,如vscode、editplus等等程序新建文件编辑

 回到顶部
帅哥哟,离线,有人找我吗?
lungby
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:84 积分:688 威望:0 精华:0 注册:2018/3/1 9:46:00
  发帖心情 Post By:2020/9/2 17:27:00 [只看该作者]

你好,还是不行,我上传了附件,麻烦您帮着看下

 回到顶部
帅哥哟,离线,有人找我吗?
lungby
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:84 积分:688 威望:0 精华:0 注册:2018/3/1 9:46:00
  发帖心情 Post By:2020/9/2 17:30:00 [只看该作者]

麻烦看下

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:57342 积分:290623 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/2 17:35:00 [只看该作者]

把js文件,和实例打包上传:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

 回到顶部
帅哥哟,离线,有人找我吗?
lungby
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:84 积分:688 威望:0 精华:0 注册:2018/3/1 9:46:00
  发帖心情 Post By:2020/9/2 17:39:00 [只看该作者]

麻烦帮忙查下代码,谢谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:外部委托web - 副本.rar


[此贴子已经被作者于2020/9/2 17:43:45编辑过]

 回到顶部
总数 21 1 2 3 下一页