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

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