Foxtable(狐表)用户栏目专家坐堂 → [求助]调用窗口


  共有2925人关注过本帖树形打印复制链接

主题:[求助]调用窗口

帅哥哟,离线,有人找我吗?
青鸟
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:151 积分:1110 威望:0 精华:0 注册:2015/1/24 15:26:00
[求助]调用窗口  发帖心情 Post By:2015/1/24 22:39:00 [只看该作者]

关于下拉目录树输入问题

1     基本情况:

Table(“合同类别”)

 

Table(“合同台账”)

 

2     目的:

希望利用Table(“合同类别”)的数据,建立下拉目录树窗口,在Table(“合同台账”).Col(合同类型)中调用该下拉目录树窗口,点击自动输入Col(合同类型)& Col(一级合同类别)& Col(二级合同类别)& Col(三级合同类别)

3     操作:

3.1    Table(“合同类别”)中,新建一个窗口,名为合同类别目录树,窗口类型设置为“DropDownForm”

3.2    该窗口中插入一个TreeView控件;

3.3    该窗口的AfterLoad事件设置为:

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.BuildTree("合同类别","合同类型名称|一级合同类别名称|二级合同类别名称|三级合同类别名称")

3.4    TreeViewNodeMouseClick事件代码设置为:

4     If e.Node.Level = 3 Then

    Dim Vals() As String = e.Node.FullPath.Split("\")

    Dim Filter As String = "[合同类型名称] = '" & Vals(0) & "' And [一级合同类别名称] = '" & Vals(1) & "' And [二级合同类别名称] = '" & Vals(2) & "' And [三级合同类别名称] = '" & Vals(3) & "'"

    Dim dr As DataRow = DataTables("合同类别").Find(Filter)

    Dim r As Row = Tables("合同台账").Current

    If dr IsNot Nothing Then

        r("合同类型") = dr("合同类型名称")

        r("一级合同类别") = dr("一级合同类别名称")

        r("二级合同类别") = dr("二级合同类别名称")

        r("三级合同类别") = dr("三级合同类别名称")

        e.Form.DropDownBox.Value = r("三级合同类别")

    End If

    e.Form.DropDownBox.CloseDropdown()

End If

4.1    Table(“合同台账”)CellButtonClick事件中设置:

Forms("合同类别目录树").Open()

e.Cancel = True

5     问题:

5.1    运行后没有反应。

5.2    将窗口属性修改成“模式”,应用窗口后,下拉目录树窗口正常:

 

5.3    命令窗口测试调用“模式”窗口,也正常

 

 

6     请教高手问题出在哪里?

另外,如果在窗口管理里面应用窗口,则可以输入,但会报错。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/25 9:17:00 [只看该作者]

 请打包上传出错的文件,且不要重复发帖。

 回到顶部