多个Attribute 选项，合并的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多个Attribute 选项，合并的问题

共有1820人关注过本帖树形打印复制链接主题：多个Attribute 选项，合并的问题

ycs5801

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1065 积分：7592 威望：0 精华：0 注册：2009/6/24 9:44:00

多个Attribute 选项，合并的问题 发帖心情

Post By：2024/5/28 15:05:00 [只看该作者]

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

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

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/5/28 15:17:00 [只看该作者]

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

ycs5801

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1065 积分：7592 威望：0 精华：0 注册：2009/6/24 9:44:00

Post By：2024/5/28 15:30:00 [只看该作者]

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

这里边这些引号都是怎么对应使用的？

ycs5801

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1065 积分：7592 威望：0 精华：0 注册：2009/6/24 9:44:00

Post By：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

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

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1065 积分：7592 威望：0 精华：0 注册：2009/6/24 9:44:00

Post By：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应该怎么添加？

有点蓝

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/5/28 17:04:00 [只看该作者]

必须添加到表单里，才能使用submitAjaxFileds

ycs5801

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1065 积分：7592 威望：0 精华：0 注册：2009/6/24 9:44:00

Post By：2024/5/28 18:54:00 [只看该作者]

那我这种情况该怎么处理？既需要传输表单中的值，又需要传输一些变量值

有点蓝

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/5/28 20:38:00 [只看该作者]

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

ycs5801

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1065 积分：7592 威望：0 精华：0 注册：2009/6/24 9:44:00

Post By：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); //菜品数量没有提取到表单中的数量。

下一主题 >> << 上一主题

总数 11 1 2 下一页

主题：多个Attribute 选项，合并的问题