使用vb.net

Question

我的数据网格控件中有三列。 X1= Debits，X2= Credits和X3= Available Balance（如银行结余对帐单）。 X1＆amp; X2从数据库和数据库接收数据。 X3通过以下代码计算金额：

 Dim rCount As Integer
 rCount = ds1.Tables(0).Rows.Count
 With DG_All
            For x As Integer = 0 To rCount - 1
                .Rows.Add()
                .Rows(x).Cells(0).Value = ds1.Tables(0).Rows(x)(0) 'X1
                .Rows(x).Cells(1).Value = ds1.Tables(0).Rows(x)(1) 'X2

                If x = 0 Then 'If first row of grid
                    If .Rows(x).Cells(0).Value = 0 Then 'If X1=0 & X2<0
                        .Rows(x).Cells(2).Value = .Rows(x).Cells(1).Value
                    Else 'If X1<0 & X2=0
                        .Rows(x).Cells(2).Value = .Rows(x).Cells(0).Value
                    End If
                Else  'If the grid has more then 1 rows
                    If .Rows(x).Cells(0).Value = 0 Then
                        .Rows(x).Cells(2).Value = .Rows(x - 1).Cells(2).Value + .Rows(x).Cells(1).Value
                    Else
                        .Rows(x).Cells(2).Value = .Rows(x - 1).Cells(2).Value - .Rows(x).Cells(0).Value
                    End If
                End If
            Next
 End With

我的问题是，我需要在水晶报表中使用此计算方法来填充新列中的可用余额字段。

请有人帮助我吗？

我正在使用VB.Net 2012 Ultimate

Answer 1

为您提供基本想法，根据您的领域和需求进行更改。

Local Numbervar rCount:="Take your rows count here";
Local Numbervar x;
Local Numbervar x1;
Local Numbervar x2;

            For x := 0 To rCount - 1 Do
(
                X1= "field from databaset" 'X1
                X2= "field from databaset" 'X2

Write your If and Else if confitions here
)

注意：我会写，但不知道你的代码中的行值和其他术语是什么