以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  手机终端，复选框是用onclick,还是用onchange  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=131298)
--  作者：goe12345
--  发布时间：2019/2/22 13:50:00
--  手机终端，复选框是用onclick,还是用onchange
\'这是复选框，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)
--  作者：有点蓝
--  发布时间：2019/2/22 14:26:00
--  
如果是值改变，用onchange 

完整代码放到记事本发上来看看
[此贴子已经被作者于2019/2/22 14:26:27编辑过]