【求助帖】求助关于如何复制查询到的行的内容到新表 Post By:2019/9/16 21:42:00 [显示全部帖子]
我有一个数据库,从数据库中查询到相关内容,我想复制到本地的表中,如何编写代码。
请问写代码的思路是根据以下代码吗:
If e.DataTable.DataRows.Count = 0
Then
'如果是一个空表
Return
'那么返回 End
If Dim
ColNames As String() = {"日期","客户","雇员"} '定义一个数组,保存复制列的名称 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