Foxtable(狐表)用户栏目专家坐堂 → [求助]未将对象引用设置到对象的实例问题


  共有2131人关注过本帖树形打印复制链接

主题:[求助]未将对象引用设置到对象的实例问题

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/11/3 9:16:00 [显示全部帖子]

修改代码

 

Dim  dr As  DataRow = e.Node.DataRow  '获取生成此节点的行
Dim Filter As String
e.Form.StopRedraw
If e.node.text <> "显示所有行" Then    

    Dim Year As  Integer = dr("年")
    Dim  Month As   Integer =  dr("月")
    Dim   Product As   String =  dr("驾驶员")
    Select Case e.Node.Level
        Case  0
            Filter ="驾驶员= '"  & Product  &  "'"
        Case  1
            Filter ="Year(出车时间) = "  &  Year &  " And 驾驶员 = '"  &  Product  &  "'"
        Case  2
            Filter ="Year(出车时间) = "  &  Year  &  " And Month(出车时间) = "  &  Month  &  " And 驾驶员 = '"  &  Product  &  "'"
    End Select
Else
    Filter = ""
End If
DataTables("派车表").LoadFilter = Filter
DataTables("派车表").Load()
e.Form.ResumeRedraw


 回到顶部