以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171693)
--  作者：18107532666
--  发布时间：2021/9/6 8:10:00
--  [求助]
我想把查询表中查到的好多行结果 都录到查询结果表中  现在只能录到一行
Dim tbl As Table = Tables("劳务队信息查询_Table1")
If tbl.Current IsNot Nothing Then
    Tables("查询结果").Current("第一列") = tbl.Current("第一列")
    Tables("查询结果").Current("第二列") = tbl.Current("第二列")
    Tables("查询结果").Current("第三列") = tbl.Current("第三列")
    Tables("查询结果").Current("第四列") = tbl.Current("第四列")
    Tables("查询结果").Current("第五列") = tbl.Current("第五列")
    Tables("查询结果").Current("第六列") = tbl.Current("第六列")
    Tables("查询结果").Current("第七列") = tbl.Current("第七列")
    Tables("查询结果").Current("第八列") = tbl.Current("第八列")
    Tables("查询结果").Current("第九列") = tbl.Current("第九列")
    Tables("查询结果").Current("第十列") = tbl.Current("第十列")
    Tables("查询结果").Current("等级") = tbl.Current("等级")
    Tables("查询结果").Current("年度") = tbl.Current("年度")
End If
Forms("劳务队信息查询").Close()
--  作者：有点蓝
--  发布时间：2021/9/6 8:39:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=50080