这个单击目录树代码：
Dim Filter As String
If e.node.name = "所有订单" Then
filter = ""
Else
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("供应商")
Dim d1 As Date =new Date(year,1,1)
Dim d2 As Date= new Date(Year,Month,1)
Select Case e.Node.Level
Case 0
Return
Case 1
filter="合同名称 = '" & htmc & "'"
Case 2
filter = "进货日期 >= '" & d1 & "' and 进货日期 < '" & d1.AddYears(1) & "' And 合同名称 = '" & htmc & "'"
Case 3
Filter = "进货日期 >= '" & d1 & "' and 进货日期 < '" & d1.AddYears(1) & "'and 进货日期 >= '" & d2 & "'and 进货日期 < '" & d2.AddMonths(1) & "' And 合同名称 = '" & htmc & "'"
Case 4
Filter = "进货日期 >= '" & d1 & "' and 进货日期 < '" & d1.AddYears(1) & "'and 进货日期 >= '" & d2 & "'and 进货日期 < '" & d2.AddMonths(1) & "' And 合同名称 = '" & htmc & "' And 供应商 = '" & gys & "'"
End Select
End If
If filter > "" Then
DataTables("机具订单").RemoveFor(filter)
DataTables("机具订单").AppendLoad(filter)
Tables("机具订单").Filter= Filter
Tables("机具订单").Sort = "进货日期 desc"
Else
DataTables("机具订单").LoadFilter= Filter
DataTables.load("机具订单")
Tables("机具订单").Filter= Filter
Tables("机具订单").Sort = "进货日期 desc"
End If
屏蔽其它 代码发现是下面代码问题。。初始，机具订单，没有数据，有加载 有。
Dim Filter As String
If e.node.name = "所有订单" Then
filter = ""
end if
DataTables("机具订单").LoadFilter= Filter
DataTables.load("机具订单")（这个代码说：机具 订单已加载 。） (DataTables("机具订单").load()这个代码直接死机） (这两种写法，有什么区别 ？
请问，是什么问题？代码错误在哪里 ?
加好友 
发短信
Post By：2016/12/18 10:32:00 [只看该作者]
