With wb.AddTable("f1", "table1")
.Attribute = "style='text-align: center;'" '表格文字居中显示
.Alternate = 2
' .RowHead = 1
.Head.AddRow("客户等级", "客户姓名", "联系电话", "最近联系", "备注", "选择")
Dim cnt As Integer = 0
For Each r As DataRow In dt.Select("", "客户等级")
With .Body.AddRow
.AddCell(r("客户等级"))
.AddCell(r("客户姓名"))
.AddCell("<a href='tel:" & r("联系电话") & "'>" & r("联系电话") & "</a>")
If r.IsNull("最近联系") Then
.AddCell("从未联系")
Else
.AddCell(Format(r("最近联系"), "MM月dd日"))
End If
.AddCell(r("备注"))
.AddCell("<a style='color:blue' color: rgb(255, 0, 0);">f1.submit('" & r("sysid") & "')"">选择</a>")
.Primarykey = r("sysid")
End With
Next
End With
f1.submit('" & r("sysid") 这里无效,我想用post的方式提交,该怎么做呢?
[此贴子已经被作者于2023/5/8 15:47:41编辑过]