Foxtable(狐表)用户栏目专家坐堂 → [求助]动态生成网页怎么获取数据库的数据


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

主题:[求助]动态生成网页怎么获取数据库的数据

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


加好友 发短信
等级:婴狐 帖子:88 积分:566 威望:0 精华:0 注册:2017/11/13 16:55:00
  发帖心情 Post By:2017/11/15 15:04:00 [显示全部帖子]

Dim wb As New WeUI '定义一个基于weui框架的网页生成器
Dim cmd As new SqlCommand
cmd.ConnectionName = ("yy")
Select Case e.Path
    Case "filter.html"
        wb.AddForm("","form1","result.html")
        With wb.AddInputGroup("form1","ipg1","日报表筛选")
            .AddSelect("Name","姓名",DataTables("日报表").SQLGetComboListString("姓名"))
            .AddInput("StartDate","开始日期","date")
            .AddInput("EndDate","结束日期","date")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btnok","筛选","submit")
        End With


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


加好友 发短信
等级:婴狐 帖子:88 积分:566 威望:0 精华:0 注册:2017/11/13 16:55:00
  发帖心情 Post By:2017/11/15 15:15:00 [显示全部帖子]

解决了,谢谢图片点击可在新窗口打开查看
但是额
'=' 附近有语法错误。   这是发生了什么??

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


加好友 发短信
等级:婴狐 帖子:88 积分:566 威望:0 精华:0 注册:2017/11/13 16:55:00
  发帖心情 Post By:2017/11/15 15:30:00 [显示全部帖子]

日期两边加上#么  但是我试过了还是一样啊

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


加好友 发短信
等级:婴狐 帖子:88 积分:566 威望:0 精华:0 注册:2017/11/13 16:55:00
  发帖心情 Post By:2017/11/15 15:55:00 [显示全部帖子]

好了,姓名日期字段加上[]就好了

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


加好友 发短信
等级:婴狐 帖子:88 积分:566 威望:0 精华:0 注册:2017/11/13 16:55:00
  发帖心情 Post By:2017/11/15 19:07:00 [显示全部帖子]

。。。。。。
怎么才能在我点击筛选按钮后提交数据,但是不跳转到result.html页面呢??

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


加好友 发短信
等级:婴狐 帖子:88 积分:566 威望:0 精华:0 注册:2017/11/13 16:55:00
  发帖心情 Post By:2017/11/16 10:35:00 [显示全部帖子]

function myfunction(){
    var result = submitAjaxForm('form1','',false);
    if (result =='OK') {show('dlg1')}
    else {showDialog('dlg2','错误',result)}
}

这是帮助文档里的示例,我想问result=='OK'是为什么,
还有show('dlg1')和showDialog('dlg2','错误',result)这是什么方法啊,感觉根本不能调用啊,返回的都是undefined


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


加好友 发短信
等级:婴狐 帖子:88 积分:566 威望:0 精华:0 注册:2017/11/13 16:55:00
  发帖心情 Post By:2017/11/16 10:40:00 [显示全部帖子]

With wb.AddButtonGroup("form1","btg1",True)
            .Add("btnok","筛选","button").Attribute = ""    我想在这里点击筛选按钮调用会话框dlg1
        End With
        With wb.AddDialog("","dlg1","提示","筛选成功")
            .AddButton("btnOK","OK")
        End With

js代码:function myfunction(){
    var result = submitAjaxForm('form1','',false);
show('dlg1');
    }


我js该怎么写呢

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


加好友 发短信
等级:婴狐 帖子:88 积分:566 威望:0 精华:0 注册:2017/11/13 16:55:00
  发帖心情 Post By:2017/11/16 11:32:00 [显示全部帖子]

浏览器报错:Uncaught TypeError: Cannot read property 'classList' of null
     at show (weui.me.js:228)
     at myfunction (ajaxform.js:4)
     at HTMLButtonElement.onclick (filter.html:54)

alert弹窗内容为空

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


加好友 发短信
等级:婴狐 帖子:88 积分:566 威望:0 精华:0 注册:2017/11/13 16:55:00
  发帖心情 Post By:2017/11/16 11:34:00 [显示全部帖子]

js:
function myfunction(){
    var result = submitAjaxForm('form1','',false);
alert(result);
show('dlg');      <==第四行报错
}

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


加好友 发短信
等级:婴狐 帖子:88 积分:566 威望:0 精华:0 注册:2017/11/13 16:55:00
  发帖心情 Post By:2017/11/16 11:36:00 [显示全部帖子]

Select Case e.Path
    Case "filter.html"
        wb.AddForm("","form1","result.html")
        With wb.AddInputGroup("form1","ipg1","日报表筛选")
            .AddSelect("Name","姓名",dtb.SQLGetComboListString("姓名")) '这里的Name会自动转换为小写name
            .AddInput("StartDate","开始日期","date")
            .AddInput("EndDate","结束日期","date")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btnok","筛选","button").Attribute = ""
        End With
        With wb.AddDialog("","dlg1","提示","筛选成功")
            .AddButton("btnOK","OK")
        End With
        wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
        e.WriteString(wb.Build)
这样能看出问题在哪么?

 回到顶部
总数 35 上一页 1 2 3 4 下一页