以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  同时自动选择多列内容  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118859)

--  作者：aza520 --  发布时间：2018/5/12 11:45:00 --  同时自动选择多列内容 Dim tbl As Table = Tables("工程量清单_Table1") If tbl.Current IsNot Nothing Then     e.Form.DropDownBox.Value = tbl.Current("支付编号") End If e.Form.DropDownBox.CloseDropDown() 以上代码，双击选定行时，只会自动选择支付编号列到表内，我想实现双击时同时自动选择“支付编号”、“细目名称”、“单价”、“单位”等内容，该如何实现，请老师指点

--  作者：aza520 --  发布时间：2018/5/12 11:45:00 --   如下图

--  作者：aza520 --  发布时间：2018/5/12 11:46:00 --   如图 此主题相关图片如下：11111.png

--  作者：有点蓝 --  发布时间：2018/5/12 11:48:00 --   Dim tbl As Table = Tables("工程量清单_Table1") Dim r As Row = Tables("").current If tbl.Current IsNot Nothing  Then     e.Form.DropDownBox.Value = tbl.Current("支付编号")     r("单价")= tbl.Current("单价") End If e.Form.DropDownBox.CloseDropDown()

--  作者：aza520 --  发布时间：2018/5/12 12:11:00 --   双击选定行的时候出现“不存在名为""的Table

--  作者：有点蓝 --  发布时间：2018/5/12 14:49:00 --   汗，都不会自己加上个表名？ Dim r As Row = Tables("某某某表").current