……
dtb.AddDef("现持股金", Gettype(String), 16)
dtb.Build()
Dim dt As DataTable = DataTables("职工购股情况差异对比表8月份")
Dim dt2 As DataTable = DataTables("原人员信息岗位股明细表8月份")
Dim dt4 As DataTable = DataTables("人员信息岗位股明细表")
Dim sql As String = "Select distinct 工资编号 from (Select 工资编号 from 原人员信息岗位股明细表8月份 union Select 工资编号 from 人员信息岗位股明细表) As a"
Dim cmd As new SQLCommand
cmd.CommandText = sql
Dim dt As DataTable = cmd.ExecuteReader
For Each drgj As DataRow In dt.DataRows
Dim nm Asstring = drgj("工资编号")
Dim dr As DataRow = dt.AddNew()
dr("工资编号") = nm
Dim num1 As Double = dt2.Compute("max(购股标准)", "工资编号 = '" & nm & "'")
Dim num2 As Double = dt2.Compute("max(对应购股标准)", "工资编号 = '" & nm & "'")
……原来的比较代码
Next