以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 自定义项目没反应 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161102) |
||||
-- 作者:rgbjwjb -- 发布时间:2021/3/5 21:07:00 -- 自定义项目没反应 我在cellbottonclick 事件总加入: Forms("农户派工单选择").Open e.Cancel = True 在列属性中的自定义项目中输入:... 保存后,单击单元格时,没有反应 请问哪里设置错了,请指教,谢谢!
|
||||
-- 作者:有点蓝 -- 发布时间:2021/3/6 8:57:00 -- 换下代码位置 e.Cancel = True Forms("农户派工单选择").Open
|
||||
-- 作者:rgbjwjb -- 发布时间:2021/3/6 17:45:00 -- 换了位置还是没有反应 |
||||
-- 作者:rgbjwjb -- 发布时间:2021/3/6 17:48:00 -- 派工单明细表中的“村别”字段,请帮看下,谢谢!
|
||||
-- 作者:rgbjwjb -- 发布时间:2021/3/6 20:58:00 -- 另外,我想在打开“农户身份选择”下拉窗体,执行选择操作后,让目录树自动收起至Level(1),代码如何修改?请一并指教一下,谢谢! |
||||
-- 作者:有点蓝 -- 发布时间:2021/3/7 20:28:00 -- 这种用法"农户派工单选择"必须是独立,或者模式窗口 If e.Node.Level = 2 Then \'如果单击的是第三层节点 Dim tr As Row = Tables("身份证变更").Current Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的DataRow e.Node.ParentNode.CollapseAll tr("村别") = dr("村别") tr("组别") = dr("村民组") tr("农户姓名") = dr("农户姓名") tr("一折通号码") = dr("一折通号码") tr("身份证号码") = dr("身份证号码") e.Form.DropDownBox.Value = tr("村别") \'这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据. e.Form.DropDownBox.CloseDropdown() End If |