Dim pr As row = Tables("父表").Current
Dim fl as string = "子表关联列 = '" & pr("父表关联列") & "'"
Dim Regions As List(Of String) = tbl.DataTable.GetUniqueValues(fl,"管理员")