Dim dt As DataTable = DataTables("房源")
Dim r As DataRow
r = dt.Find("[栋号] = '" & e.datarow("栋号") & "' And [层数]= '" & e.datarow("层数") & "' and [房号]= '" & e.datarow("房号") & "'")
e.datarow("房屋编号") = r("房屋编号")