- 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=45529)
-- 发布时间：2014/1/29 15:34:00
-- 数据表、回车键
如何用回车键控制数据表的输入范围？如第一行2、3、4列，自动跳到第二行2、3、4列，又自动跳到第三行2、3、4列。。。。。只用回车键就可以控制？
-- 发布时间：2014/1/29 16:03:00
--
KeyDown
If e.KeyCode = Keys.Enter Then
If e.Table.RowSel < e.Table.Rows.Count - 1 Then
If e.Table.ColSel = 3 Then
e.Table.Select(e.Table.RowSel + 1,0)
End If
ElseIf e.Table.RowSel = e.Table.Rows.Count - 1 Then
If e.Table.ColSel = 3 Then
e.Table.Select(e.Table.RowSel,2)
End If
End If
End If
-- 发布时间：2014/1/29 16:14:00
--
如果是2、3、4、6列呢？并且会自动循环？
-- 发布时间：2014/1/29 17:01:00
--
AfterEdit
If e.Table.RowSel < e.Table.Rows.Count - 1 Then
If e.Table.ColSel = 3 Then
e.Table.Select(e.Table.RowSel,4)
ElseIf e.Table.ColSel = 5 Then
e.Table.Select(e.Table.RowSel + 1,0)
End If
ElseIf e.Table.RowSel = e.Table.Rows.Count - 1 Then
If e.Table.ColSel = 3 Then
e.Table.Select(e.Table.RowSel,4)
ElseIf e.Table.ColSel = 5 Then
e.Table.Select(e.Table.RowSel,4)
End If
End If
KeyDown
If e.KeyCode = Keys.Enter Then
If e.Table.RowSel < e.Table.Rows.Count - 1 Then
If e.Table.ColSel = 3 Then
e.Table.Select(e.Table.RowSel,4)
ElseIf e.Table.ColSel = 5 Then
e.Table.Select(e.Table.RowSel + 1,0)
End If
ElseIf e.Table.RowSel = e.Table.Rows.Count - 1 Then
If e.Table.ColSel = 3 Then
e.Table.Select(e.Table.RowSel,4)
ElseIf e.Table.ColSel = 5 Then
e.Table.Select(e.Table.RowSel,4)
End If
End If
End If
-- 发布时间：2014/2/17 10:20:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:例子2.rar |
-- 发布时间：2014/2/17 10:22:00
--
如何在每次打开时将焦点设在第一行第二列的格内，并且在录入到最后一行时，能自动循环？
-- 发布时间：2014/2/17 10:33:00
--
如何在每次打开时将焦点设在第一行第二列的格内，并且在录入到最后一行时，能自动循环？
怎么循环？又回到第一行第二列？
-- 发布时间：2014/2/17 10:39:00
--
对
-- 发布时间：2014/2/17 10:50:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:回车控制输入范围.table |
-- 发布时间：2014/2/17 11:20:00
--
如果是主表切换关联呢？
If CurrentTable.DataTable.Name = "表A" Then
CurrentTable.Select(0,1)
End If
表A为子表时，如何做呢?