- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 会计科目选择 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174924)
-- 发布时间：2022/2/11 17:09:00
-- 会计科目选择
老师您好，我设置了一个层级型会计科目，在报销单或凭证处理时，我如果选择会计科目，谢谢，请老师指教。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:会计科目选择.rar |
-- 发布时间：2022/2/11 17:15:00
--
下拉窗口取选择的行的值给报销单当前行一级二级三级科目赋值就行了，参考：http://www.foxtable.com/webhelp/topics/2465.htm
-- 发布时间：2022/2/11 17:21:00
--
一开始我是这样做的，也能实现；
但是我把会计科目表修改成折叠型表之后，我如何在下拉窗口中选择会计科目时，如果让会计科目依然是折叠型的？
-- 发布时间：2022/2/11 17:25:00
--
设置窗口表不就行了，比如
Tables("窗口1_table1").ShowGridTree(st)
-- 发布时间：2022/2/11 19:00:00
--
Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("费用明细表会计科目下拉窗_Table1")
Dim st As new LayerTreeSetting
st.PathCol = "科目代码"
st.treeCol = "一级科目"
st.Lengths = {1,3,2} 下载信息 [文件大小： 下载次数： ] 点击浏览该文件:折叠表.rar
st.GridTree = True
tbl.ShowGridTree(st)
If txt = "" Then
tbl.Filter = ""
Else
txt = "\'%" & txt & "%\'"
tbl.Filter = "一级科目 Like " & txt & " Or 二级科目 Like " & txt & " Or 三级科目 Like " & txt & ""
End If
e.Form.DropDownBox.Select() \'将输入焦点返回下拉列表框
老师，这段代码为什么没起作用？下拉时，还不是折叠表？
-- 发布时间：2022/2/12 8:44:00
--
老师，请帮忙看一下，代码没起作用，是什么原因，谢谢。
-- 发布时间：2022/2/12 10:02:00
--
注意代码顺序，先筛选，后设置折叠。
-- 发布时间：2022/2/12 12:07:00
--
收到谢谢