Dim trv As WinForm.TreeView = e.Form.Controls("zcflTreeView")
trv.GenerateTree("支出分类","支出分类代码","支出目录", ".")
Dim trv As WinForm.TreeView = e.Form.Controls("zcflTreeView")
Dim zcfl As WinForm.DropDownBox = Forms("应付明细窗体").Controls("zcflDropBox")
If zcfl.Value<>"" Then
Return
End If
trv.SelectedNode = trv.Nodes(0)
Dim dr As DataRow = trv.Nodes(0).DataRow
Dim str As String = DataTables("支出分类").GetComboListString("支出目录","支出分类代码='" & dr("支出分类代码") & "' Or 支出分类代码 Like '" & dr("支出分类代码") & "%'")
Tables("应付交易流水").Filter = "交易分类 in ('" & str.Replace("|","','") & "')"
e.Form.DropDownBox.Value = trv.Nodes(0).Text
e.Form.panel.parent.width = e.Form.DropDownBox.Width
Forms("应付明细窗体").Controls("zcflDropBox").text=e.node.Text
Forms("应付明细窗体").Controls("czButton").PerformClick
Forms("以应付类型查找选择窗体").DropDownBox.CloseDropdown()
[此贴子已经被作者于2020/4/17 9:34:46编辑过]