[求助]窗口"DropBox1"下拉组合框的下拉目录树输入问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

窗口中有五个文本框TextBox1、TextBox2、TextBox3、TextBox4、TextBox5和一个下拉组合框DropBox1，五个文本框分别绑定"职工"表中"岗码、岗类、部码、部门、工码"五列,下拉组合框绑定"职工"表中"工种"列,同时下拉组合框的下拉窗口为"部门目录树","部门目录树"窗口的AfterLoad事件代码是从项目事件AfterOpenProject中复制的,代码如下:

以下内容为程序代码:

1 '以下生成下拉选择目录树
2 Dim glbm As New DropTreeBuilder
3 glbm.SourceTable = DataTables("部门") '指定目录树表
4 glbm.TreeCols = "岗类|部门|工种" '指定用于生成目录树的列
5 glbm.SourceCols = "岗码|岗类|部码|部门|工码|工种" '指定数据来源列
6 glbm.ReceiveCols = "岗码|岗类|部码|部门|工码|工种" '指定数据接收列
7 glbm.TreeSort = "岗码,部码,工码" '指定数据排序列
8 Tables("职工").Cols("工种").DropTree = glbm.Build() '指定下拉目录树在"职工"表的"工种"列显示

。

想实现的功能: 在点击下拉组合框DropBox1(绑定"职工"表中"工种"列)打开的下拉目录树窗口中点击第三层节点的工种时,能将其对应的"岗码、岗类、部码、部门、工码、工种"六列分别依次写入文本框TextBox1、TextBox2、TextBox3、TextBox4、TextBox5中和下拉组合框DropBox1。并同时修改"职工"表中的相应内容。

请教老师：代码中的红色部分和蓝色部分如何修改才能实现想要的功能,请老师赐教。谢谢！

[此贴子已经被作者于2019/3/24 9:44:00编辑过]

谢谢老师指点！输入问题已实现。但是下拉目录树的排序比较乱，如何才能按"岗码、部码、工码"这三列来对下拉目录树进行排序。谢谢!

[此贴子已经被作者于2019/3/19 15:55:46编辑过]

谢老师指点。效果完美。

老师又出现一个新问题,就是如果"部门"表是"岗码、岗类、部码、部门、工码、工种"六列，而"职工"表只是"岗类、部门、工种"三列(不需要“岗码、部码、工码”这三列)的时候，出现下拉选择写不进窗口文本框和下拉组合框，也写不进"职工"表。我的代码如下，不知如何修改。请老师帮忙。

出错提示的三行代码写上就提示出错。如果不写上的话，就出现下拉选择写不进窗口文本框和下拉组合框，也写不进"职工"表。

代码要如何修改。请老师帮忙。谢谢!

[此贴子已经被作者于2019/3/19 23:14:30编辑过]

谢谢老师。我没有说清楚,也就是说,在"职工"表中没有也不需要"岗码、部码、工码",同样在录入窗口也没有"岗码文本框、部码文本框、工码文本框"。代码要如何改,麻烦老师了。谢谢。

非常谢谢老师指点。我还是没有说清楚，就是取掉那三行代码后，下拉目录树窗口正常出现，也能在目录树窗口点击选择节点，但就是所选的节点内容写不进录入窗口的“岗类文本框”、“部门文本框”、“工种文本框”，同时也写不进“职工”表的“岗类”、“部门”、“工种”三列。这种情况的代码应如何修改才行。谢谢！

谢谢老师们的耐心指导。是我的问题，现已经完美解决。再次感谢老师们。

主题：[求助]窗口"DropBox1"下拉组合框的下拉目录树输入问题