- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]根据一串字符串，生成多条记录，并从主表复制信息到记录？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73531)
-- 发布时间：2015/8/20 18:25:00
-- [求助]根据一串字符串，生成多条记录，并从主表复制信息到记录？
此主题相关图片如下：自动生成记录.jpg
根据文本框里每个
学生的姓名，每个学生
都在“龙源宝藏”表生成一条记录，自动根据学生姓名
从“学生信息”表内提取“单位，姓名，编号”字段信息到新记录里。求助这个按钮代码如何写？
自己写了代码，有问题
Dim bxr As WinForm.TextBox = e.Form.Controls("被选人")
Dim Multi As String = bxr.value
Dim vls() As String
vls = Multi.split(",")
For Each vl As String In vls
Dim dr As DataRow In DataTables("学生信息").Find("姓名 = \'" & vl & "\'")
If dr IsNot Nothing Then
Dim r As Row = Tables("龙源宝藏").AddNew
r("姓名") = dr("姓名")
r("单位") = dr("单位")
r("学生编号") = dr("学生编号")
r("日期") = Date.Today
End If
Next
[此贴子已经被作者于2015/8/20 18:35:45编辑过]
-- 发布时间：2015/8/20 19:05:00
--
问题已解决。