Question

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Form2.Show()

    Form2.TextBox1.Text = dgv1.CurrentRow.Cells(0).Value.ToString
    Form2.TextBox2.Text = dgv1.CurrentRow.Cells(1).Value.ToString
    Form2.TextBox3.Text = dgv1.CurrentRow.Cells(2).Value.ToString
    Form2.TextBox4.Text = dgv1.CurrentRow.Cells(3).Value.ToString
    Form2.TextBox5.Text = dgv1.CurrentRow.Cells(4).Value.ToString
    Form2.TextBox6.Text = dgv1.CurrentRow.Cells(5).Value.ToString
    Form2.TextBox7.Text = dgv1.CurrentRow.Cells(6).Value.ToString

textbox5是应该只显示日期的那个，但是当我点击按钮时，文本框会显示日期和时间。例如：12/01/12 12:00 AM。

如何将时间显示在文本框中？

Answer 1

由于CurrentCells（4）.Value是一个对象，请尝试将其转换为DateTime，然后使用ToShortDateString Method进行转换

Form2.TextBox5.Text = CType(dgv1.CurrentRow.Cells(4).Value, DateTime).ToShortDateString

或者您可以使用DateTime.TryParse，如果转换成功，则会返回true

Dim tempDate As Date
If DateTime.TryParse(CStr(dgv.CurrentRow.Cells(4).Value), tempDate) Then
    Form2.TextBox5.Text = tempDate.ToShortDateString
Else
    Form2.TextBox5.Text = "Invalid Date"
End If

Answer 2

...试

If dgv1.CurrentRow.Cells(4).Value IsNot Nothing
    Form2.TextBox5.Text = String.Format("{0:dd/mm/YYYY}", dgv1.CurrentRow.Cells(4).Value)
Else
    Form2.TextBox5.Text = ""
End If

Answer 3

有一个日期时间格式功能。检查此http://msdn.microsoft.com/en-us/library/az4se3k1(v=vs.71).aspx

Answer 4

我刚删除了这行中的.ToString：

Form2.TextBox5.Text = dgv1.CurrentRow.Cells(4).Value.ToString

当我删除.ToString时，它只显示日期文本框中的短日期

Answer 5

尝试

declare MyTime as datetime
Mytime  =  dateadd(day, -datediff(day, 0, Date.now), Date.now)

从日期/时间vb.net删除时间

5 个答案: