- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]拷贝外部数据，自动增加行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8421)
-- 发布时间：2010/10/21 11:49:00
-- [求助]拷贝外部数据，自动增加行
假如表中空白行只有10行，如果从EXCEL表格中拷贝的行超过了10行而达到了15行，现在的情况是，超过的5行将不会被粘贴到表中。如何能让表格自动增加5行，容纳所有粘贴进来的数据？
-- 发布时间：2010/10/21 11:59:00
--
导入！
-- 发布时间：2010/10/21 21:33:00
--
CurrentTable.AddNew(5)
CurrentTable.Select(0,0)
CurrentTable.Focus
Syscmd.Edit.Paste()
-- 发布时间：2010/10/21 23:05:00
--
这样比较严谨一点
If ClipBoard.ContainsText Then
Dim s As String = ClipBoard.GetText()
Dim n As Integer = s.Length-s.Replace(chr(13),"").Length-CurrentTable.Rows.Count
If n > 0 Then
CurrentTable.AddNew(n)
End If
CurrentTable.Select(0,0)
CurrentTable.Focus
Syscmd.Edit.Paste()
End If
-- 发布时间：2010/10/21 23:19:00
--
-- 发布时间：2010/10/21 23:24:00
--
或这样
If ClipBoard.ContainsText Then
Dim dt As Table = CurrentTable
Dim s As String = ClipBoard.GetText()
Dim i As Integer = dt.TopRow
Dim n As Integer = (s.Length-s.Replace(chr(13),"").Length)-(dt.Rows.Count-i)
If n > 0 Then
dt.AddNew(n)
End If
dt.Select(i,dt.LeftCol)
dt.Focus
Syscmd.Edit.Paste()
End If
[此贴子已经被作者于2010-10-21 23:24:22编辑过]