Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,037

HOME > .NET Framework > Forum > ช่วยดูหน่อยคับ หัดทำจากตัวอย่าง มัน error ตรงที่ e.Item.DataItem("Used")ตัวนี้มันคืออะไรหรอคับ

ช่วยดูหน่อยคับ หัดทำจากตัวอย่าง มัน error ตรงที่ e.Item.DataItem("Used")ตัวนี้มันคืออะไรหรอคับ

เริ่มหัวข้อใหม่

tordor

โพสกระทู้ ( 50 )
บทความ ( 0 )

<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.SqlClient"%>
<%@ Page Language="VB" %>
<script runat="server">

Dim objConn As SqlConnection
Dim objCmd As SqlCommand

Sub Page_Load(sender As Object, e As EventArgs)
Dim strConnString As String
strConnString = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase;Max Pool Size=400;Connect Timeout=600;"
objConn = New SqlConnection(strConnString)
objConn.Open()

BindData()
End Sub

Sub BindData()
Dim strSQL As String
strSQL = "SELECT * FROM customer"

Dim dtReader As SqlDataReader
objCmd = New SqlCommand(strSQL, objConn)
dtReader = objCmd.ExecuteReader()

'*** BindData to Repeater ***'
myRepeater.DataSource = dtReader
myRepeater.DataBind()

dtReader.Close()
dtReader = Nothing

End Sub

Sub Page_UnLoad()
objConn.Close()
objConn = Nothing
End Sub

Sub myRepeater_ItemDataBound(ByVal sender As Object, ByVal e As RepeaterItemEventArgs) Handles myRepeater.ItemDataBound

'*** CustomerID ***'
Dim lblCustomerID As Label = CType(e.Item.FindControl("lblCustomerID"),Label)
IF Not IsNothing(lblCustomerID) Then
lblCustomerID.Text = e.Item.DataItem("CustomerID")
End IF

'*** Name ***'
Dim lblName As Label = CType(e.Item.FindControl("lblName"),Label)
IF Not IsNothing(lblName) Then
lblName.Text = e.Item.DataItem("Name")
End IF

'*** Email ***'
Dim lblEmail As Label = CType(e.Item.FindControl("lblEmail"),Label)
IF Not IsNothing(lblEmail) Then
lblEmail.Text = e.Item.DataItem("Email")
End IF

'*** CountryCode ***'
Dim lblCountryCode As Label = CType(e.Item.FindControl("lblCountryCode"),Label)
IF Not IsNothing(lblCountryCode) Then
lblCountryCode.Text = e.Item.DataItem("CountryCode")
End IF

'*** Budget ***'
Dim lblBudget As Label = CType(e.Item.FindControl("lblBudget"),Label)
IF Not IsNothing(lblBudget) Then
lblBudget.Text = e.Item.DataItem("Budget")
End IF

'*** Used ***'
Dim lblUsed As Label = CType(e.Item.FindControl("lblUsed"),Label)
IF Not IsNothing(lblUsed) Then
lblUsed.Text = e.Item.DataItem("Used")
End IF

'*** Hyperlink ***'
Dim hplEdit As Hyperlink = CType(e.Item.FindControl("hplEdit"),Hyperlink)
IF Not IsNothing(hplEdit) Then
hplEdit.Text = "Edit"
hplEdit.NavigateUrl = "AspNetSQLServerEditForm.aspx?CustomerID=" & e.Item.DataItem("CustomerID")
End IF

End Sub

</script>
<html>
<head>
<title>ThaiCreate.Com ASP.NET - SQL Server</title>
</head>
<body>
<form id="form1" runat="server">
<asp:Repeater id="myRepeater" runat="server">
<HeaderTemplate>
<table border="1">
<tr>
<th>CustomerID</th>
<th>Name</th>
<th>Email</th>
<th>CountryCode</th>
<th>Budget</th>
<th>Used</th>
<th>Edit</th>
</tr>
</HeaderTemplate>
<ItemTemplate>
<tr>
<td align="center"><asp:Label id="lblCustomerID" runat="server"></asp:Label></td>
<td><asp:Label id="lblName" runat="server"></asp:Label></td>
<td><asp:Label id="lblEmail" runat="server"></asp:Label></td>
<td align="center"><asp:Label id="lblCountryCode" runat="server"></asp:Label></td>
<td align="right"><asp:Label id="lblBudget" runat="server"></asp:Label></td>
<td align="right"><asp:Label id="lblUsed" runat="server"></asp:Label></td>
<td align="right"><asp:Hyperlink id="hplEdit" runat="server"></asp:Hyperlink></td>
</tr>
</ItemTemplate>
</asp:Repeater>
</form>
</body>
</html>

ตรงที่ e.Item.DataItem("Used")ตัวนี้มันคืออะไรหรอคับ

Tag : - - - -

Date : 2009-12-08 13:17:18

By : tordor012

View : 1564

Reply : 6

No. 1

Poo_CodeZA

โพสกระทู้ ( 179 )
บทความ ( 0 )

Error ตรงไหนครับแล้วใน Table ได้สร้างFiled CustomerID,Name,Email,CountryCode,Budget,Used ครบหรือเปล่า ครับ

e.Item.DataItem("Used") มันเป็นการอ้างถึง filed ที่อยู่ใน DataSource โดย DataSource นั้นก็จะเก็บค่าที่เรา Select มาจาก Database โดย จะได้ชื่อ ของ Filed และข้อมูลภายใน Filed มาด้วยครับ งง หรือเปล่าครับ
^^

Date : 2009-12-08 13:33:15

By : ksillapapan

No. 2

tordor

โพสกระทู้ ( 50 )
บทความ ( 0 )

e.Item.DataItem("Used") error ตรงนี้เลยครับ มันขึ้นว่า option strict on disallows late binding
อะคับมันหมายความว่าไงอะคับ ผมทำตามตัวอย่างทุกขั้นตอนแล้วนะครับ

Date : 2009-12-08 15:08:39

By : tordor012

No. 3

xxx

โพสกระทู้ ( 3,144 )
บทความ ( 1 )

ลอง remark ส่วนนี้ออกไปดูนะครับ ว่า error อีกไหม

ถ้า error อยู่แสดงว่าเป็นที่ code

ถ้าไม่แสดงว่าเป็นที่ database

remark โค้ดตรงนี้

  Dim lblUsed As Label = CType(e.Item.FindControl("lblUsed"),Label)
  IF Not IsNothing(lblUsed) Then
     lblUsed.Text = e.Item.DataItem("Used")
  End IF

Date : 2009-12-08 15:19:23

By : tungman

No. 4

การันตี

โพสกระทู้ ( 18 )
บทความ ( 0 )

ช่วยตอบข้อนี้หน่อยนะครับเป็นเหมือนกัน ติดมาหลายวันแล้วครับ

**
จากความเห็นที่ 3 นะครับ ของผม พอ remark ส่วนนี้ออกไปแล้วไม่ Error ครับ ต้องแก้ ดาต้าเบสยังไงครับ T_T

Date : 2009-12-19 17:34:44

By : sakee147

No. 5

Poo_CodeZA

โพสกระทู้ ( 179 )
บทความ ( 0 )

ใน Database ตอนนี้มี filed อะไรบ้างครับ TYPE ด้วยนะครับ

Date : 2009-12-19 21:39:44

By : ksillapapan

No. 6

xxx

โพสกระทู้ ( 3,144 )
บทความ ( 1 )

debug โลดครับพี่น้อง

Date : 2009-12-21 08:21:07

By : tungman

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : ช่วยดูหน่อยคับ หัดทำจากตัวอย่าง มัน error ตรงที่ e.Item.DataItem("Used")ตัวนี้มันคืออะไรหรอคับ

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก