Foxtable(狐表)用户栏目专家坐堂 → [求助]做工资表的问题


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

主题:[求助]做工资表的问题

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


加好友 发短信
等级:六尾狐 帖子:1279 积分:10296 威望:0 精华:1 注册:2018/1/20 12:40:00
[求助]做工资表的问题  发帖心情 Post By:2018/2/18 13:25:00 [只看该作者]

现在希望做一个工资表,所有的人员信息来自 人员信息表(图1)。工时来自于 项目分配表(图2)。

现在的问题是公司非生产部门是没有工时的。所以按照下面的代码会导致人员不全的情况。我应该用什么方法吧所有的人员增加进去呢?



Dim b As New SQLGroupTableBuilder("工资表1","XMFP")
b.Co nnectionNa m e = "渲奇表格数据"
b.AddTable("XMFP","成员","人员信息表","姓名")
b.Groups.AddDef("姓名")
b.Totals.Addexp("当月人天","isnull(当月人天,0)")
b.Build
MainTable = Tables("工资表1")


图片点击可在新窗口打开查看此主题相关图片如下:1.bmp
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.bmp
图片点击可在新窗口打开查看

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


加好友 发短信
等级:八尾狐 帖子:1955 积分:15466 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2018/2/18 16:43:00 [只看该作者]

Dim dtb As New DataTableBuilder("工资表")
dtb.AddDef(
"姓名", Gettype(String), 32)

dtb.AddDef("当月人天", Gettype(Double))



dtb.Build()

dim r as datarow
For Each
v As String In DataTables("人员信息表").GetValues("姓名")
   
Dim dr1 As DataRow = DataTables("工资表").AddNew()
    dr1(
"姓名") = v

dr1("当月人天")=0
    r=datatables("项目分配表").find("成员='" & v & "'")

if r isnot nothing then dr1("当月人天")=r("当月人天")


Next


MainTable = Tables(
"工贫表")


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


加好友 发短信
等级:六尾狐 帖子:1279 积分:10296 威望:0 精华:1 注册:2018/1/20 12:40:00
  发帖心情 Post By:2018/2/18 21:09:00 [只看该作者]

多谢多谢


 回到顶部