主题：[求助]这段代码问题在哪里？（已解决）

Dim dw As String
dw = e.Form.Controls("ComboBox1").Value
'生成临时表1
Dim dtb As New DataTableBuilder("临时表1")
dtb.AddDef("编号", Gettype(String), 16)
dtb.AddDef("姓名", Gettype(String), 16)
dtb.Build()
MainTable= Tables("临时表1")
'加载全部名单
DataTables("临时表1").Fill("Select [_Identify],编号,姓名 From {a}",False)
'生成临时表2
Dim g As new OuterTableBuilder
g.TableName = "临时表2"
g.SelectString = "Select [_Identify],编号,单位 From {b}"
g.Build
Tables("临时表2").AutoSizeCols()
'增加列
Dim t As Table = Tables("临时表1")
t.DataTable.DataCols.Add("单位",Gettype(String),16)
'填充单位
For Each dr As DataRow In DataTables("临时表1").DataRows
    Dim pr1 As DataRow
    If dr.IsNull("编号") Then
        dr("单位") = Nothing
    Else
        pr1 = DataTables("临时表2").Find("编号 = '" & dr("编号") & "'")
        If pr1 IsNot Nothing Then
            dr("单位") = pr1("单位")
        Else
            dr("单位") = Nothing
        End If
    End If
Next
'加载单位名单
If dw <> "" Then
    DataTables("临时表1").LoadFilter = "单位 = '"& dw &"'"
    DataTables("临时表1").Load
Else
    DataTables("临时表1").LoadFilter = ""
    DataTables("临时表1").Load
End If
DataTables("临时表1").Save()