以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  复制最后一行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135274)
--  作者：tuohai
--  发布时间：2019/5/22 15:07:00
--  复制最后一行
我用的是远程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
--  作者：有点甜
--  发布时间：2019/5/22 15:21:00
--  

 

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

 

[此贴子已经被作者于2019/5/22 15:22:39编辑过]