主题：[求助] 项目打不开

加入msgbox弹出值看一看

此主题相关图片如下：360截图20160328172348033.jpg

 那你日期控件那里肯定写有别的代码。

1、我的【关停日期】控件中没有写任何命令

 

2、我的表是【副本】，有影响吗？

 

3、会不会是bug；因为是【副本】所以才使用这样的命令。我在【本表】中直接 绑定到 列；就不会出现这个问题

 

 去看日期控件的事件代码，肯定有影响，你前面的代码没问题。

1、我的【关停日期】控件中没有写任何命令

 

2、我的表是【副本】，有影响吗？

 

3、会不会是bug；因为是【副本】所以才使用这样的命令。我在【本表】中直接 绑定到 列；就不会出现这个问题

1、既然是直接赋值，就不要绑定表列；

 

2、代码没问题。如果还有问题，具体做个例子发上来

 

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

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

DateTimePicker1不要绑定列 

 

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

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

 

 

如果我的表为【副本】，我在NodeMouseDoubleClick中的命令该怎么修改？

 

Dim Filter As String
Dim dr As Row = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "全部统计"  Then
    Select Case e.Node.Level
        Case 0
            Filter = "[全部统计] <> '' "
        Case 1
            Filter = "[关停责任人] = '" & dr("关停责任人") & "' "
        Case 2
            Filter = "([关停责任人] = '" & dr("关停责任人") & "' And [割接情况] = '" & dr("割接情况") & "') "
        Case 3
            Filter = "([关停责任人] = '" & dr("关停责任人") & "' And [割接情况] = '" & dr("割接情况") & "' And [关停情况] = '" & dr("关停情况") & "')  "
        Case 4
            Filter = "([关停责任人] = '" & dr("关停责任人") & "' And [割接情况] = '" & dr("割接情况") & "' And [关停情况] = '" & dr("关停情况") & "'And [关停时间] = '" & dr("关停时间") & "')  "
    End Select
Else
    e.Sender.CollapseAll
End If

'e.Node.Expand

Tables("宽带帐号割接回访表").Filter = Filter
Tables("宽带帐号割接回访表").Sort = "关停责任人,割接情况,回访_结果,预约处理_时间"

 

 

此主题相关图片如下：360截图20160329102422953.jpg