主题：请高手指教

以下代码：

    Dim cmd As New SQLCommand   '定义一个新的SQLCommand,这个类用于执行SQL命令.
    Dim dt As DataTable
    cmd.CommandText = "Select  DISTINCT " & cmb2.Value & " from {"& i &"}  Where " & cmb2.Value & " Is Not Null"  '需要排除重复的行,可以在字段列表前面加上关键词DISTINCT
    dt = cmd.ExecuteReader() 'ExecuteReader生成一个DataTable(临时表),只有在代码执行过程中才存在,也不会显示在界面中,所以用户感觉不到这个DataTable的存在.
    For Each dr As DataRow In dt.datarows
        cmb1.Items.Add(dr(cmb2.Value )) 'Items字符集合,表示所有的自定义列表项目.增加一个列表项目
    Next

改为一行就行：

   cmb1.ComboList = DataTables("表A").GetComboListString(cmb2.Value,Tables("表A").Filter)

1、你用的似乎是筛选，不是加载，数据量大的时候，应该用动态加载，

2、foxtable适合处理海量数据，只要设计得当，不管数据量多大，性能一样很好。