自动计算datagridview

Question

如何在datagridview中自动计算Column？

当您将公式设置为列时，类似于 microsoft excel 中的内容。

我有一个约会专栏和一个任期专栏。任期列应使用DateHired - DateToday 公式自动计算。

请帮忙。谢谢。

Answer 1

您可以使用以下语句来计算两个日期之间的年/月/日等等。

LblDateDiff.Text = DateDiff(DateInterval.Year, DateTimePicker1.Value, DateTimePicker2.Value)

您可以传递任何有效日期来代替 DateTimePicker1.value 和 DateTimePicker2.value

您可以使用其他选项代替 DateInterval.Year，如下所示。

• 天
• DayOfYear
• 小时
• 分钟
• 月
• 季度
• 第二
• 工作日
• WeekOfYear
• 年份

要在 DataGridView 中使用上述功能，可以使用以下代码。

Dim ds As New DataSet
qry = "select * from TblDate"
Dim da As New SqlDataAdapter(qry, con)
da.Fill(ds)
If ds.Tables(0).Rows.Count > 0 Then
DataGridView1.DataSource = ds.Tables(0)
DataGridView1.Columns.Add("Days", "Days")
For i = 0 To DataGridView1.Rows.Count - 1
    With DataGridView1.Rows(i)
        .Cells(1).Value = DateDiff(DateInterval.Day, .Cells(0).Value, Today.Date)
    End With
Next

在上面的示例中，您将获得图像中提到的输出，当前日期为 5/7/2016

Answer 2

您可以将 GridView 中的偶数 "CellEndEdit" 处理为：

   Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DataGridView1.Columns.Add("DateHired", "DateHired")
        DataGridView1.Columns.Add("tenure", "tenure")

    End Sub
Private Sub DataGridView1_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
        Try
            Dim order As DataGridView = DirectCast(sender, DataGridView)

            If IsDate(order("DateHired", e.RowIndex).Value) Then
                'Dim dt As Date = order("DateHired", e.RowIndex).Value
                Dim dt1 As Date = order("DateHired", e.RowIndex).Value
                Dim dt2 As Date = Date.Parse(DateTime.Now)
                ' order("tenure", e.RowIndex).Value = DateDiff(DateInterval.Year, dt, Date.Now)
                order("tenure", e.RowIndex).Value = Math.Abs(CInt(dt1.Subtract(dt2).TotalDays / 30))
            End If

        Catch ex As Exception

        End Try
    End Sub
    Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged

        Dim dt1 As Date = Date.Parse(DateTimePicker1.Text)
        Dim dt2 As Date = Date.Parse(DateTime.Now)
        txtTenure.Text = Math.Abs(CInt(dt1.Subtract(dt2).TotalDays / 30))
    End Sub