以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  记录控件里用的下拉窗口怎么获得值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152952)

--  作者:a937775799
--  发布时间:2020/7/27 10:47:00
--  记录控件里用的下拉窗口怎么获得值
RecordGrid是打开的编辑和新增填写内容,里面有一列我是在加载表事件中绑定的e.Table.Cols("财务科目").DropForm   = "财务科目下拉"
但是RecordGrid所在的窗口点击后数据不能填上去。




--  作者:有点蓝
--  发布时间:2020/7/27 10:58:00
--  
加载表事件指哪个事件?
--  作者:a937775799
--  发布时间: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
--  发布时间:2020/7/27 11:05:00
--  

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

就这效果

--  作者:有点蓝
--  发布时间:2020/7/27 11:12:00
--  
是不是有按钮或者其它事件关闭了下拉窗口?e.form.close?改为使用e.Form.DropDownBox.CloseDropdown
--  作者:a937775799
--  发布时间:2020/7/27 11:18:00
--  
我在下拉窗口的dobleclick里面加上 这句就好了
e.Form.DropDownBox.CloseDropdown