以文本方式查看主题

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

--  作者:998168
--  发布时间:2013/9/16 9:15:00
--  新增行
  大家好!请看以下代码:
If e.keyCode=keys.Enter AndAlso e.Table.cols(e.Table.Colsel).name="单位" Then
    If e.Table.Position<e.Table.Rows.Count-1 Then
        e.Table.Position=e.Table.Position+1
        e.Table.Select(e.Table.TopRow,0,e.Table.BottomRow,0)
        e.cancel=True
    End If
End If
上述代码为如果编辑的行当前列为"单位"列按回车键后将自动跳到下一行的第一列处,但当前行
是表中最后一行时,此代码就无效了,应该怎么改让其判断是最后一行时按回车键后能自动增加
一个新行并且是新行的第一列呢?
请大家帮帮忙!


--  作者:Bin
--  发布时间:2013/9/16 9:18:00
--  
判断一下当前行的位置不就好了,这有什么难度?

if  e.Table.Position=e.table.rows.count-1 then
    e.table.addnew
end if

--  作者:998168
--  发布时间:2013/9/16 9:48:00
--  
谢谢哦!