sumary in text box:
dim d1 as ineger
dim d2 as integer
dim d3 as inrteger
dim d4 as integer
d1=dataset1.datatable1.sum("sum(colum1)",string.empty)
d2=dataset1.datatable2.sum("su(colum1)",string.empty)
d3=dataset1.datatable3.sum("sum(colum1)",string.empty)
d4=dataset1.datatable4.sum("sum(colum1)",string.empty)
me.textbox1.text=d1+d2+d3+d4