以文本方式查看主题
- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 我希望实现双击目录树自动在表格中插入一行并自动填写信息,但是总是报错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161425)
|
-- 作者:babymio
-- 发布时间:2021/3/17 9:48:00
-- 我希望实现双击目录树自动在表格中插入一行并自动填写信息,但是总是报错
此主题相关图片如下:微信截图_20210317094425.png
 我想要实现,双击目录树的最后一个子节点,在当前已经被目录树筛选过得主表的第一行插入一行,并且在其中3列的位置自动填入目录树三个节点的内容,但是我总是遇到这个弹窗,我找了好多办法都不行,能有人帮我看看这是什么问题导致的吗,我应该怎么修改
此主题相关图片如下:微信截图_20210317094350.png

|
-- 作者:有点蓝
-- 发布时间:2021/3/17 9:53:00
--
麻烦代码文字发上来
|
-- 作者:babymio
-- 发布时间:2021/3/17 10:05:00
--
Select Case e.node.Level Case 0 Case 1 Case 2 Dim r As Row = Tables("发货装箱清单").InsertNew(0) r("发货日期")= 2021/3/10 r("发货类型")= "空运" r("产品站点")="G店美国站"
End Select 这是,双击目录树插入行的代码
|
-- 作者:有点蓝
-- 发布时间:2021/3/17 11:02:00
--
Select Case e.node.Level Case 0 Case 1 Case 2 Dim r As Row = Tables("发货装箱清单").InsertNew() r("发货日期")= cdate("2021-3-10") r("发货类型")= "空运" r("产品站点")="G店美国站"
End Select
|
-- 作者:babymio
-- 发布时间:2021/3/17 12:33:00
--
可以了,非常感谢
|