以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  【求助帖】求助关于如何复制查询到的行的内容到新表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140881)
--  作者：疯狂的海子
--  发布时间：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
--  作者：有点蓝
--  发布时间：2019/9/16 21:51:00
--  
参考：http://www.foxtable.com/webhelp/topics/1533.htm