专家坐堂-取多个列名内容什么取Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  取多个列名内容什么取  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=178298)

--  作者：qazlinle6
--  发布时间：2022/6/28 18:35:00
--  取多个列名内容什么取
& dr("编号") & "\')""

function tongji(id){
var result = sendAjaxText("","已盘弹窗.htm?id=" + id,"",false);
document.getElementById("p1").innerHTML=result;
var eles = document.getElementsByClassName("weui_mask_transition");
for (var i = 0; i < eles.length; i++) {
eles[i].addEventListener("transitionend", hideActionMask);
}
eles = document.querySelectorAll(".fox_actionsheet,.weui_dialog_ft");
for (var i = 0; i < eles.length; i++) {
eles[i].onclick = hide;
}
show(\'s1\');

取多个列名内容什么取

--  作者：有点蓝
--  发布时间：2022/6/28 20:09:00
--
多个前端控件的内容？

var s = document.getElementById("控件1").value +"|" + document.getElementById("控件2").value
var result = sendAjaxText(s,"已盘弹窗.htm?id=" + id,"",false);

--  作者：qazlinle6
--  发布时间：2022/6/29 9:48:00
--
店名：周六福(1)品名：5G黄金

取值：周六福(1)
5G黄金

按名称取值什么取

--  作者：有点蓝
--  发布时间：2022/6/29 9:58:00
--

使用json：http://www.foxtable.com/mobilehelp/topics/0107.htm

var obj = {
"店名" :document.getElementById("控件1").value,
"品名":document.getElementById("控件2").value
}
var result = sendAjaxJSON(obj ,"已盘弹窗.htm?id=" + id,"",false);

服务端
Dim jo As JObject = JObject.Parse(e.PlainText)
msgbox(jo("店名").tostring)
msgbox(jo("品名").tostring)

--  作者：qazlinle6
--  发布时间：2022/6/29 10:01:00
--
我只要分解列里面的词，不是在js上分解

Dim s1 As String = s
Dim Parts() As String = s1.Split(".")
Dim s3 As String = Parts(1) \'取右侧三个字符

像这个

--  作者：有点蓝
--  发布时间：2022/6/29 10:06:00
--
合并数据的时候多加一个分隔符，否则无法拆分：店名：周六福(1)，品名：5G黄金

先按逗号拆分，再按冒号拆分

--  作者：qazlinle6
--  发布时间：2022/6/29 10:17:00
--
店名：周六福(1)，品名：5G黄金

Dim s店名 As String =周六福(1)
Dim s品名 As String =5G黄金

不可以指定得值吗

--  作者：有点蓝
--  发布时间：2022/6/29 10:20:00
--
没看懂什么意思，字符串里提取内容只能一个个拆分

--  作者：qazlinle6
--  发布时间：2022/6/29 10:51:00
--

With wb.AddTable("", "Table1")

表格什么放到AddDialog里

With wb.AddDialog("", "s1", "" & l000 & "", " " & lin & " ")
.AddButton("btnOK1", "关闭").Attribute = "onclick = hide"

End With

--  作者：有点蓝
--  发布时间：2022/6/29 11:07:00
--
With wb.AddDialog("","dlg1", "提示",wb.buildhtml("Table1"))