use Text::ASCIITable;
  $t = Text::ASCIITable->new({ headingText => 'Table A' });
  
  $t->setCols('Id','Name','Code');
  $t->addRow(1,'Tom','A');
  $t->addRow(1,'Bill','A');
  $t->addRowLine();

  print $t;

quote:

---

Originally posted by cat_jesus

Looks like homework.

If you actually did all that formatting yourself you would have saved yourself a lot of time by putting it into a usable format, like

Create table #TableA
( ID int not null,
Code varchar(10) null, ..... etc..

An infinite universe is the ultimate cartesian product.

---

 

CREATE TABLE #TableA(
ID int,
Code varchar(10), 
exCode varchar(10) 
)


INSERT INTO #TableA (ID, Code,exCode)
SELECT 	1 ,'A','AAA' 
UNION ALL
SELECT 	1 ,'B','BBB'
UNION ALL
SELECT 	2 ,'A','AAA'
UNION ALL
SELECT 	3 ,'A','AAA'

-- select * from #TableA 
-- DROP Table  #TableA

CREATE TABLE #TableB(
ID int,
Name varchar(10), 
Code varchar(10)  
)


INSERT INTO #TableB (ID,Name,Code)
SELECT 	1 ,'Tom','A' 
UNION ALL
SELECT 	1 ,'Bill','A'
UNION ALL
SELECT 	2 ,'Chad','AAA'
UNION ALL
SELECT 	3 ,'A','A'


-- select * from #TableB
-- DROP Table  #TableB

Insert Into #TableB

select distinct b.ID,b.Name,'AAA' as Code from #TableB b
,(select * from #TableA where (exCode  = 'AAA')  ) a
where a.ID=b.ID  order by b.id asc