以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  多个Attribute 选项,合并的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192087)

--  作者:ycs5801
--  发布时间:2024/5/28 15:05:00
--  多个Attribute 选项,合并的问题
 Dim ipg As ExWeUI.ExInputGroup = ExWeUI.WebUI.AddInputGroup("", "ipg" & dr("菜品名称"), "") 
                With ipg.AddSpinner("sp_" & dr("菜品名称"), "数量") 
                    .max = 20 
                    .min = 0
\'                    .Attribute = "style=\'color:red;font-size:10px\'"
                    .width = 65 \'整体控件的宽度(含加减按钮)  
                    .Attribute = "style=""width:30px;color:red;font-size:15px""" \'数值框的宽度,不含加减按钮,加减按钮每个宽度30  
                    .Attribute = "on change=""submitAjaxFileds(\'接收页面.htm\',\'\',\'订单编号控件ID\',\'加减控件ID\',false);""" 

                End With 

这两个如果想合并到一起怎么写?目前这样无法使用

--  作者:有点蓝
--  发布时间:2024/5/28 15:17:00
--  
图片点击可在新窗口打开查看
                  

 .Attribute = "style=""width:30px;color:red;font-size:15px"" onchange=""submitAjaxFileds(\'接收页面.htm\',\'\',\'订单编号控件ID\',\'加减控件ID\',false);"""

--  作者:ycs5801
--  发布时间:2024/5/28 15:30:00
--  
 .Attribute = "style=""width:30px;color:red;font-size:15px"" on change=""submitAjaxFileds(\'接收页面.htm\',\'\',\'订单编号控件ID\',\'加减控件ID\',false);"""
这里边这些引号都是怎么对应使用的?

--  作者:ycs5801
--  发布时间:2024/5/28 16:11:00
--  
With ExWeUI.WebUI.AddListGroup("page1", "lst01", 1)
        
        wb.AppendHTML("<style>.exui-list-other{width: 100%;}</style>") \'为了显示内容的横向底色可以满屏幕(1)共5步,在js文件中还有一个函数
        For Each dr As DataRow In drs
            
            Dim txt As String = "<p>发布日期:" & dr("发布日期") & "<br/>"
           
            With .AddList(dr("菜品名称"), "./Attachments/" & dr("菜品图片") , "renamecx_name.htm?name=" & dr("_Identify"))
                .TextStyle = "color:black;font-size:17px;text-align: center;" \'字体颜色,字体大小
                .ImageWidth = 100 \'图片大小
                With .LeftFooter
                    .AddFoot(dr("菜品价格") & "元" & dr("单位")).Attribute = "style=\'color:red;font-size:13px\'"
                End With
                \'插入传送数据
               
                
                Dim ipg As ExWeUI.ExInputGroup = ExWeUI.WebUI.AddInputGroup("", "ipg" & dr("菜品名称"), "") 
                With ipg.AddSpinner("sp_" & dr("菜品名称"), "数量") 
                    .max = 20 
                    .min = 0
                    \'                    .Attribute = "style=\'color:red;font-size:10px\'"
                    .width = 65 \'整体控件的宽度(含加减按钮)  
                  
                    .Attribute = "style=""width:30px;color:red;font-size:15px"" on change=""submitAjaxFileds(\'receive.htm\',\'\',\'订单编号控件ID\',\'加减控件ID\',false);"""
                    
                End With 
                \'                .RightFooter.AddFoot("").Attribute = ipg.BuildHtml
                .RightFooter.AddFoot(ipg.BuildHtml)                
            End With                               
        Next

这个地方我如果我还想传送一些变量该怎么传?比如想传送一下openid,我想手动增加,比如: .AddHiddenValue("订单编号", openid),可以吗?应该怎么增加?

--  作者:有点蓝
--  发布时间:2024/5/28 16:21:00
--  
 .Attribute = "style=""width:30px;color:red;font-size:15px"" onchange=""submitAjaxFileds(\'接收页面.htm\',\'\',\'订单编号控件ID\',\'加减控件ID\',\'订单编号\',false);"""
[此贴子已经被作者于2024/5/28 16:21:30编辑过]

--  作者:ycs5801
--  发布时间:2024/5/28 16:40:00
--  
  wb.AddForm("","form1","test.htm")
            With wb.AddInputGroup("form1","ipg1",
"
订单编辑")
                .AddHiddenValue(
"
订单编号","123")
                .AddInput(
"
客户","客户","text")
                .AddInput(
"
产品","产品","text")
                .AddInput(
"
数量","数量","number")
                .AddInput(
"
单价","单价","number").Step= "0.01"
            End With

我这里没有addform,这时addhiddenvalue应该怎么添加?

--  作者:有点蓝
--  发布时间:2024/5/28 17:04:00
--  
必须添加到表单里,才能使用submitAjaxFileds
--  作者:ycs5801
--  发布时间:2024/5/28 18:54:00
--  
那我这种情况该怎么处理?既需要传输表单中的值,又需要传输一些变量值
--  作者:有点蓝
--  发布时间:2024/5/28 20:38:00
--  
 .Attribute = "style=""width:30px;color:red;font-size:15px"" onchange=""submitAjaxFileds(\'接收页面.htm?openid=" & openid & "\',\'\',\'订单编号控件ID\',\'加减控件ID\',\'订单编号\',false);"""
--  作者:ycs5801
--  发布时间:2024/5/28 23:09:00
--  
我自己想了一个方法,看看哪里不对:
 .Attribute = "style=""width:30px;color:red;font-size:10px"" on change=""sendJsonObject(\'" & openid & "\',\'" & dr("菜品名称") & "\')"""

js文件:
function sendJsonObject(openid,cpmc){ //向后台发送数据
    var obj=new Object();
    obj.openid = openid;
    
    obj.cpmc=cpmc;
    var cpsl = document.getElementById("sp_"+cpmc); //菜品数量
    console.log(cpsl);
     obj.cpsl=cpsl;
    var result = sendAjaxJSON(obj,"receive.htm","",false);
    
}

receive函数:
Dim e As RequestEventArgs = args(0)
Dim wb As New weui

Dim sb As New StringBuilder
Dim jo As JObject = JObject.Parse(e.PlainText) \'解析JSON数据
Dim openid As String = jo("openid").ToString()
Dim cpmc As String = jo("cpmc").ToString()
messagebox.Show(jo("cpsl").ToString())
Dim cpsl As String = jo("cpsl").ToString()

e.WriteString(sb.ToString())

现在黄色部分这里显示出一个花括号,应该是这句  var cpsl = document.getElementById("sp_"+cpmc); //菜品数量 没有提取到表单中的数量。