'根据此页数据生成网页
With wb.Add Table("form1","Table1")
If Vars("table_model") = "浏览模式" Then '如果是看图模式,就启动看图函数
.Attri bute= "onc lick='table_img1()'" 调用这个函数是让用户在点击此行时，直接显示这行的刀具图片
Else
.Active Sheet="menu1" 这是调用表格操作菜单
End If
.PageNumber=page
.Colwidth="12px"
.Highlight= 1
.Alternate = 3
Dim nms() As String={"NO","名称","规格","数量","单位","编号"} '"单价",
.head.AddRow(nms)
For Each r As Data Row In dt.DataRows 'Data Tables("item99").Select("isl01 >= 5 and ibh01='刀'","imc01")
With .body.addrow(r("NO."),r("imc01"),r("igg01"))
If r("isl01") = 0 Then
.addcell(Format(r("isl01")),"class='mark'") 'style='color:blue;
Else
.addcell(r("isl01"),"class='alignC'")
End If
.addcell(r("idw01"),"class='alignC'")
' .addcell(Format(r("idj01"),"#0.00"),"class='markR'")
.addcell(r("ishelf01"),"class='alignC'")
.PrimaryKey=r("_Identify")
End With
Next
End With
加好友 
发短信
Post By：2020/2/6 17:13:00 [只看该作者]
