Dim Cols1() As String = {"志愿者个人志愿_交通管理组","姓名","身份证号","性别","民族","出生日期","年龄","政治面貌","文化程度","所在学校","录入日期"} '---指定数据来源列（“是否录用”列不复制）
Dim Cols2() As String = {"拟录用组别","姓名","身份证号","性别","民族","出生日期","年龄","政治面貌","文化程度","所在学校","录入日期"} '----指定数据接收列
For Each dr1 As DataRow In DataTables("志愿人员征集表").Select("[是否录用] = '录用'") '---指定来源表的筛选列和筛选内容
Dim dr2 As DataRow = DataTables("各组志愿人员信息表").AddNew() '---复制到指定的表
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
各位老师，上面这段代码我写在了"志愿人员征集表"表事件---增加行---DataRowAdded中，在编写代码的时候测试正常，可是在项目发布后，在"各组志愿人员信息表"中看不到新增的行，请问问题出在哪里？怎么解决？我对FT学的还不熟练，请尽量解答详细点，谢谢！！！
[此贴子已经被作者于2018/9/20 22:02:40编辑过]
加好友 
发短信
Post By：2018/9/20 21:59:00 [只看该作者]
