Foxtable(狐表)用户栏目专家坐堂 → 数据类型单元格的编缉状态


  共有11831人关注过本帖树形打印复制链接

主题:数据类型单元格的编缉状态

帅哥哟,离线,有人找我吗?
明丰
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:558 积分:4352 威望:0 精华:2 注册:2011/4/18 8:27:00
数据类型单元格的编缉状态  发帖心情 Post By:2011/5/2 17:33:00 [只看该作者]

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47477 积分:251256 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/5/2 17:42:00 [只看该作者]

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

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

 

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
明丰
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:558 积分:4352 威望:0 精华:2 注册:2011/4/18 8:27:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47477 积分:251256 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
明丰
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:558 积分:4352 威望:0 精华:2 注册:2011/4/18 8:27:00
  发帖心情 Post By:2011/5/2 20:36:00 [只看该作者]

谢谢!


 回到顶部