主题：[求助]表总是能自动增加最下面一行，怎么弄？

设置Afteredit事件：

If e.Table.Name ="订单.订单明细" Then

     if e.Row.Isnull(e.col.name) = False then

         if e.row.Index = e.Table.Rows.Count -1 Then

              Dim dr As DataRow = DataTables("订单明细").AddNew

               dr("订单编号") = Tables("订单").Current("订单编号")

         End if

     End if

End if

不过一般不需要这样做，因为表属性有个“自动增加行”的属性，将其设置为True，在最后一行的最后一列按回车，就会自动增加一行的。