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


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

主题：工资管理系统
帅哥哟，离线，有人找我吗？
发财
 小大  91楼 | 信息 | 搜索 | 邮箱 | 主页 | 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))
应如何改赋值单元格公式？
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  92楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
如果要前头两条件同时成立或最后条件单独成立都可以？
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  93楼 | 信息 | 搜索 | 邮箱 | 主页 | 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的顺序排列？
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  94楼 | 信息 | 搜索 | 邮箱 | 主页 | 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("摘要表")顺序排列？
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  95楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/4/29 11:14:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20160429111234.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  96楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/4/29 11:15:00 [显示全部帖子]

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim s As Double = 0
Dim t As Table = Tables("工资摘要")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Nodes.Count = 0 AndAlso nd.Checked = True Then
        Dim fdr1 As DataRow = t.DataTable.find("_Identify = " & nd.tag) '查找对应的行
        s = fdr1("合计") + s
    End If
Next
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Nodes.Count = 0 AndAlso nd.Checked = True Then
        If s = 0 Then
            nd.Delete
        Else
            messagebox.show("有金额不能删除!")
        End If
    End If
Next
如何禁止删除一级摘要？
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  97楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/5/2 20:14:00 [显示全部帖子]

第一行：Dim nd As WinForm.TreeNode In trv.AllNodes
第二行：If nd.Nodes.Count > 0 AndAlso nd.Checked = True Then

第三行：Tables("工资摘要").Filter = ""
Tables("工资摘要").sort = "代码"
请问：如何在第三行代码中加入第二行的作选择条件？
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  98楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/5/2 20:26:00 [显示全部帖子]

Dim nd As WinForm.TreeNode In trv.AllNodes
这句应如何修改？
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  99楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/5/2 20:33:00 [显示全部帖子]

如果If nd.Nodes.Count > 0 AndAlso nd.Checked = True Then的条件成立就同时选择打开？

 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  100楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/5/3 8:44:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：选择展开目录树.png
图片点击可在新窗口打开查看
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06641 秒, 5 次数据查询