我用的是远程Sql server 数据库,现在我要复制数据库中最后一行到新建行中,表不加载数据,代码如下,复制不成功。请老师指教。谢谢!!'复制最后一行数据
If e.DataTable.DataRows.Count = 0 Then '如果是一个空表
Return '那么返回
End If
Dim ColNames As String() = {"供应商_D","供应商_Tel","门店"} '定义一个数组,保存复制列的名称
Dim dr As DataRow = e.DataTable.DataRows(e.DataTable.DataRows.Count - 1) '获得最后一行
For Each ColName As String In ColNames
e.DataRow(ColName) = dr(ColName) '将最后一行的内容复制到新增行中.
Next