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

现在希望做一个工资表，所有的人员信息来自 人员信息表（图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

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("工贫表")

多谢多谢