我试了一下：机具 订单表，按采购入库那样写，也不行。我改成下面的代码，不提错，但是不对。不能筛选，年月
Dim Filter As String
If e.node.name = "所有订单" Then
filter = ""
Else
Dim d1 As Date
Dim d2 As Date
Dim dr As DataRow = e.Node.DataRow
Dim Year As Integer = e.Node.DataRow("年")
Dim Month As Integer = e.Node.DataRow("月")
Dim htmc As String = e.Node.DataRow("合同名称")
Dim gys As String = e.Node.DataRow("供应商")
Select Case e.Node.Level
Case 0
filter = "false"
Case 1
filter="合同名称 = '"& htmc &"'"
Case 2
filter = " " & dr("进货日期").year & "= " & Year & " And 合同名称 = '" & htmc & "'"
Case 3
Filter = "" & dr("进货日期").year & "= " & Year & " And " & dr("进货日期").month & "=" & month & " And 合同名称 = '"& htmc &"'"
Case 4
Filter = "" & dr("进货日期").year & "= " & Year & " And " & dr("进货日期").month & "=" & month & " And 合同名称 = '"& htmc &"' And 供应商 = '" & gys & "'"
End Select
End If
If filter > "" Then
DataTables("机具订单").RemoveFor(filter)
DataTables("机具订单").AppendLoad(filter)
Tables("机具订单").Filter= Filter
Else
DataTables("机具订单").LoadFilter= Filter
DataTables("机具订单").load()
Tables("机具订单").Filter= Filter
End If
[此贴子已经被作者于2016/12/13 13:00:19编辑过]
加好友 
发短信
Post By：2016/12/13 12:20:00 [只看该作者]
此主题相关图片如下：2.jpg
