如何更改日期格式以查看从网格视图到文本框的记录 [英] How to change date format to view record from gird view to into text boxs

问题描述

当我从网格视图查看数据到文本框中时，我的错误是字符串未被识别为有效日期时间



我尝试了什么：



Sub GetDetails（ByVal id As String）



试试

Dim sqlDetails As String = Nothing



sqlDetails =SELECT [ID]，[Branch]，[generator]，[readingdate]， [timeon]，[timeoff]，

sqlDetails + =[PrevReading]，[CurrReading]，

sqlDetails + =CreatedBy，CreateDate，ModifiedBy，ModifyDate FROM [generator] ID =& id





Dim dr As DataRow = objglb.GetDRow（sqlDetails，glbFunctions.strVUDBCon）

如果不是什么都不是

ViewState（ID）= dr（ID）。ToString

ddlBranch.Value = dr（Branch）。ToString（）

ddlgenerator.SelectedValue = dr（generator）。ToString（）



txtreadingdate.Text = dr（readingdate）。ToString（ ）

txtTimeOn.Text = dr（timeon）。ToString（）



txtTimeOff.Text = dr（timeoff）。 ToString（）

txtPrevReading.Text = dr（PrevReading）。ToString（）

txtCurrReading.Text = dr（CurrReading）。ToString（）

lblCreatedBy.Text =创建者：&博士（CreatedBy）。ToString& （& Convert.ToDateTime（dr（CreateDate）。ToString）.ToString（dd-MM-yy hh：mm tt）&）

If Not IsDBNull（博士（ModifiedBy））然后

lblModifiedBy.Text =修改者：&博士（ModifiedBy）& （& Convert.ToDateTime（dr（ModifyDate）。ToString）.ToString（dd-MM-yy hh：mm tt）&）

Else
lblModifiedBy.Text =

结束如果



SetEditMode（）

DisableControls（ ）

Else

lblMsg.Visible = True

lblMsg.ForeColor = Drawing.Color.Red

lblMsg。 Text =获取详细信息时出现问题！请稍后再试。

结束如果

Catch ex As Exception

lblMsg.Visible = True

lblMsg.ForeColor = Drawing.Color.Red

lblMsg.Text = ex.Message

结束尝试



结束Sub

when i view data from grid view to into text box against a id then my error is"String was not recognized as a valid DateTime"

What I have tried:

Sub GetDetails(ByVal id As String)

Try
Dim sqlDetails As String = Nothing

sqlDetails = " SELECT [ID],[Branch],[generator],[readingdate],[timeon],[timeoff],"
sqlDetails += "[PrevReading],[CurrReading], "
sqlDetails += " CreatedBy,CreateDate,ModifiedBy,ModifyDate FROM [generator] Where ID= " & id


Dim dr As DataRow = objglb.GetDRow(sqlDetails, glbFunctions.strVUDBCon)
If Not dr Is Nothing Then
ViewState("ID") = dr("ID").ToString
ddlBranch.Value = dr("Branch").ToString()
ddlgenerator.SelectedValue = dr("generator").ToString()

txtreadingdate.Text = dr("readingdate").ToString()
txtTimeOn.Text = dr("timeon").ToString()

txtTimeOff.Text = dr("timeoff").ToString()
txtPrevReading.Text = dr("PrevReading").ToString()
txtCurrReading.Text = dr("CurrReading").ToString()
lblCreatedBy.Text = "Created By: " & dr("CreatedBy").ToString & " (" & Convert.ToDateTime(dr("CreateDate").ToString).ToString("dd-MM-yy hh:mm tt") & ")"
If Not IsDBNull(dr("ModifiedBy")) Then
lblModifiedBy.Text = "Modified By: " & dr("ModifiedBy") & " (" & Convert.ToDateTime(dr("ModifyDate").ToString).ToString("dd-MM-yy hh:mm tt") & ")"
Else
lblModifiedBy.Text = ""
End If

SetEditMode()
DisableControls()
Else
lblMsg.Visible = True
lblMsg.ForeColor = Drawing.Color.Red
lblMsg.Text = "Problem in getting details! Please try later."
End If
Catch ex As Exception
lblMsg.Visible = True
lblMsg.ForeColor = Drawing.Color.Red
lblMsg.Text = ex.Message
End Try

End Sub

推荐答案

我认为问题发生在以下几行：

I assume the problem occurs somewhere around the following lines:

Convert.ToDateTime(dr("CreateDate").ToString).ToString("dd-MM-yy hh:mm tt") & ")"
If Not IsDBNull(dr("ModifiedBy")) Then
lblModifiedBy.Text = "Modified By: " & dr("ModifiedBy") & " (" & Convert.ToDateTime(dr("ModifyDate").ToString).ToString("dd-MM-yy hh:mm tt") & ")"

为什么要将 DateTime 值转换为 String s只是将它们转换回 DateTime s？

Why are you converting DateTime values to Strings just to convert them back to DateTimes?

这篇关于如何更改日期格式以查看从网格视图到文本框的记录的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！