Foxtable(狐表) → 用户栏目 → 专家坐堂 → 工资管理系统


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

主题：工资管理系统
帅哥哟，离线，有人找我吗？
发财
 小大  151楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/4/25 15:14:00 [只看该作者]

            Dim Rg11 As MSExcel.Range = Ws1.Range("C3:D3")
            App.DisplayAlerts = False '加上此行可禁止弹出合并前的提示
            Rg11.Merge  '合并指定区域的单元格
            'Rg.MergeCells = True '用这种方式也可以合并
            App.Visible = True
如何选择C3到第N列的单元格进行合并？
C3:（n+3)3
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  152楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/25 15:24:00 [只看该作者]

Dim Rg11 As MSExcel.Range = Ws1.Range(ws1.Cells(3,3), ws1.Cells(3,n+3))
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  153楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/4/25 21:14:00 [只看该作者]

sum(ws1.Cells(3,3), ws1.Cells(3,n+3))
应如何改赋值单元格公式？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  154楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/25 21:18:00 [只看该作者]

参考代码

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.cells(3, 3)
MessageBox.Show(Rg.Address)
App.Quit
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  155楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/4/26 10:24:00 [只看该作者]

        If s1 <> dc.name.split("_")(1) AndAlso s1 <> "" OrElse (3+i1) = t.cols.count - 1 Then
如果要前头两条件同时成立或最后条件单独成立都可以？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  156楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/26 10:31:00 [只看该作者]

 代码没有问题，OrElse 两边的条件一个成立就行。

 

 问问题，请说明具体什么问题啊。
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  157楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/4/27 15:57:00 [只看该作者]

Dim dtb As New DataTableBuilder("统计1")
Dim dd As Double
Dim dd1 As Double
dtb.AddDef(st.Cols(1).Name, Gettype(String))
For i1 As Integer = 2 To st.cols.count-2
    dtb.AddDef(st.Cols(i1).Name, Gettype(Double))
Next
dtb.Build
Dim t As Table = Tables("统计1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked Then
        Dim fdr As DataRow = st.DataTable.find("_Identify = " & nd.tag)
        If fdr IsNot Nothing AndAlso fdr("合计") <> 0 Then
            Dim nt As Row = Tables("统计1").AddNew()
            Dim s100 As String = nd.FullPath.Replace("\", "_")
            s100 = s100.Remove(0,7)
            nt("摘要") = s100
            For i1 As Integer = 2 To st.cols.count-2
                nt(t.Cols(i1-1).Name) = fdr(st.Cols(i1).Name)
            Next
        End If
    End If
Next
Dim g2 As New GroupTableBuilder("统计2",DataTables("统计1"))
g2.Groups.AddDef("摘要")
For i1 As Integer = 1 To t.cols.count-2
    g2.Totals.AddDef(Tables("统计1").Cols(i1).Name)
Next
g2.Build()
请教老师：统计1汇总成统计2，如何保证统计2按照统计1的顺序排列？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  158楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/27 16:00:00 [只看该作者]

 你说的顺序，是列顺序？怎么就顺序不对了啊？

 

 截图和实例说明
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  159楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/4/28 9:55:00 [只看该作者]

Dim g2 As New GroupTableBuilder("统计2",DataTables("统计1"))
g2.Groups.AddDef("一级摘要")
g2.Groups.AddDef("二级摘要")
For i1 As Integer = 2 To t.cols.count-1
    g2.Totals.AddDef(Tables("统计1").Cols(i1).Name)
Next
g2.Build()
生成的统计2如何按照预先设定的tables("摘要表")顺序排列？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  160楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/28 9:57:00 [只看该作者]

 你可以在 摘要表 加一列辅助列，输入不同级的摘要用1、2、3表示，然后写代码

 

g2.Groups.AddDef("辅助列")

g2.Groups.AddDef("一级摘要")
g2.Groups.AddDef("二级摘要")
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询