主题：[讨论]筛选

 直接用大于等于也可以比较，如

 

Tables("表A").Filter = "交易时间 > '20151031' and 交易时间 < '20151102'"

报什么错，上传实例

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

全部直接写表名。

 

Tables("表A.表B")

If e.Node.Name = "显示所有行" Then
    Tables("表A.表B").Filter = ""
Else
    Dim FilterCol() As String = e.Form.Controls("电子信息1").Value.Split(",")
    Dim TmpStr() As String = e.Node.FullPath.Split("\")
    Dim FilterStr As String
    For i As Integer = 0 To e.Node.Level
        FilterStr = FilterStr & "[" & FilterCol(i) & "] = '" & TmpStr(i) & "' And "
    Next
    FilterStr = FilterStr.SubString(0,FilterStr.Length - 5)
    Tables("表A.表B").Filter = FilterStr
End If
-------------------------------------------------------

With Tables("表A.表B")
    .EnterKeyActionDown = True
    .AutoSizeCols
    Dim dz_FilterCol As WinForm.CheckedComboBox = e.Form.Controls("电子信息1")
    For Each C As Col In .Cols
        dz_FilterCol.Items.Add(C.Name)
    Next
    dz_FilterCol.Value = "日期,名称"
End With

汗，什么不行啊。

关联表没有数据啊。你要直接用主表才有数据啊。

format(Tables("销售.销售明细").Compute("AVG(单价)"), "0.00")