以文本方式查看主题

-  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=128305)

--  作者:cyrollin
--  发布时间:2018/12/3 14:59:00
--  删除当前行指定几列数据。
写在keydown事件的,

dim r as row = e.table.current
If e.keycode = keys.delete AndAlso r("客户") IsNot Nothing Then  
    r("编号") = Nothing
    r("电话") = Nothing
    r("付款") = Nothing
    r("日期") = Nothing
    r("备注") = Nothing
End If

我想在当前行的 客户 这一列点删除键后,就把其它列,如编号,电话,付款,日期,备注的内容都同时删除。 
但是当我在备注栏按删除键的时候, 其他列的内容也都删除了。除客户栏以外,在其他列按删除键时,可以不影响其他列的内容吗? 



--  作者:y2287958
--  发布时间:2018/12/3 15:05:00
--  
判断一下列名
--  作者:cyrollin
--  发布时间:2018/12/3 15:07:00
--  
dim r as row = e.table.current
If e.col.name = "客户" then  (\' if e.datacol.name ="客户" then, 用这二句都提示, col,datacol 不是keyeventargs的成员 )
If e.keycode = keys.delete AndAlso r("客户") IsNot Nothing Then  
    r("编号") = Nothing
    r("电话") = Nothing
    r("付款") = Nothing
    r("日期") = Nothing
    r("备注") = Nothing
End If
end if

--  作者:y2287958
--  发布时间:2018/12/3 15:12:00
--  
If e.keycode = keys.delete AndAlso r("客户") IsNot Nothing AndAlso e.Table.Cols(e.Table.ColSel).name = "客户"
[此贴子已经被作者于2018/12/3 15:12:33编辑过]

--  作者:cyrollin
--  发布时间:2018/12/3 15:17:00
--  
可以了,谢谢!图片点击可在新窗口打开查看