'这是复选框,ls 本来有8个内容,在加上.Attribute = "'" & "cgp" & l & "'",False)"""后,运行只显示4个内容了,不知哪里有问题。
With wb.AddCheckGroup("form1","rdg1","请选择【商务服务内容】")
For Each l As String In ls
With .Add("cgp" & l,l, True) '默认勾选
.Attribute = "'" & "cgp" & l & "'",False)"""
End With
Next
End With
With wb.AddInputGroup("form1","ig2","工单费用")
.AddInput("标准服务费","标准服务费","number")
.AddInput("接单服务费","接单服务费","number")
End With
end with
'//***
Case "getCost.htm"
'msgbox("aaa")
Dim fwnr As String '服务内容
Dim fwnrs() As String
Dim Acmoney As Double
For Each ls As String In lst1.Split("|")
fwnr=iif(e.PostValues("cgp" & ls)="on",ls ,"")
If fwnr<>"" Then
fwnrs=fwnr.Split("*")
If acmoney=0 Then
acmoney=CDbl(fwnrs(1))
Else
acmoney=acmoney+CDbl(fwnrs(1))
End If
End If
Next
e.WriteString(acmoney)