- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 批量记录值得问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=171091)
-- 发布时间：2021/8/17 19:43:00
-- 批量记录值得问题
现在我已经依据A表生成了下图的样子，怎么实现点击按钮，让对应的数据（是或者否）填充到表B的姓名、和停权的文本列？ 选true的对应填充“是”。false的对应填充“否”
此主题相关图片如下：微信截图_20210817193807.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:批量存储值.foxdb |
-- 发布时间：2021/8/17 20:37:00
--
1、没有定义表单：http://www.foxtable.com/mobilehelp/topics/0007.htm
-- 发布时间：2021/8/18 13:44:00
--
【接收数据参考】的案例中，是一组数据全部填充到表格的一行，
我需要达成的效果是，每一个数据（姓名、停权）单独生成一行，也就是上面图片中有6个数据，那就是在表B中生成6行，每一行记录一个数据（姓名、停权）。
现在卡在这里不知道怎么进行下去了，请蓝老师抽空点拨一下我？感谢您
Dim wb As New weui
Select Case e.Path
Case "test.htm"
wb.AddForm("","form1","accept.htm")
Dim dt As List(of DataRow) = DataTables("表A").SQLSelect("",8," 序号 desc ") \'-------------------文章排序选前30
For i As Integer = 0 To dt.Count - 1 \'开始从第一个新闻列表
With wb.AddInputGroup("form1","ipg1" & i & "","")
\' .AddInput("姓名","" & dt(i)("姓名") & "","Text") \'前一个"姓名"是ID,后一个"姓名"是标题
.AddSwitch("姓名" & i & "","" & dt(i)("姓名") & "").Value = "True"
End With
Dim nms() As String = {"" & dt(i)("姓名") & ""} \'不能为空的列名数组
\' MessageBox.Show("" & dt(i)("姓名") & "")
Dim dr As DataRow = DataTables("表B").AddNew()
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) Then
dr("姓名") = "" & dt(i)("姓名") & ""
dr("停权") =e.PostValues(nm)
End If
Next
dr.save()
Next
With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") \'生成成功提示页
.AddButton("btn1","继续增加","test.htm")
End With
e.WriteString(wb.Build)
End Select
[此贴子已经被作者于2021/8/18 13:47:23编辑过]
-- 发布时间：2021/8/18 13:49:00
--
调试看接收到什么数据
For Each key As String In e.PostValues.Keys
msgbox(key & "," e.PostValues(key))
msgbox(key & "," e.PostValues(key))
Next
-- 发布时间：2021/8/18 15:07:00
--
蓝老师msgbox出现的是一个数据
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:批量存储值1.foxdb |
-- 发布时间：2021/8/18 15:16:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:批量存储值1.zip |