Foxtable(狐表)用户栏目专家坐堂 → [求助]不好意思,太菜,帖子都弄得乱七八糟,望谅


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

主题:[求助]不好意思,太菜,帖子都弄得乱七八糟,望谅

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


加好友 发短信
等级:幼狐 帖子:151 积分:1110 威望:0 精华:0 注册:2015/1/24 15:26:00
[求助]不好意思,太菜,帖子都弄得乱七八糟,望谅  发帖心情 Post By:2015/1/24 17:15: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事件代码设置为:

     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


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

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

e.Cancel = True


4     问题:

5.1    运行后,在Table(“合同台账”)内,没有反应,连下拉菜单标记都没有。

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

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


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



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


加好友 发短信
等级:幼狐 帖子:151 积分:1110 威望:0 精华:0 注册:2015/1/24 15:26:00
  发帖心情 Post By:2015/1/24 20:18:00 [显示全部帖子]

谢谢!但我的问题不是关不了窗口,而是无法调用窗口。

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

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

e.Cancel = True

这段代码没有作用,不能在目标Table(“合同台账")里面调用目录树窗口来建立下拉菜单,再请教。



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


加好友 发短信
等级:幼狐 帖子:151 积分:1110 威望:0 精华:0 注册:2015/1/24 15:26:00
  发帖心情 Post By:2015/1/24 22:08:00 [显示全部帖子]

图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看还是调用不了窗口。但我在窗口设计中“应用”窗口,如何点击要输入的内容,就能输入,只是输入后要报错。本来有贴图的,但我不知道怎么贴进来,插入也好像没用。谢谢

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


加好友 发短信
等级:幼狐 帖子:151 积分:1110 威望:0 精华:0 注册:2015/1/24 15:26:00
  发帖心情 Post By:2015/1/24 22:45:00 [显示全部帖子]

谢谢

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


加好友 发短信
等级:幼狐 帖子:151 积分:1110 威望:0 精华:0 注册:2015/1/24 15:26:00
  发帖心情 Post By:2015/1/24 22:48:00 [显示全部帖子]

最大的问题是我上传附件但告诉我的是文件类型不符合要求,我传了Table文件,为了不浪费大家的时间,传了问题相关的截了图的Word和Pdf文件,但都没传上来

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


加好友 发短信
等级:幼狐 帖子:151 积分:1110 威望:0 精华:0 注册:2015/1/24 15:26:00
  发帖心情 Post By:2015/1/25 16:07:00 [显示全部帖子]

谢谢了,问题找到了。
Table(“合同台账”)CellButtonClick事件改写为PrepareEdit事件就OK。
代码设置为:
Tables("合同台账").Cols("合同类型").DropForm = "合同类别目录树"

但不明白为什么CellButtonClick事件不响应

 回到顶部