- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]副本表新增行，在有筛选的情况下，如何定位到新增行？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74613)
-- 发布时间：2015/9/15 13:47:00
-- [求助]副本表新增行，在有筛选的情况下，如何定位到新增行？
副本表新增行，在有筛选的情况下，如何定位到新增行？
此主题相关图片如下：新增行联动1.png
此主题相关图片如下：新增行联动2.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编辑过]
-- 发布时间：2015/9/15 15:19:00
--
Tables("缴费管理_缴费充值").potion=r2.index-1
-- 发布时间：2015/9/15 16:16:00
--
此主题相关图片如下：新增行联动3.png
-- 发布时间：2015/9/15 16:30:00
--
Position
-- 发布时间：2015/9/15 16:37:00
--
Tables("缴费管理_缴费充值").position=r2.index-1
msgbox(r2.index-1)
改成这个测试，不行
-- 发布时间：2015/9/15 16:38:00
--
改成这样，有的记录行，有的记录不行，原因不明。
Tables("缴费管理_缴费充值").Filter = "学生编号 = \'"& Tables("学生管理_学生信息").Current("学生编号") &"\'"
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
Dim max As Integer = Tables("缴费管理_缴费充值").Compute("max(_Identify)")
Dim wz As Integer = Tables("缴费管理_缴费充值").findrow("_Identify = "& max)
If max >=0 Then
Tables("缴费管理_缴费充值").Position = max
End If
-- 发布时间：2015/9/15 17:31:00
--
Tables("缴费管理_缴费充值").Position = Tables("缴费管理_缴费充值").Rows.Count- 1
-- 发布时间：2015/9/16 8:43:00
--
 Hyphen |
Tables("缴费管理_缴费充值").Position = Tables("缴费管理_缴费充值").Rows.Count- 1
这样仍然不行，是否可以加qq帮忙远程看一下：6824498
[此贴子已经被作者于2015/9/16 8:44:03编辑过]
-- 发布时间：2015/9/16 8:46:00
--
因为新增行的充值金额字段为空值，所以想直接查找到此行，写代码如下，但仍然失败
\'
Dim wz As Integer = Tables("缴费管理_缴费充值").findrow("充值金额 = null")
If wz >=0 Then
Tables("缴费管理_缴费充值").Position = wz
End If
-- 发布时间：2015/9/16 9:08:00
--
你执行这句以后，就肯定是定位到新增行了啊。不幸，做例子发上来。
Dim r2 As Row = Tables("缴费管理_缴费充值").AddNew()