以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]部门点击后,部门名称不引用  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=60739)

--  作者:blsu33
--  发布时间:2014/11/30 13:11:00
--  [求助]部门点击后,部门名称不引用
有点甜老师,
   点击增加窗口,选定部门时,部门对应名称不能自动引用,应该怎么写代码。


图片点击可在新窗口打开查看此主题相关图片如下:点击
图片点击可在新窗口打开查看

[此贴子已经被作者于2014-11-30 15:31:47编辑过]

--  作者:有点甜
--  发布时间:2014/11/30 14:28:00
--  
If e.Node.Nodes.Count = 0 Then
    If e.Form.DropDownBox IsNot Nothing Then
        Dim ary() As String = e.node.Text.Split(" ")
        Dim ary1() As String = e.Form.DropDownBox.BindingField.Split(".")
        Tables(ary1(0)).Current(ary1(1)) = ary(0)
        ary1 = e.Form.DropDownBox.Form.Controls("TextBox8").BindingField.Split(".")
        Tables(ary1(0)).Current(ary1(1)) = ary(1)
    End If
    e.Form.DropDownBox.CloseDropdown
End If

--  作者:blsu33
--  发布时间:2014/11/30 15:33:00
--  
老师 ,
   放在哪呢?

--  作者:有点甜
--  发布时间:2014/11/30 15:44:00
--  
呃,下拉窗口的目录树控件的事件
--  作者:blsu33
--  发布时间:2014/11/30 15:59:00
--  
谢谢您了。
    如果同样目录树在不同的地方使用,被引用的位置不一样,是否需要做多个目录树窗口;
   例如在职员档案中的位置是TextBox8  如果在总账的部门引用,如果是TextBox5 需要对应再做一个DropDownForm目录树,是这样吗。

--  作者:有点甜
--  发布时间:2014/11/30 16:00:00
--  
控件的名字命名为一致即可。