以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  手动同步表代码错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186733)

--  作者:lianghanyu
--  发布时间:2023/5/24 21:28:00
--  手动同步表代码错误
我有一个项目总表,里边有一列是产品图片列,是保存了FTP上图片路径的。

 现在,我新增加了一个信息记录表格。我想把产品图片列引用过来 ,

 在信息记录表,我用命令窗口执行以下代码,但是提示出错,请指教。

Tables("信息记录").StopRedraw
With Tables("信息记录")
    For i As Integer = 0 To 7506
        .position = i
        Dim pr As String = Tables("信息记录").Rows(i)("项目编号")
        
        Dim dr As DataRow = DataTables("项目总表").SQLFind("项目编号 = \'" & pr & "\'")
        If dr Is Nothing Then
            Tables("信息记录").Rows(i)("产品图片") = dr("产品图片")
            
        End If
        
    Next
End With
Tables("信息记录").ResumeRedraw


图片点击可在新窗口打开查看此主题相关图片如下:snipaste_2023-05-24_21-25-38.jpg
图片点击可在新窗口打开查看



--  作者:有点蓝
--  发布时间:2023/5/25 8:45:00
--  
If dr Is Nothing Then
改为
If dr Isnot Nothing Then