Dim dt As DataTable
= Me.DataGridView1.DataSource
tleft.Text = Format(dt.Compute( "sum(调整金额)", "true"), "0.00" ).ToString()
sumaverage.ForeColor = Color.Red
UltraStatusBar1.Panels(0).Text = "调整金额合计:" &
Format(dt.Compute("sum( 调整金额)", "true"), "0.00" ).ToString()