主题：一个插入行的例子

窗口可以拷,但项目就不能拷了,呵呵

Tables("表A").Cols.Remove("ID")这句代码会造成datalist的窗口失效,指的是捆定有这句代码的数据表,测试多次了.

要学会变通!难道不会让"你的ID"与"彼ID"不同吗?

  没有用的只要用这个代码隐藏,就会出错,我现在是直接隐藏的.

插入行的代码完善了吗?期待一个完善的插入行方案。狐爸的插入行实例有些缺撼：插入到15行后开始不听话，在不听话的行不能进行再插入了，这样几乎不能进入实用。

将/2改成/100再试试

试过，不行

你的意思是改了后,仍然还是到十五行后就不听话了吗?

Dim i As Integer = CurrentTable.Position
If i < 0 Then
    CurrentTable.AddNew()
ElseIf i = 0 Then
    Dim v As Double = CurrentTable.Current("ID") - 1
    CurrentTable.AddNew()("ID") = v
Else
    Dim v1 As Double = CurrentTable.Current("ID")
    Dim v2 As Double = CurrentTable.Rows(CurrentTable.Position - 1)("ID")
    CurrentTable.AddNew()("ID") = (v1+v2) / 100
End If
CurrentTable.Sort = "ID"

改了后不是在要求的地方插入,而是插入在第一行

顶一下