以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助,帮忙看一下代码。A表中查找符合条件的数据填入到B表。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=173311)

--  作者:夜点蚊香
--  发布时间:2021/11/23 20:51:00
--  求助,帮忙看一下代码。A表中查找符合条件的数据填入到B表。
在(课程缴费表里挑选次数限制为 否 的数据 写入到缴费提醒表。

Dim tx As DataRow = DataTables("课程缴费表").Find("次数限制 = \'否\'")
If tx IsNot Nothing Then
    Dim tR1 As DataRow = DataTables("缴费提醒").Find("缴费编号 = \'" & tx("缴费编号") & "\'")
    Dim kc As Row \'定义行
    If tr1 Is Nothing Then
        kc = Tables("缴费提醒").AddNew()
        kc("缴费编号") = tx("缴费编号")
    End If
End If

--  作者:有点蓝
--  发布时间:2021/11/23 21:02:00
--  
代码没有问题,有啥问题?
--  作者:夜点蚊香
--  发布时间:2021/11/23 21:15:00
--  
符合条件的数据有很多,缴费提醒表只有一条数据被写入。
--  作者:有点蓝
--  发布时间:2021/11/23 21:20:00
--  
用select:http://www.foxtable.com/webhelp/topics/0400.htm


--  作者:夜点蚊香
--  发布时间:2021/11/23 21:33:00
--  
功能搞定了,谢谢。还有个问题,这种遍历表单获取数据的情况,如何提高查找效率。如果数据多了,上万条或者几十万条。怎么处理会更快一些。
--  作者:有点蓝
--  发布时间:2021/11/23 21:50:00
--  
学学使用sql了http://www.foxtable.com/webhelp/topics/0687.htm