[求助] 关于psge2的动态数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 关于psge2的动态数据

共有3445人关注过本帖树形打印复制链接主题：[求助] 关于psge2的动态数据

TINOOOOOOOO

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：83 积分：608 威望：0 精华：0 注册：2019/4/22 15:09:00

[求助] 关于psge2的动态数据 发帖心情

Post By：2019/7/19 14:40:00 [显示全部帖子]

Dim e As RequestEventArgs = args(0)

Dim wb As New weui

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

cmd.CommandText = "SE ECT * from 采购订单"

dt = cmd.ExecuteReader()

Select Case e.Path

Case "frfr.htm"

wb.AddPage("","page1") '增加两个page

wb.AddPage("","page2",False) '第二个

With wb.AddArticle("page1","ar1")

Dim i As Integer = 0

For Each dr As DataRow In dt.DataRows

With wb.AddPreview("page1","pv" & i ,"含税金额:",dr("含税金额") & "元")

.AddItem("单据编号",dr("单据编号"))

.AddItem("物料名称",dr("物料名称"))

.AddItem("供应商",dr("供应商"))

.Addbutton("详细","" , 1,""")

i = i + 1

End With

With wb.AddArticle("page2","ar2")

With wb.AddTable("page2","Table1")

.Highlight = -1 '关闭高亮显示功能

.head.AddRow("应付","") '表头

.body.AddRow("数量","") '数据

.body.AddRow("金额","")

End With

e.WriteString(wb.Build) '生成网页

End Select

现在页面跳转是正常的了，想请教老师要怎么想把表格里面的数据用动态填充到page2里面。一定要用到传递主键吗，那在page里面如何传递求助老师

TINOOOOOOOO

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：83 积分：608 威望：0 精华：0 注册：2019/4/22 15:09:00

Post By：2019/7/19 14:44:00 [显示全部帖子]

psge2 里面想写的是同一个单号的明细

TINOOOOOOOO

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：83 积分：608 威望：0 精华：0 注册：2019/4/22 15:09:00

Post By：2019/7/20 9:01:00 [显示全部帖子]

Dim e As RequestEventArgs = args(0)

Dim wb As New weui

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

cmd.CommandText = "SE ECT * from 采购订单"

dt = cmd.ExecuteReader()

Select Case e.Path

Case "frfr.htm"

wb.AddPage("","page1") '增加两个page

wb.AddPage("","page2",False) '第二个

With wb.AddArticle("page1","ar1")

Dim i As Integer = 0

For Each dr As DataRow In dt.DataRows

With wb.AddPreview("page1","pv" & i ,"含税金额:",dr("含税金额") & "元")

.AddItem("单据编号",dr("单据编号"))

.AddItem("物料名称",dr("物料名称"))

.AddItem("供应商",dr("供应商"))

.Addbutton("详细","" , 1,"onc ick=""hide('page1');show('page2')""")

i = i + 1

End With

With wb.AddArticle("page2","ar2")

With wb.AddTable("page2","Table1")

.CreateF omDataTable(dt,False,"","","单据编号")

End With

e.WriteString(wb.Build) '生成网页

End Select

请教老师要怎么把 page1里面的的单据编号当做是主键放到表格筛选条件中去

TINOOOOOOOO

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：83 积分：608 威望：0 精华：0 注册：2019/4/22 15:09:00

Post By：2019/7/22 16:37:00 [显示全部帖子]

Select Case e.Path

Case "cccc.htm"

Dim i As Integer = 0

For Each dr As DataRow In dt.DataRows

With wb.AddPreview("","pv" & i ,"含税金额:",dr("含税金额") & "元")

.AddItem("单据编号",dr("单据编号"))

.AddItem("物料名称",dr("物料名称"))

.AddItem("供应商",dr("供应商"))

.Addbutton("审核", "", 1,"onc ick=""got page2('" & dr("单据编号") & "')""")

i = i + 1

End With

With wb.AddArticle("page2","ar2")

wb.InsertHTML("page2"，"<div id='p1' style='margin:0.5em'></div>")

wb.AppendHTML("<script src='./lib/got page2.js'></script>") '引入脚本文件

End With

e.WriteString(wb.Build)

End Select

------------

Select Case e.Path

Case "other.htm"

With wb.AddTable("","Table1")

.Highlight = -1

.CreateFr mDataTable(dt,False,e.PostValues("bh"),"","供应商","单据编号")

End With

e.WriteString(wb.Build)

End Select

老师用你说明的方法点击按钮没有跳转反应 js也测试了好像没有引入。不知道是哪个写错或者是出了问题再次请教老师

TINOOOOOOOO

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：83 积分：608 威望：0 精华：0 注册：2019/4/22 15:09:00

Post By：2019/7/22 16:39:00 [显示全部帖子]

js文件地址应该是没有问题的

TINOOOOOOOO

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：83 积分：608 威望：0 精华：0 注册：2019/4/22 15:09:00

Post By：2019/7/22 16:52:00 [显示全部帖子]

function gotopage2(bh){

alert（bh）

var result = sendAjaxTextsendAjaxText(bh,"other.htm",""，false);

document.getElementById("p1").innerHTML=result;

hide('page1');

show('page2')

}

就是复制老师的

TINOOOOOOOO

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：83 积分：608 威望：0 精华：0 注册：2019/4/22 15:09:00

Post By：2019/7/22 16:53:00 [显示全部帖子]

加了一个弹出测试

TINOOOOOOOO

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：83 积分：608 威望：0 精华：0 注册：2019/4/22 15:09:00

Post By：2019/7/22 16:58:00 [显示全部帖子]

gotopsge2 我刚才是发送不了删了一个字母所以少 o

TINOOOOOOOO

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：83 积分：608 威望：0 精华：0 注册：2019/4/22 15:09:00

Post By：2019/7/23 8:26:00 [显示全部帖子]

试了一下就是没有反应
图片点击可在新窗口打开查看

此主题相关图片如下：33.png

f12 看了一下应该是引入了才对

TINOOOOOOOO

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：83 积分：608 威望：0 精华：0 注册：2019/4/22 15:09:00

Post By：2019/7/23 8:39:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文本文档 (5).txt

暂时没有内部函数设置

下一主题 >> << 上一主题

总数 11 1 2 下一页

主题：[求助] 关于psge2的动态数据