各位老师、大咖们：

    1、我在窗口中设一个增加行按钮，代码如下：

Dim t As Table = Tables("制造质量管理")
Dim cr = t.Current
Dim nr As Row = t.AddNew
  If t.Current Is Nothing OrElse t.Current.Index = t.Rows.count-1 Then
      nr.move(cr.Index+1)
  End If
    nr("日期") = Date.Today
    nr("编号") = cr("编号")
    nr("代号") = cr("代号")
    nr("车型") = cr("车型")
    nr("VIN码") = cr("VIN码")
    nr("底盘号") = cr("底盘号")
    nr("发动机号") = cr("发动机号")

现在这个代码在内部数据表中可以在当前行下增加一行并赋值，但在外部数据源上提示：此表不支持移动行，执行后在表的最后一行增加了一行并赋值了，求：给于修改代码，效果是：在外部数据源下在当前行下一行增加一行并赋值。

    2、同一窗口下，设有一个增加多行按钮，增加多行的值在TextBox02中，代码如下：

Dim d As String = e.Form.Controls("TextBox02").Text
Dim t As Table = Tables("制造质量管理")
Dim cr = t.Current
For i As Integer = 1 To d
Dim nr  As  Row = t.AddNew()
  If t.Current Is Nothing OrElse t.Current.Index = t.Rows.count-1 Then
      nr.move(cr.Index+1)
  End If
    nr("日期") =  Date.Today
    nr("检验岗") = User.Roles
    nr("检验员") = User.Name
Next

现在这个代码在内部数据表中未测试，在外部数据源上提示：此表不支持移动行，执行后在表的最后一行增加了多行并赋值了，求：给于修改代码，效果是：在外部数据源下在当前行下一行增加多行并赋值。

   谢谢各位老师指导！

提示的错误和代码无关，参考 http://www.foxtable.com/webhelp/scr/1791.htm

在你的指导下已解决。谢谢甜老师！