以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]复制  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185429)
--  作者：江南小城
--  发布时间：2023/2/22 14:27:00
--  [求助]复制
 老师好，下面代码怎样修正

图片点击可在新窗口打开查看此主题相关图片如下：image 1.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2023/2/22 14:29:00
--  
看代码颜色就很明显了，表名少个双引号
--  作者：江南小城
--  发布时间：2023/2/22 14:39:00
--  
看到了，谢谢老师。
--  作者：江南小城
--  发布时间：2023/2/22 15:24:00
--  
 老师，我想把字段（账号8628）这几个字直接填充到来源列中。


If MainTable.Name = "支付宝收入支出总账单" Then
    MainTable.StopRedraw
    MainTable.DataTable.DeleteFor("")
    For Each dr As DataRow In DataTables("支付宝8628").Select("交易时间 Is not null")
        Dim nr As Row = MainTable.AddNew
        nr("交易时间") = dr("交易时间")
       
       \' nr("来源") = dr("来源")
      
    Next
--  作者：有点蓝
--  发布时间：2023/2/22 15:31:00
--  
nr("来源") = "账号8628"
--  作者：江南小城
--  发布时间：2023/2/22 16:31:00
--  
老师

图片点击可在新窗口打开查看此主题相关图片如下：image 1.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2023/2/22 16:33:00
--  
去掉dr