主题：代码求教

Dim dtb1 As New DataTableBuilder("原职工购股标准表")
dtb1.AddDef("工资编号1", Gettype(String), 16)
dtb1.AddDef("姓名1", Gettype(String), 16)
dtb1.AddDef("原职位1", Gettype(String), 16)
dtb1.AddDef("原技术职务等级1", Gettype(String), 16)
dtb1.AddDef("购股11", Gettype(Double))
dtb1.AddDef("购股21", Gettype(Double))
dtb1.AddDef("购股标准1", Gettype(Double))
dtb1.AddDef("现持股金1", Gettype(String), 16)
dtb1.AddDef("其中资本股1", Gettype(String), 16)
dtb1.AddDef("其中岗位股份1", Gettype(String), 16)
dtb1.Build()
Dim dt1 As DataTable = DataTables("原职工购股标准表")
Dim dt2 As DataTable = DataTables("原人员信息岗位股明细表")
For Each nm As String In dt2.GetValues("工资编号")
    Dim dr1 As DataRow = dt1.AddNew()
    dr1("工资编号1") = nm
    Dim num1 As Double = dt2.Compute("max(购股标准)", "工资编号 = '" & nm & "'")
    Dim num2 As Double = dt2.Compute("max(对应购股标准)", "工资编号 = '" & nm & "'")
    dr1("购股11") = num1
    dr1("购股21") = num2
    Dim fdr1 As DataRow
    If num1 > num2 Then
        dr1("购股标准1") = num1
        fdr1 = dt2.find("工资编号 = '" & nm & "' and 购股标准 = '" & num1 & "'")
    Else
        dr1("购股标准1") = num2
        fdr1 = dt2.find("工资编号 = '" & nm & "' and 对应购股标准 = '" & num2 & "'")
    End If
    dr1("姓名1") = fdr1("姓名")
    dr1("原技术职务等级1") = fdr1("原技术职务等级")
    dr1("原职位1") = fdr1("原职位")
    dr1("现持股金1") = fdr1("现持股金")
    dr1("其中资本股1") = fdr1("其中资本股")
    dr1("其中岗位股份1") = fdr1("其中岗位股份")
Next
Dim dtb2 As New DataTableBuilder("统计")
dtb2.AddDef("工资编号2", Gettype(String), 16)
dtb2.AddDef("姓名2", Gettype(String), 16)
dtb2.AddDef("行政职务2", Gettype(String), 16)
dtb2.AddDef("技术职务等级2", Gettype(String), 16)
dtb2.AddDef("购股12", Gettype(Double))
dtb2.AddDef("购股22", Gettype(Double))
dtb2.AddDef("购股标准2", Gettype(Double))
dtb2.AddDef("现持股金2", Gettype(String), 16)
dtb2.AddDef("其中资本股2", Gettype(String), 16)
dtb2.AddDef("其中岗位股份2", Gettype(String), 16)
dtb2.Build()
Dim dt3 As DataTable = DataTables("统计")
Dim dt4 As DataTable = DataTables("人员信息岗位股明细表")
For Each nm As String In dt4.GetValues("工资编号")
    Dim dr2 As DataRow = dt3.AddNew()
    dr2("工资编号2") = nm
    Dim num1 As Double = dt4.Compute("max(购股标准)", "工资编号 = '" & nm & "'")
    Dim num2 As Double = dt4.Compute("max(对应购股标准)", "工资编号 = '" & nm & "'")
    dr2("购股12") = num1
    dr2("购股22") = num2
    Dim fdr2 As DataRow
    If num1 > num2 Then
        dr2("购股标准2") = num1
        fdr2 = dt4.find("工资编号 = '" & nm & "' and 购股标准 = '" & num1 & "'")
    Else
        dr2("购股标准2") = num2
        fdr2 = dt4.find("工资编号 = '" & nm & "' and 对应购股标准 = '" & num2 & "'")
    End If
    dr2("姓名2") = fdr2("姓名")
    dr2("技术职务等级2") = fdr2("技术职务等级")
    dr2("行政职务2") = fdr2("行政职务")
    dr2("现持股金2") = fdr2("现持股金")
    dr2("其中资本股2") = fdr2("其中资本股")
    dr2("其中岗位股份2") = fdr2("其中岗位股份")
Next

Dim dtb As New DataTableBuilder("职工购股情况差异对比表")
dtb.AddDef("姓名", Gettype(String), 16)
dtb.AddDef("原职位", Gettype(String), 16)
dtb.AddDef("原技术职务等级", Gettype(String), 16)
dtb.AddDef("职位", Gettype(String), 16)
dtb.AddDef("技术职务", Gettype(String), 16)
dtb.AddDef("原购股标准", Gettype(Double))
dtb.AddDef("购股标准", Gettype(Double))
dtb.AddDef("现持股金", Gettype(String), 16)
dtb.AddDef("其中资本股", Gettype(String), 16)
dtb.AddDef("其中岗位股份", Gettype(String), 16)
dtb.Build()
Dim dt5 As DataTable = DataTables("职工购股情况差异对比表")
For Each nm As String In dt4.GetValues("工资编号")
    Dim dr As DataRow = dt5.AddNew()
    Dim fdr1 As DataRow = dt1.find("工资编号 = '" & nm & "'")
    Dim fdr2 As DataRow = dt3.find("工资编号 = '" & nm & "'")
    dr("原技术职务等级") = fdr1("技术职务等级1")
    dr("职位") = fdr2("行政职务2")
    dr("技术职务") = fdr2("技术职务等级2")
    dr("原购股标准") = fdr1("购股标准1")
    dr("购股标准") = fdr2("购股标准2")
    dr("现持股金") = fdr2("现持股金2")
    dr("其中资本股") = fdr2("其中资本股2")
    dr("其中岗位股份") = fdr2("其中岗位股份2")
Next
MainTable= Tables("职工购股情况差异对比表")