Foxtable(狐表)用户栏目专家坐堂 → 记录控件里用的下拉窗口怎么获得值


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

主题:记录控件里用的下拉窗口怎么获得值

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


加好友 发短信
等级:二尾狐 帖子:594 积分:4030 威望:0 精华:0 注册:2015/3/10 13:25:00
记录控件里用的下拉窗口怎么获得值  发帖心情 Post By:2020/7/27 10:47:00 [只看该作者]

RecordGrid是打开的编辑和新增填写内容,里面有一列我是在加载表事件中绑定的e.Table.Cols("财务科目").DropForm   = "财务科目下拉"
但是RecordGrid所在的窗口点击后数据不能填上去。




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


加好友 发短信
等级:超级版主 帖子:111427 积分:567211 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/27 10:58:00 [只看该作者]

加载表事件指哪个事件?

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


加好友 发短信
等级:二尾狐 帖子:594 积分:4030 威望:0 精华:0 注册:2015/3/10 13:25:00
  发帖心情 Post By:2020/7/27 11:02:00 [只看该作者]

在dropform里面的代码是
Dim r As Row = Tables("流水记录").Current
r("财务科目") = Forms("流水记录").Controls("l_temp").text
r("科目名称") = Forms("流水记录").Controls("l_temp1").text

If e.Selected Then '如果选择了值
    If r IsNot Nothing Then
        e.Form.DropDownBox.Value = r("财务科目")
    End If
    If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的
        e.Form.DropTable.FinishEditing()
    Else '如果是通过窗口下拉的
        e.Form.DropDownBox.WriteValue()
    End If
End If

加载表事件是afterloadtablesetting

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


加好友 发短信
等级:二尾狐 帖子:594 积分:4030 威望:0 精华:0 注册:2015/3/10 13:25:00
  发帖心情 Post By:2020/7/27 11:05:00 [只看该作者]


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

就这效果

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


加好友 发短信
等级:超级版主 帖子:111427 积分:567211 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/27 11:12:00 [只看该作者]

是不是有按钮或者其它事件关闭了下拉窗口?e.form.close?改为使用e.Form.DropDownBox.CloseDropdown

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


加好友 发短信
等级:二尾狐 帖子:594 积分:4030 威望:0 精华:0 注册:2015/3/10 13:25:00
  发帖心情 Post By:2020/7/27 11:18:00 [只看该作者]

我在下拉窗口的dobleclick里面加上 这句就好了
e.Form.DropDownBox.CloseDropdown

 回到顶部