Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
当进入“小数、整数”类型列的单元格时,能直接录入数据,等同于按下“F2键”,请问如何设置?
另外“杂项-高速合并”合并Excel文件时,不能合并文件(“表属性-事件”没设置时能正常合并,当设置了事件时不能合并),该如何设置?
请把下面“最后一行”代码改为“当前行”,即复制当前行的部分列到新增行中,谢谢。
If e.DataTable.DataRows.Count = 0 Then '如果是一个空表
Return '那么返回
End If
Dim ColNames As String() = {"日期","客户","雇员"} '定义一个数组,保存复制列的名称
Dim dr As DataRow = e.DataTable.DataRows(e.DataTable.DataRows.Count - 1) '获得最后一行
For Each ColName As String in ColNames
e.DataRow(ColName) = dr(ColName) '将最后一行的内容复制到新增行中.
Next
Dim ColNames As String() = {"日期","客户","雇员"}
Dim r As Row = Tables("表名").Current '获得当前行
If r isNot Nothing Then
For Each ColName As String in ColNames
e.DataRow(ColName) = r(ColName)
Next
End If
谢谢!