主题：会计科目选择

老师您好，我设置了一个层级型会计科目，在报销单或凭证处理时，我如果选择会计科目，谢谢，请老师指教。

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

点击浏览该文件:会计科目选择.rar

下拉窗口取选择的行的值给报销单当前行一级二级三级科目赋值就行了，参考：http://www.foxtable.com/webhelp/topics/2465.htm

一开始我是这样做的，也能实现；

设置窗口表不就行了，比如

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() '将输入焦点返回下拉列表框

老师，这段代码为什么没起作用？下拉时，还不是折叠表？

老师，请帮忙看一下，代码没起作用，是什么原因，谢谢。

注意代码顺序，先筛选，后设置折叠。

收到谢谢