要赋值
Dim g As DataRow = DataTables("B").find("mc = '"& e.text &"'")If g IsNot Nothing Then e.Value = g("id")Else e.Value = e.textEnd If