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

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

共有3547人关注过本帖树形打印复制链接主题：[求助] 关于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 里面想写的是同一个单号的明细

有点蓝

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

加好友

发短信

等级：超级版主帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/7/19 14:54:00 [只看该作者]

参考：http://www.foxtable.com/mobilehelp/scr/0067.htm

TINOOOOOOOO

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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里面的的单据编号当做是主键放到表格筛选条件中去

有点蓝

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

加好友

发短信

等级：超级版主帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/7/20 9:44:00 [只看该作者]

结合这2种帮助的用法：http://www.foxtable.com/mobilehelp/scr/0121.htm

http://www.foxtable.com/mobilehelp/scr/0110.htm

frfr.htm

……

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=""gotopage2('" & dr("单据编号") & "')""")

i = i + 1

End With

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

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

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

gotopage2函数

function gotopage2(bh){
var result = sendAjaxTextsendAjaxText(bh,"other.htm",""，false);
document.getElementById("p1").innerHTML=result;

hide('page1');

show('page2')
}

--------

other.htm页面的用法参考上面第二个帮助tongji.htm页面的用法动态返回表格数据

也可以参考这里例子里面动态返回表格数据的用法：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=106788&replyID=&skin=1

TINOOOOOOOO

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

加好友

发短信

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

Post By：2019/7/22 16:39:00 [只看该作者]

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/7/22 16:50:00 [只看该作者]

gotpage2.js文件内容发上来看看

TINOOOOOOOO

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

加好友

发短信

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

Post By：2019/7/22 16:53:00 [只看该作者]

加了一个弹出测试

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

总数 17 1 2 下一页

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