Dim nms() As String = {"序号", "日期", "商品条码", "品名", "品类", "数量", "金重", "标签价格", "总重量", "标签"}
.Head.AddRow(nms)
For Each dr As DataRow In dt.Select("", "序号")
With .Body.AddRow(dr("序号"), dr("日期"), dr("商品条码"), dr("对账品名"), dr("对账品类"), dr("数量"), dr("金重"), dr("标签价格"), dr("总重量"), dr("标签备注"))
End With
Next
wb.AppendHTML("<style>table.fox_table {min-width: 100%;float: left;text-align: center;}</style>", True)
End With
msgbox((wb.Build))
e.WriteString(wb.Build)
End Select
e.Handled = True '通知系统异步函数执行完毕,可以关闭信道
function tongji(){ var result = submitAjaxForm('form1','',false); alert(result ); document.getElementById("p1").innerHTML=result; } |