副本表新增行,在有筛选的情况下,如何定位到新增行?![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:新增行联动1.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2015-9/201591513554815565.png)
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:新增行联动2.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2015-9/201591513554898108.png)
缴费管理afterload代码如下:
Tables("缴费管理_缴费充值").Filter = "学生编号 = '"& Tables("学生管理_学生信息").Current("学生编号") &"'"
Tables("缴费管理_缴费充值").ExtendLastCol = True
Dim Cols1() As String = {"单位","学生编号","姓名"}
Dim Cols2() As String = {"单位","学生编号","姓名"}
Dim r1 As Row = Tables("学生管理_学生信息").Current
Dim r2 As Row = Tables("缴费管理_缴费充值").AddNew()
For i As Integer = 0 To Cols1.Length -1
r2(Cols2(i)) = r1(Cols1(i))
Next
[此贴子已经被作者于2015/9/15 13:56:00编辑过]