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


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

主题:工资管理系统

帅哥哟,离线,有人找我吗?
发财
  51楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:数字级码生成 (1).table


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


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

求窗口1的导出到表C的控件代码?

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


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

非常感谢老师!

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


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

Dim n1 As Integer = 0
Dim t As Table = Tables("工资摘要")
Dim f1 As String = ("工资表.xls")
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim App As New MSExcel.Application
Dim wb As MSExcel.WorkBook = App.WorkBooks.open(ProjectPath & f1)
Dim ws1 As MSExcel.WorkSheet = wb.WorkSheets("工资")
For n As Integer = 2 To t.Cols.count-1
    ws1.cells(2+n,2).value = t.Cols(n).Name
Next
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked = True Then
        Dim fdr As DataRow = t.DataTable.find("_Identify = " & nd.tag)
        If fdr IsNot Nothing Then
            ws1.cells(3,3+n1).Value = fdr("摘要")
            For nn As Integer = 2 To t.Cols.count-1
                ws1.cells(2+nn,3+n1).value = fdr(t.Cols(nn).Name)
            Next
            n1 = n1 + 1
        End If
    End If
Next
ws1.UsedRange.Formula = ws1.UsedRange.Formula
ws1.Activate
app.ActiveWindow.DisplayZeros = False
wb.save
wb.close
App.Quit
Dim Proc As New Process
Proc.File = (f1)
Proc.Start()
如何加入代码限制不是最下级不用导出?如工资-应税-标准工资,只导出标准工资,不导出工资-应税?

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


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

记录表中如重命名列名?

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


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

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:数字级码生成 (1).table


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


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

窗口2中的TextBox1如何加入代码显示记录窗口的合计?

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


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

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:数字级码生成 (1).table


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


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

如何在上述窗口1,增加一个控件点击一下自动将目录树1月复制成2月,再点击将2月复制成3月有。........

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


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

所有节点的数据如何一齐复制过来呢?

 回到顶部
总数 115 上一页 1 2 3 4 5 6 7 8 9 10 下一页 ..12