Foxtable(狐表)用户栏目专家坐堂 → 请问如附件范例treeview 按下时SQL TABLE为何没作用??


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

主题:请问如附件范例treeview 按下时SQL TABLE为何没作用??

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


加好友 发短信
等级:六尾狐 帖子:1433 积分:10763 威望:0 精华:0 注册:2013/3/29 10:23:00
请问如附件范例treeview 按下时SQL TABLE为何没作用??  发帖心情 Post By:2014/8/19 10:55:00 [显示全部帖子]

请问前辈们:所附范例员工资料表(SQL TABLE) treeview为何没作用 ??

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:一种主界面搭建方式v3.zip

[此贴子已经被作者于2014-8-19 10:56:48编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
tennis
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1433 积分:10763 威望:0 精华:0 注册:2013/3/29 10:23:00
  发帖心情 Post By:2014/8/19 13:28:00 [显示全部帖子]

謝謝回覆,但是CheckedComboBox 多選時,filter就不只是 "部門" 而已

 

我把它改成:

If e.Node.Name = "顯示所有資料" Then
    Tables("員工資料_Tbl_Main").Filter = ""
Else
    Dim FilterCol() As String = e.Form.Controls("Cmb_FilterCol").Value.Split(",")
    Dim TmpStr() As String = e.Node.FullPath.Split("\")
    Dim FilterStr As String
    For i As Integer = 0 To e.Node.Level
        FilterStr = FilterStr & "[" & FilterCol(i) & "] = '" & TmpStr(i) & "' And "
    Next
    FilterStr = FilterStr.SubString(0,FilterStr.Length - 5)
    Tables("員工資料_Tbl_Main").Filter = FilterStr
End If

ckeckedcombobox 正常了,但是记录窗口却不动了!!


 回到顶部