Dim strs() As String = {"清单指引","合同清单"}
For i As Integer = 0 To strs.Length-1
If Forms(strs(i)).opened Then
Dim n As Integer = Tables(strs(i)).Position
Dim tbl As Table = Tables("添加清单_Table3")
If tbl.Current IsNot Nothing Then
Dim dr As Row = Tables(strs(i)).addNew()
dr("子目编码") =tbl.Current("子目编码")
dr("项目特征描述") =tbl.Current("项目特征描述")
dr.Move(n + 1)
End If
Return
End If
Next
上面的代码执行时，我的TABLE是排序的。提示说：在排序状态下不能：移动行。
请问，怎么能在排序状态下，我在当前行新增一行。位置在当前行的后面。
还有个问题：
上面的代码，是不是可以直接用INTERNEW，插入行。就行了？
[此贴子已经被作者于2015/11/12 20:33:16编辑过]
加好友 
发短信
Post By：2015/11/12 20:27:00 [显示全部帖子]
