此主题相关图片如下：自动生成记录.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编辑过]
加好友 
发短信
Post By：2015/8/20 18:25:00 [只看该作者]
