主题：几个简单问题

代码没有问题，你重置列或者重新填写时间即可得到结果。

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

MouseDown事件

Dim tr As WinForm.TreeView
Dim td As WinForm.TreeNode

Select  Case e.sender.Nodes.Count
       Case 0
          With e.Sender
           .ShowContextStrip(e.X, e.Y, e.Form.Strips("importpreplot"))
          End With
       Case 1

       Case 2
End Select

你没有对应的快捷菜单，就会报这个错。

提示这个，就是你的快捷菜单的名字没有写对。

上传实例测试。

不理解你表达的意思。

你点击哪一个节点，就自动填充哪一个节点的内容，有什么问题？上传实例说明

这样写

Tables("Timing").Filter ="TimingStarttime >= #" & e.Sender.Value & "# and TimingStarttime < #" & e.Sender.Value.AddDays(1) & "#" 

Tables("Productionlog").Filter = "Startlinerecording >= '" & e.Sender.Value & "' and Startlinerecording < '" & e.Sender.Value.AddDays(1) & "'"

试试这样

Tables("Productionlog").Filter = "Startlinerecording >= '" & Format(e.Sender.Value, "yyyy-MM-dd HH:mm") & " 0000" & "' and Startlinerecording < '" & Format(e.Sender.Value.AddDays(1), "yyyy-MM-dd") & "00:00 0000" & "'"

或者