以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问如附件范例treeview 按下时SQL TABLE为何没作用??  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=55559)
--  作者：tennis
--  发布时间：2014/8/19 10:55:00
--  请问如附件范例treeview 按下时SQL TABLE为何没作用??

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

 

 

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

[此贴子已经被作者于2014-8-19 10:56:48编辑过]
--  作者：Bin
--  发布时间：2014/8/19 11:00:00
--  
什么意思, 你的描述配合例子我没看懂
--  作者：有点甜
--  发布时间：2014/8/19 11:04:00
--  

改一下代码

 

Select Case e.Node.Name
    Case "顯示所有資料"
        e.Form.controls("TBL_MAIN").Table.Filter =""
    Case Else
        e.Form.controls("TBL_MAIN").Table.Filter = "部门 = \'" & e.Node.Name  & "\'"
End Select
--  作者：tennis
--  发布时间：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 正常了,但是记录窗口却不动了!!
--  作者：有点甜
--  发布时间：2014/8/19 14:10:00
--  

 

[此贴子已经被作者于2014-8-19 14:10:31编辑过]
--  作者：有点甜
--  发布时间：2014/8/19 14:14:00
--  

 afterload加入代码

 

Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
rgd.Table = Tables("員工資料_Tbl_Main")
rgd.Build()

 

 http://www.foxtable.com/help/topics/2453.htm

 
--  作者：lsy
--  发布时间：2014/8/19 15:59:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:销穎よαv3.foxdb