主题：[求助]根据附表筛选子表数据，怎么筛选

current时间件里用下面2种方式，获得的结果不一样，谁帮我解决一下是哪个正确还是都不对

方式一、
If DataTables("crm_customer").DataRows.Count = 0 Then '如果baidu_client表没有数据
    DataTables("crm_customer_track").LoadFilter = "track_id Is Null" '不加载baidu_records
Else
    Dim ids As String
    For Each dr As DataRow In DataTables("crm_customer").DataRows
        ids = ids & "," & dr("customer_id")
    Next
    ids= ids.Trim(",")
    DataTables("crm_customer_track").LoadFilter = "customer_id In (" & ids & ")"
End If
DataTables("crm_customer_track").Load()

Dim t_genjin As Table = Tables("窗口客户_tbl_Genjin")
With Tables("窗口客户_tblKehu")
    If .Current Is Nothing Then
        t_genjin.filter="false"     
    Else
        t_genjin.Filter = "customer_id = " & .Current("customer_id")    
     End If
End With

二、sql TABLE方式
Dim aa2 As String="Select* from crm_customer_track where customer_id= " & Tables("窗口客户_tblKehu").Current("customer_id")
Tables("窗口客户_tblCeshi").Fill(aa2,"c2",True)

http://www.foxtable.com/help/topics/2228.htm  参考帮助,你第一个方式就没错.

一、谢谢，找到问题了，2者结果一致，我的第一个方式可以吧数据调出来

但是在筛选的时候吧数据晒选掉了一部分

我这个地方错在哪里

Dim t_genjin As Table = Tables("窗口客户_tbl_Genjin")
With Tables("窗口客户_tblKehu")
    If .Current Is Nothing Then
        t_genjin.filter="false"     
    Else
        t_genjin.Filter = "customer_id = " & .Current("customer_id")    
     End If
End With

 

另外方式一和二哪个占用资源少，一方式编码有点麻烦比较多

bin，帮我看一下到底在这个筛选错在哪里

如果ID是字符串列,需要加单引号

是整型

 

这个地方提取出来子表是10条

If DataTables("crm_customer").DataRows.Count = 0 Then '如果baidu_client表没有数据
    DataTables("crm_customer_track").LoadFilter = "track_id Is Null" '不加载baidu_records
Else
    Dim ids As String
    For Each dr As DataRow In DataTables("crm_customer").DataRows
        ids = ids & "," & dr("customer_id")
    Next
    ids= ids.Trim(",")
    DataTables("crm_customer_track").LoadFilter = "customer_id In (" & ids & ")"
End If
DataTables("crm_customer_track").Load()

 

这个地方一筛选就变成2条
Dim t_genjin As Table = Tables("窗口客户_tbl_Genjin")
With Tables("窗口客户_tblKehu")
    If .Current Is Nothing Then
        t_genjin.filter="false"     
    Else
        t_genjin.Filter = "customer_id = " & .Current("customer_id")    
     End If
End With

你 下面的是筛选当前行的, 上面的是筛选所有父表行的, 能一样吗?

就是，第一段代码是筛选出父表所有行的子行，第二段代码是筛选出父表当前行的子行，肯定前者多得多嘛。

我选的父表就一行做测试。就是父表只有一条记录的情况下。当前行就是所有的父表

那就不会有问题,你是否没有把子表所有数据加载出来? 这样的话你筛选也不会全啊.