Question

我试图用日期填充gridview。

例如今天是2/18/2019，下一个日期在30天内是3/20/2019。所以所需的输出应该像这样

No.     Date
1       3/20/2019
2       4/19/2019
3       5/19/2019

等

但结果是

No.     Date
1       3/20/2019
2       3/20/2019
3       3/20/2019

等

到目前为止，这是我的代码。

Dim termCounter As Integer = 36
Dim today As DateTime = DateTime.Today
Dim dueDate As DateTime = today.AddDays(30)

Dim dtable As DataTable = New DataTable()
dtable.Columns.Add("No.")
dtable.Columns.Add("Payment Date")
Dim RowValues As Object() = {"", ""}
Dim dRow As DataRow

Dim tmpDate As Date
For i As Integer = 1 To termCounter
                    If GridAmortSched.RowCount <= 0 Then
                        RowValues(0) = i
                        RowValues(1) = dueDate.ToShortDateString
                        dRow = dtable.Rows.Add(RowValues)
                    Else
                        tmpDate = GridAmortSched.Rows(GridAmortSched.RowCount - 1).Cells(1).Value.ToString()
                        RowValues(0) = i
                        RowValues(1) = tmpDate.AddDays(30).ToShortDateString
                        dRow = dtable.Rows.Add(RowValues)
                    End If
                Next
                dtable.AcceptChanges()
                GridAmortSched.DataSource = dtable

Answer 1

在通常情况下，代码的行为与您要求的一样，而不是您想要的：-）。

每次循环时，都从同一源设置tmpDate，然后在两行之后，将值放入RowValues中。：

tmpDate = GridAmortSched.Rows(GridAmortSched.RowCount - 1).Cells(1).Value.ToString()

您不会通过i来调整信号源，也不会增加它。 AddDays时，您也不会调整原始值（由于分配方式和时间的原因，该值将无效）。

两个简单的修复程序（两个选项）

一个。第一个是根据循环值对要添加的天数编制索引-对以下代码进行简单修改即可实现这一点。这是一个快速修复，将来可能很难维护-更重要的是，如果您更改诸如循环起始点之类的内容，则更难发现。

RowValues(1) = tmpDate.AddDays(30*i).ToShortDateString

两个。另一个选项是解决代码逻辑。设置基线值，然后在循环中递增它。

Dim tmpDate As Date
tmpDate = GridAmortSched.Rows(GridAmortSched.RowCount - 1).Cells(1).Value.ToString() '*** Moved outside of loop
For i As Integer = 1 To termCounter
    If GridAmortSched.RowCount <= 0 Then
        RowValues(0) = i
        RowValues(1) = dueDate.ToShortDateString
        dRow = dtable.Rows.Add(RowValues)
    Else

        RowValues(0) = i
        tmpDate = tmpDate.AddDays(30) '*** Increment date every time it passes here
        RowValues(1) = tmpDate.ToShortDateString '*** Assign the new value
        dRow = dtable.Rows.Add(RowValues)
    End If
Next
dtable.AcceptChanges()
GridAmortSched.DataSource = dtable

VB.NET：使用日期填充Gridview（间隔30天）

1 个答案:

两个简单的修复程序（两个选项）