以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  数据类型单元格的编缉状态  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=9680)

--  作者:明丰
--  发布时间:2011/5/2 17:33:00
--  数据类型单元格的编缉状态

当进入“小数、整数”类型列的单元格时,能直接录入数据,等同于按下“F2键”,请问如何设置?

另外“杂项-高速合并”合并Excel文件时,不能合并文件(“表属性-事件”没设置时能正常合并,当设置了事件时不能合并),该如何设置?


--  作者:狐狸爸爸
--  发布时间:2011/5/2 17:42:00
--  

第一个问题,看看这个方法:

http://help.foxtable.com/topics/0557.htm

 

不能合并,说明表事件设置不当,要么修改表事件,要么参考:

http://help.foxtable.com/topics/2218.htm


--  作者:明丰
--  发布时间:2011/5/2 18:13:00
--  

请把下面“最后一行”代码改为“当前行”,即复制当前行的部分列到新增行中,谢谢。

 

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


--  作者:狐狸爸爸
--  发布时间:2011/5/2 19:53:00
--  

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


--  作者:明丰
--  发布时间:2011/5/2 20:36:00
--  

谢谢!