if DataTables("临时表").DataRows.Count > 0 then
Dim dr2 As DataRow = DataTables("临时表").DataRows(0)
end if