效果是这样的,但是现在我们的帐票由于需要累加功能,所以都是在format的函数中进行累加和数据的便利显示,这样的话detail部分设置任何东西基本上都没有线显示状态的,都是在下面的goup组中数据一组一组累计一组一组显示出来的,所以上述方法不适用
Private Sub detail_Format(sender As System.Object, e As System.EventArgs) Handles detail.Format
Dim count As Single
If Single.TryParse(txt収支金額.Text, count) Then
sum1 += count
sum2 += sum1
sum3 += sum1
sum4 += sum1
txt本日収支金額.Value = sum1
End If
End Sub
Private Sub groupFooter3_Format(sender As System.Object, e As System.EventArgs) Handles groupFooter3.Format
txt細目計.Value = sum3
sum3 = 0
End Sub
Private Sub groupFooter2_Format(sender As System.Object, e As System.EventArgs) Handles groupFooter2.Format
txt収支合計.Value = sum4
sum4 = 0
End Sub
如图所示
|