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
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
加好友 
发短信
Post By：2017/11/5 1:19:00 [显示全部帖子]
