主题：语法解法

参考

http://www.foxtable.com/webhelp/scr/0894.htm

http://www.foxtable.com/webhelp/scr/2623.htm

http://www.foxtable.com/webhelp/scr/2416.htm

http://www.foxtable.com/webhelp/scr/2502.htm

1、你写的代码遇到什么问题了？报什么错了？

2、请具体说明问题，或者做个对应的例子上来测试。

比如

Dim nvb1 As WinForm.NavBar = e.Form.Controls("NavBar1")  '定义指定导航栏为nvb1
nvb1.NavPages.Clear  '清除指定的导航栏的页面
Dim Type1 As String = "NavPage"
Dim dt1 As DataTable
Dim cmd As new SQLCommand
cmd.CommandText="select * from {表A} where 控件类型= '" & type1 & "'"
dt1=cmd.ExecuteReader()  '生成临时表
For Each dr1 As DataRow In dt1.DataRows
    'Add(Name页面名称, ButtonText页面按钮标题, ButtonImageFile按钮图标文件)
    '图标文件放大项目文件Images子目录下,就不无需指定路径
    nvb1.NavPages.Add(dr1("页面名称"),dr1("按钮标题"),"")
Next

比如

'----打开"主窗口"后,自动根据【指定数据表】中的数据生成【导航栏】---------------------------
Dim Bar As WinForm.NavBar = e.Form.Controls("NavBar1")  '定义指定导航栏为nvb1
Bar.NavPages.Clear  '清除指定的导航栏的页面
Dim Type1 As String = "NavPage"
Dim dt1 As DataTable
Dim cmd1 As new SQLCommand
cmd1.CommandText="select * from {表A} where 控件类型= '" & type1 & "'"
dt1=cmd1.ExecuteReader()  '生成临时表
For Each dr1 As DataRow In dt1.DataRows
    'Add(Name页面名称, ButtonText页面按钮标题, ButtonImageFile按钮图标文件)
    '图标文件放大项目文件Images子目录下,就不无需指定路径
    Bar.NavPages.Add(dr1("页面名称"),dr1("按钮标题"),dr1("图标文件名") & ".ico")
Next
Bar.SelectedIndex = 0  '选中导航栏中第一个导航栏页面
'----给每个导航栏页面添加一个目录树-------------------------------------------------------
Dim strs As String() ={"TreeView1","TreeView2","TreeView3","TreeView4","TreeView5"} '数组
For i As Integer = 0 To strs.length-1
    Dim tv As WinForm.TreeView = e.Form.CreateControl(strs(i),ControlTypeEnum.TreeView)
    tv.SetBounds(-1,-1,210,600)  '设置控件的位置和大小
    Bar.NavPages(i).AddControl(tv)
Next

Dim dst As Table = Tables("窗口1_Table3")
Select Case e.sender.text
    Case "全部"
        dst.Filter = ""
    Case "近3笔"
        msgbox(123)
        Dim filter As String = ""
        dst.filter = ""
        dst.Sort = "日期 desc"
        For i As Integer = 0 To dst.Rows.count-1
            filter = dst.Rows(i)("_Identify") & ","
            If i >= 2 Then
                Exit For
            End If
        Next
        dst.filter = "_Identify in (" & filter.trim(",") & ")"
    Case "近一月"
        dst.Filter = "[日期] >= '" & today.AddMonths(-1) & "'"
    Case "近三月"
        dst.Filter = "[日期] >= '" & today.AddMonths(-3) & "'"
    Case "近一年"
        dst.Filter = "[日期] >= '" & today.AddYears(-1) & "'"
    Case "近三年"
        dst.Filter = "[日期] >= '" & today.AddYears(-3) & "'"
End Select

       msgbox(123)
        Dim filter As String = ""

设置表格筛选、排序
        dst.filter = ""
        dst.Sort = "日期 desc"

循环每一行，取前两行的值
        For i As Integer = 0 To dst.Rows.count-1
            filter = dst.Rows(i)("_Identify") & ","

如果是第三行了，就退出循环
            If i >= 2 Then
                Exit For
            End If
        Next

设置筛选
        dst.filter = "_Identify in (" & filter.trim(",") & ")"

建议你直接写sql语句吧

http://www.foxtable.com/webhelp/scr/0695.htm

1、如果最基本的分组统计、交叉统计，都不支持的话，那你就只能用sql语句了。

2、一般，只会是sql分组统计、sql交叉统计无效吧？把数据加载到foxtable里面以后再分组统计等，不会有错的。

参考代码

Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
Dim dt As DataTable = DataTables("LFA1")
trv.nodes.Clear
Dim nd As WinForm.TreeNode = trv.nodes.Add("按【类型】划分")
For Each lx As String In dt.GetValues("ktokk")
    nd.nodes.Add(lx)
Next
nd = trv.nodes.Add("按【名称】划分")
For Each lx As String In dt.GetValues("name1")
    nd.nodes.Add(lx)
Next