新手求如何实现同一列中的值和上一行相同而不用手动输入

翻遍使用指南

都不知道怎么解决

Dim ta As Table = Tables("xxx")

    If ta.rows.count = 0 Then

        ta.addnew()

    Else

        Dim ColNames As String() = {"列1","列2"}

        Dim dr As Row = ta.Rows(ta.rows.count-1)

        ta.Redraw = False

        dim drr as row = ta.addnew()

        For Each ColName As String in ColNames

            drr(ColName) = dr(ColName)

        Next

        ta.redraw = true

    end if

试下是否可以？

增加一行时执行，此时新增行(DataRow)已经创建，但并未真正增加到DataTable中，通常在此处对新增行进行默认值的设置。

If e.DataTable.DataRows.Count = 0 Then \'如果是一个空表
      Return \'那么返回
End If
Dim dr As DataRow = e.DataTable.DataRows(e.DataTable.DataRows.Count - 1) \'获得最后一行
e.DataRow("产品名称") = dr("产品名称")  \'默认新增行产品名称为上一行产品名称.