- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助代码！ 不要克隆行的，能不能克隆选定的单元格啊 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=6729)
-- 发布时间：2010/4/22 0:19:00
-- 求助代码！ 不要克隆行的，能不能克隆选定的单元格啊
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:sy.table |
在入库表里 双击 客户名称 列 添加客户 但每次都要克隆不需要的信息 如数量 单位等
我只需要 克隆 客户名称 代码不会
-- 发布时间：2010/4/22 0:25:00
--
Dim dr1 As Row = CurrentTable.Current
Dim dr2 As Row = CurrentTable.AddNew()
dr2("指定列") = dr1("指定列")
……
-- 发布时间：2010/4/22 9:01:00
--
还是搞不定
-- 发布时间：2010/4/22 9:12:00
--
Dim DST as DataRow = CurrentTable.Current.DataRow
If e.Table.name = "双击输入窗口2_Table1" then
If CurrentTable.Current Isnot Nothing Then
Dim dr As Row = Tables("入库表").AddNew
Tables("入库表").Current("商品名称") = dst("商品名称")
Tables("入库表").Current("品牌") = dst("品牌")
End if
End if