Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共5 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

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

1楼
明丰 发表于:2011/5/2 17:33:00

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

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

2楼
狐狸爸爸 发表于:2011/5/2 17:42:00

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

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

 

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

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

3楼
明丰 发表于: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楼
狐狸爸爸 发表于: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楼
明丰 发表于:2011/5/2 20:36:00

谢谢!

共5 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02930 s, 2 queries.