以文本方式查看主题
- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71222)
|
-- 作者:yang1972
-- 发布时间:2015/7/7 16:23:00
-- [求助]
此主题相关图片如下:图片.jpg
在这图的表中,克隆明细表的第一行内容,怎么让新增行,车牌号码列、车次列、数量列为空,
|
-- 作者:大红袍
-- 发布时间:2015/7/7 16:31:00
--
Dim r As Row = Tables("表A").Current.Clone
r("第二列") = Nothing r("第三列") = Nothing
|
-- 作者:yang1972
-- 发布时间:2015/7/8 12:48:00
--
谢谢版主,这个问题已解决,在明细表中按回车键增加行时克隆上一行代码应该怎么写!
|
-- 作者:大红袍
-- 发布时间:2015/7/8 14:17:00
--
[此贴子已经被作者于2015/7/8 14:17:29编辑过]
|
-- 作者:大红袍
-- 发布时间:2015/7/8 14:18:00
--
去表属性编写keydown事件
If e.KeyCode = 13 Then Dim r As Row = e.Table.Current.Clone r("第二列") = Nothing r("第三列") = Nothing End If
|
-- 作者:yang1972
-- 发布时间:2015/10/7 9:27:00
--
在明细表中(光标到 应收金额列时)按回车键增加行时克隆上一行代码应该怎么写 此主题相关图片如下:1.jpg
|
-- 作者:大红袍
-- 发布时间:2015/10/7 12:42:00
--
If e.KeyCode = 13 AndAlso e.Table.Cols(e.Table.ColSel).name = "第五列" Then Dim r As Row = e.Table.Current.Clone r("第二列") = Nothing r("第三列") = Nothing End If
|