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

结合这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

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

函数名称是gotopage2，和代码里的不一致。另外学会使用浏览器的开发者工具进行调试和查看错误

function gotopage2(bh){

alert（bh）'弹出什么内容

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

alert（result ）'弹出什么内容

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

hide('page1');

show('page2')

}

内部函数，js代码和httprequest代码放到txt文件发上来看看

Dim wb As New weui

Select Case e.Path

Case "test.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 ,"含税金额:","元")

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

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

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

.Addbutton("详细","" , 1,"onclick=""gotopage2('" & "0001" & "')""")

i = i + 1

End With

'Next

End With

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

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

End With

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

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

Case "other.htm"

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

.Highlight = -1

.CreateFromDataTable(DataTables("表A"),False)

End With

e.WriteString(wb.Build)

End Select

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

function gotopage2(bh){

alert(bh) //弹出什么内容

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

alert(result)//弹出什么内容

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

hide('page1');

show('page2');

}

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