专家坐堂-网页设计无法定位[_Identify]键，求助Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Case "report.html"

Dim dr As DataRow

dr = DataTables("xxx").AddNew()

dr("项目名称") = e.PostValues("项目名称")

dr("公司名称") = e.PostValues("公司名称")

....

dr.save()

\'增加一个表单,把上一页的输入参数引用过来

wb.AddForm("", "form2", "excelreport.html")

With wb.AddInputGroup("form2", "ipg1", "参数")

.Attribute="style=\'font-size:14px;\'"

.AddInput("定位值","编号","number").Value = dr("_Identify")

With .addInput("项目名称","项目名称","text")

.Readonly = True

.value = dr("项目名称")

End With

With .AddInput("公司名称","公司名称","text")

.Readonly = True

.value = dr("公司名称")

End With

....增加的网页内容

\'增加2个按钮,excel输出和调整

With wb.AddButtonGroup("","btg1",False)

.Add("btnok","EXCEL输出","button","excelreport.html")

With .Add("btnclear","调整")

.Attribute = ""

.kind = 2

End With

e.WriteString(wb.Build)

Case "excelreport.html"

Dim Book As New XLS.Book(ProjectPath & "Attachments\\模板.xls")

Dim exl As String = ProjectPath & "Reports\\网络.xls"

Dim dr As DataRow

\'dr = DataTables("xxx").DataRows(DataTables("xxx").DataRows.Count - 1) ’用这个来定位是可以的，当然是没人插队情况下

dr = DataTables("xxx").Find("_Identify = \'" & CInt(e.PostValues("定位值")) & "\'") 用这行却怎么也不能定位到具体的datarow

If dr IsNot Nothing

...生成excel的代码

Else

...

End If