主题：关于移动版从服务器下载文件的请教

搞定了，把type 设成button 就可以了。再次感谢！

老师

 

为什么一样的代码，把代码改为：  .Add("btn1", "按钮").Attribute = "onclick= javascrtpt:window.location.href='/COA/705166.jpg'"

 

就会没有反应，服务器上明明也有这个文件的？

.Add("btn1", "按钮").Attribute = "onclick=""location.href='/COA/705166.jpg'"""

老师，

 

用这个代码，还是没反应，也不报错。怎么回事？

老师

 

可以了，我搞错目录了。多谢！

另外还想请教，

 

用WeUI 框架生成的表格，怎么实现当中的某列，比较列名为：“批号" 的这一列，能像a 标签一样，点击 就可以下载相应的文件.

参考

 

Select Case e.Path
    Case "test.htm",""
        Dim wb As New WeUI
        With wb.AddTable("","Table1")
            .head.AddRow("部门","姓名") '表头
            .body.AddRow("<img src='./images/001.jpg' width='100%' height='100px'>","<a href='./images/001.jpg'>abc</a>")
            .body.AddRow("<img src='./images/001.jpg' width='100%' height='100px'>","<a href='./images/001.jpg'>abc</a>")
            .body.AddRow("<img src='./images/001.jpg' width='100%' height='100px'>","<a href='./images/001.jpg'>abc</a>")
        End With
        e.WriteString(wb.Build)
End Select

老师

 

如果 Pdf 文件要怎么写，怎么我怎么写都过不了编译？

一样的，贴出你写的代码

 

.body.AddRow("<img src='./images/001.jpg' width='100%' height='100px'>","<a href='./images/001.jpg'>abc</a>")

老师

 

我的代码如下：

 

With wb.AddTable("","Table1")
            .Highlight = -1 '关闭高亮显示
            .Alternate = 2 '每两行显示一个不同背景颜色的行
            .RowHead = 1
            'Dim nms() As String
            Dim i As Integer = 1
            Dim dw As Integer
            If bmz > "" Then
                Dim nms() As String = {"","产品名称","物料编码","产品批号","数量","单价","金额"}
                dw = 3
                .Head.AddRow(nms)
            Else
                Dim nms() As String = {"","产品名称","产品批号","数量","单价","金额"}
                dw = 2
                .Head.AddRow(nms)
            End If
            Dim qty As Double = Round2(dzb.Compute("Sum(数量)"),2)
            Dim amt As Double = Round2(dzb.Compute("Sum(金额)"),2)
            For Each r As DataRow In dzb.DataRows
                With .Body.AddRow(i,r("产品名称"))
                    If bmz > ""
                        .AddCell(r("物料编码"))
                    End If                  
                    .AddCell(r("产品批号"))
                    .AddCell(Format(r("数量"),"#0.00"))
                    .AddCell(Format(r("单价"),"#0.00"))
                    .AddCell(r("金额"))
                End With
                i = i + 1
            Next
            With .Body.AddRow("")
                .Attribute = "style='background-color:#98FB98''"
                .AddCell("合计","colspan='" & dw & "'")
                .AddCells(qty,"",amt)
            End With
           
        End With
测试没有问题，像这种情况，如果要把 产品批号 这个列写成上面的样子，要怎么写？写了好久都搞不定？