窗口中有五个文本框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编辑过]
加好友 
发短信
Post By：2019/3/19 13:14:00 [只看该作者]
