以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://www.foxtable.com/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