以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  有没有增加下载记录的语句  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=170121)
--  作者：9EQ98
--  发布时间：2021/7/13 13:13:00
--  有没有增加下载记录的语句
使用 DATATABLES().SQLFIND 查找到一条记录
如何追加下载到 前台的 TABLES 表中

Dim 条件 As String = "Code_Num = \'" & e.Sender.Value & "\'"
Dim dr As DataRow = DataTables("Shop_List").SQLFind(条件)
If dr IsNot Nothing Then \'如果找到记录
   dr.Load
    OUTPUT.SHOW("找到记录，并已追加下载")
Else
    OUTPUT.SHOW("没有找到记录")
End If
--  作者：cd_tdh
--  发布时间：2021/7/13 13:33:00
--  
AppendLoad
--  作者：有点蓝
--  发布时间：2021/7/13 13:36:00
--  
追加使用appendload：http://www.foxtable.com/webhelp/topics/2276.htm

Dim 条件 As String = "Code_Num = \'" & e.Sender.Value & "\'"
Dim dr As DataRow = DataTables("Shop_List").Find(条件)
If dr IsNot Nothing Then \'如果找到记录
   dr.load
Else
    DataTables("Shop_List").appendload(条件)
End If