以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  外部数据库数据读取  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120658)
--  作者：sky2015
--  发布时间：2018/6/21 12:24:00
--  外部数据库数据读取
现有外部数据源2个，a和b

a中有一个表1，字段1、2、3、4
现在想实现从b数据库的表2中读取需要的4行记录，把每行记录的字段2值分别 赋值 给a数据库的表1的字段1、2、3、4

如何通过按钮命令实现
--  作者：有点甜
--  发布时间：2018/6/21 12:32:00
--  

1、表2添加到foxtable了没有？

 

2、参考代码

 

Dim t = Tables("表2")
For i As Integer = 0 To t.rows.count-1 Step 4
    Dim r1 = t.rows(i)
    Dim r2 = t.rows(i+1)
    Dim r3 = t.rows(i+2)
    Dim r4 = t.rows(i+3)
   
    msgbox(r1("第一列"))
Next