Dim ColNames As String() = {"供应商_D","供应商_Tel","门店"} '定义一个数组,保存复制列的名称Dim dr As DataRow = e.DataTable.sqlfind("", "[_Identify] desc") '获得最后一行For Each ColName As String In ColNames e.DataRow(ColName) = dr(ColName) '将最后一行的内容复制到新增行中.Next