Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,027

HOME > .NET Framework > Forum > เพิ่มข้อมูลใน DataTable แล้วข้อมูลใหม่ทับข้อมูลเก่า (เทพ ASP.NET ช่วยหน่อยนะค่ะ แก้มาสามวันแล้ว)



 

เพิ่มข้อมูลใน DataTable แล้วข้อมูลใหม่ทับข้อมูลเก่า (เทพ ASP.NET ช่วยหน่อยนะค่ะ แก้มาสามวันแล้ว)

 



Topic : 119847



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



สถานะออฟไลน์




เจอปัญหาเวลาเพิ่มข้อมูลแล้วข้อมูลใหม่จะทับข้อมูลเก่า มันไม่ยอมออกเป็น row 1 2 3 ... อ่ะค่ะ

Code (VB.NET)
Protected Sub btnadd_Click(sender As Object, e As ImageClickEventArgs) Handles btnadd.Click

        Dim dt As New DataTable()
        Dim ds As New DataSet
        Dim dr As DataRow

        dt.Columns.Add(New DataColumn("NO.", GetType(Integer)))
        dt.Columns("NO.").AutoIncrement = True
        dt.Columns("NO.").AutoIncrementSeed = 1

        dt.Columns.Add(New DataColumn("ชื่ออาหาร", GetType(String)))
        dt.Columns.Add(New DataColumn("ร้านอาหาร", GetType(String)))
        dt.Columns.Add(New DataColumn("เพิ่มเติม", GetType(String)))
        dt.Columns.Add(New DataColumn("จำนวน/หน่วย", GetType(Integer)))
        dt.Columns.Add(New DataColumn("ราคา", GetType(Integer)))
        dt.Columns.Add(New DataColumn("ราคารวม", GetType(Integer)))

        dr = dt.NewRow()
        dr("ชื่ออาหาร") = ddlmenu.SelectedItem.Text.Trim
        dr("ร้านอาหาร") = ddlstore2.SelectedItem.Text.Trim

        For i = 0 To cboxOption.Items.Count - 1
            If cboxOption.Items(i).Selected Then
                dr("เพิ่มเติม") = cboxOption.SelectedItem.Text & "," & cboxOption.Items(i).Text
            End If
        Next
        dr("จำนวน/หน่วย") = txtquantity.Text.Trim
        dr("ราคา") = txtunitPrice.Text.Trim
        dr("ราคารวม") = (txtquantity.Text) * (txtunitPrice.Text)
        dt.Rows.Add(dr)

        ds.Tables.Add(dt)
        GridView1.DataSource = dt
        GridView1.DataBind()

    End Sub




Tag : .NET, Web (ASP.NET), VB.NET









ประวัติการแก้ไข
2015-11-13 15:21:11
Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2015-11-11 09:37:33 By : heaunn View : 1886 Reply : 21
 

 

No. 1



โพสกระทู้ ( 4,434 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

มันเพิ่มแค่ row เดียวยุแล้วนิครับ

Code (C#)
Dim dt As New DataTable()
Dim ds As New DataSet
Dim dr As DataRow


ถ้าต้องการให้ dt เก็บค่าเพิ่ม ต้องประกาศ ใน class ครับ






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-11-11 09:53:51 By : lamaka.tor
 


 

No. 2



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



สถานะออฟไลน์


ทำแบบนี้แล้วก็ยังทับข้อมูลเดิมอยู่อ่ะค่ะ

Code (VB.NET)
Public Function newDataTable()
        Dim dt As New DataTable()
        Dim ds As New DataSet
        Dim dr As DataRow

        dt.Columns.Add(New DataColumn("NO.", GetType(Integer)))
        dt.Columns("NO.").AutoIncrement = True
        dt.Columns("NO.").AutoIncrementSeed = 1

        dt.Columns.Add(New DataColumn("ชื่ออาหาร", GetType(String)))
        dt.Columns.Add(New DataColumn("ร้านอาหาร", GetType(String)))
        dt.Columns.Add(New DataColumn("เพิ่มเติม", GetType(String)))
        dt.Columns.Add(New DataColumn("จำนวน/หน่วย", GetType(Integer)))
        dt.Columns.Add(New DataColumn("ราคา", GetType(Integer)))
        dt.Columns.Add(New DataColumn("ราคารวม", GetType(Integer)))

        dr = dt.NewRow()
        dr("ชื่ออาหาร") = ddlmenu.SelectedItem.Text.Trim
        dr("ร้านอาหาร") = ddlstore2.SelectedItem.Text.Trim

        'For i = 0 To cboxOption.Items.Count - 1
        '    If cboxOption.Items(i).Selected Then
        '        Dim chk As String
        '        chk = cboxOption.SelectedItem.Text & "," & cboxOption.Items(i).Text
        '        'cboxOption.SelectedItem.Text = cboxOption.SelectedItem.Text & "," & cboxOption.Items(i).Text
        '        dr("เพิ่มเติม") = chk
        '    End If
        'Next

        Dim check As String = ""
        For Each li As ListItem In cboxOption.Items
            If li.Selected Then
                If check = "" Then
                    check = (li.Text)
                    dr("เพิ่มเติม") = check
                Else
                    check += ("," + li.Text)
                    dr("เพิ่มเติม") = check
                End If
            End If
        Next

        dr("จำนวน/หน่วย") = txtquantity.Text.Trim
        dr("ราคา") = txtunitPrice.Text.Trim
        dr("ราคารวม") = (txtquantity.Text) * (txtunitPrice.Text)
        dt.Rows.Add(dr)

        ds.Tables.Add(dt)
        GridView1.DataSource = dt
        GridView1.DataBind()

        Return dt
    End Function


Code (VB.NET)
Protected Sub btnadd_Click(sender As Object, e As ImageClickEventArgs) Handles btnadd.Click
        newDataTable()
    End Sub



ประวัติการแก้ไข
2015-11-11 13:55:10
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-11-11 13:49:16 By : heaunn
 

 

No. 3

Guest


มันจะเพิ่มได้ไงในเมื่อสั่ง new datatable ใหม่ทุกครั้งที add

ประกาศไว้ที่ class สิ ไม่ใช่ใน method
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-11-11 14:09:27 By : xxx-xxx-xxx
 


 

No. 4



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



สถานะออฟไลน์


พึ่งเคยเขียนโค้ดด้วย Asp.net VB ครั้งแรกค่ะ เลยไม่ค่อยเข้าใจ ประกาศไว้ใน class นี่ทำยังไงเหรอค่ะ อยากได้ตัวอย่างอ่ะค่ะ


ประวัติการแก้ไข
2015-11-11 14:41:41
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-11-11 14:33:54 By : heaunn
 


 

No. 5



โพสกระทู้ ( 4,434 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

Code (VB.NET)
Public Class WebForm1
    Inherits System.Web.UI.Page
        Dim dt As New DataTable()
        Dim ds As New DataSet
        Dim dr As DataRow
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        dt.Columns.Add(New DataColumn("NO.", GetType(Integer)))
        dt.Columns("NO.").AutoIncrement = True
        dt.Columns("NO.").AutoIncrementSeed = 1

        dt.Columns.Add(New DataColumn("ชื่ออาหาร", GetType(String)))
        dt.Columns.Add(New DataColumn("ร้านอาหาร", GetType(String)))
        dt.Columns.Add(New DataColumn("เพิ่มเติม", GetType(String)))
        dt.Columns.Add(New DataColumn("จำนวน/หน่วย", GetType(Integer)))
        dt.Columns.Add(New DataColumn("ราคา", GetType(Integer)))
        dt.Columns.Add(New DataColumn("ราคารวม", GetType(Integer)))
    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    End Sub

Public Function newDataTable()



        dr = dt.NewRow()
        dr("ชื่ออาหาร") = ddlmenu.SelectedItem.Text.Trim
        dr("ร้านอาหาร") = ddlstore2.SelectedItem.Text.Trim

        'For i = 0 To cboxOption.Items.Count - 1
        '    If cboxOption.Items(i).Selected Then
        '        Dim chk As String
        '        chk = cboxOption.SelectedItem.Text & "," & cboxOption.Items(i).Text
        '        'cboxOption.SelectedItem.Text = cboxOption.SelectedItem.Text & "," & cboxOption.Items(i).Text
        '        dr("เพิ่มเติม") = chk
        '    End If
        'Next

        Dim check As String = ""
        For Each li As ListItem In cboxOption.Items
            If li.Selected Then
                If check = "" Then
                    check = (li.Text)
                    dr("เพิ่มเติม") = check
                Else
                    check += ("," + li.Text)
                    dr("เพิ่มเติม") = check
                End If
            End If
        Next

        dr("จำนวน/หน่วย") = txtquantity.Text.Trim
        dr("ราคา") = txtunitPrice.Text.Trim
        dr("ราคารวม") = (txtquantity.Text) * (txtunitPrice.Text)
        dt.Rows.Add(dr)

        ds.Tables.Add(dt)
        GridView1.DataSource = dt
        GridView1.DataBind()

        Return dt
    End Function
End Class


ประกาศไว้ที่ class ใช้ได้ทั้ง class

ที่เหลือก็ลองเอาไปซ่อมๆเอาครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-11-11 15:06:16 By : lamaka.tor
 


 

No. 6



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



สถานะออฟไลน์


อ่อ เข้าใจแหละประกาศไว้ที่ Class คือไว้นอก sub หรือ function นั่นเอง ขอบคุณมากค่ะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-11-11 15:23:28 By : heaunn
 


 

No. 7



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



สถานะออฟไลน์


พอทำตามที่คุณ TOR_CHEMISTRY แนะนำ มันขึ้น Error ตรงค่าที่จะนำไปใส่ใน Datatable แต่ถ้าไม่ได้อยู่ในฟังก์ชั่นก็ได้ปกติอ่ะค่ะ ส่วน ddlmenu.SelectedItem.Text.Trim มันก็ไม่ได้ขึ้นข้อมูลตามที่เลือกใน DDL ค่ะ เช่น ถ้าเลือก ร้านที่1 มันก็ขึ้น กรุณาเลือกรายการ ควรจะแก้ยังไงดีค่ะ

Input string was not in a correct format.

Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: System.FormatException: Input string was not in a correct format.

Source Error:



Line 239: Next
Line 240:
Line 241: dr("จำนวน/หน่วย") = txtquantity.Text.Trim
Line 242: dr("ราคา") = txtunitPrice.Text.Trim
Line 243: dr("ราคารวม") = (txtquantity.Text) * (txtunitPrice.Text)
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-11-11 15:38:04 By : heaunn
 


 

No. 8



โพสกระทู้ ( 4,434 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

dt.Columns.Add(New DataColumn("จำนวน/หน่วย", GetType(Integer)))

เขาว่างั้นอ่าครับ

ไม่ลองทำให้เป็น Integer ตามเขาละครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-11-11 17:22:46 By : lamaka.tor
 


 

No. 9



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



สถานะออฟไลน์


ช้อมูลใหม่ยังทับข้อมูลเก่าเหมือนเดิมค่ะ ทำตามที่คุณ TOR_CHEMISTRY แนะนำแล้วก็ยังทับเหมือนเดิม
เราเขียนโค้ดพลาดตรงไหนนีิแก้มาสองสามวันแล้ว
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-11-12 08:22:42 By : heaunn
 


 

No. 10



โพสกระทู้ ( 4,434 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

ขอดูโค๊ด
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-11-12 08:48:24 By : lamaka.tor
 


 

No. 11



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



สถานะออฟไลน์


Code (VB.NET)
    Dim dt As New DataTable()
    Dim ds As New DataSet
    Dim dr As DataRow

    Dim con As String = ConfigurationManager.ConnectionStrings("con").ConnectionString
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not IsPostBack Then
            CheckBoxListDataTable()
            'txtfoodDetails.ReadOnly = True
            loadddlstore()
        End If

        dt.Columns.Add(New DataColumn("NO.", GetType(Integer)))
        dt.Columns("NO.").AutoIncrement = True
        dt.Columns("NO.").AutoIncrementSeed = 1

        dt.Columns.Add(New DataColumn("ชื่ออาหาร", GetType(String)))
        dt.Columns.Add(New DataColumn("ร้านอาหาร", GetType(String)))
        dt.Columns.Add(New DataColumn("เพิ่มเติม", GetType(String)))
        dt.Columns.Add(New DataColumn("จำนวน", GetType(Integer)))
        dt.Columns.Add(New DataColumn("ราคา/หน่วย", GetType(Decimal)))
        dt.Columns.Add(New DataColumn("ราคารวม", GetType(Decimal)))

        '**** DateToday ***'
        txtdate.Text = Date.Today()
    End Sub

    Sub CheckBoxListDataTable()
        Dim SqlCon As New SqlConnection(con)
        Dim da As New SqlDataAdapter
        Dim dt As New DataTable

        SqlCon.Open()
        Dim strSQL As String
        strSQL = "SELECT * FROM OptionFood"
        da = New SqlDataAdapter(strSQL, SqlCon)
        da.Fill(dt)

        da = Nothing
        SqlCon.Close()
        SqlCon = Nothing

        With cboxOption
            .DataSource = dt
            .DataTextField = "OptionName"
            .DataValueField = "rkey"
            .DataBind()
        End With

        'cboxOption.SelectedIndex = cboxOption.Items.IndexOf(cboxOption.Items.FindByValue("1"))
    End Sub

    Protected Sub loadddlstore()
        ddlstore2.AppendDataBoundItems = True
        Dim sqlCon As New SqlConnection(con)
        Dim da As New SqlDataAdapter
        Dim dt As New DataTable

        sqlCon.Open()
        Dim strSQL As String
        strSQL = "SELECT storeID, storeName FROM Store WHERE online = '1'"
        da = New SqlDataAdapter(strSQL, sqlCon)
        da.Fill(dt)

        da = Nothing
        sqlCon.Close()
        sqlCon = Nothing

        Try
            With ddlstore2
                .DataSource = dt
                .DataTextField = "storeName"
                .DataValueField = "storeID"
                .DataBind()
                .Items.Insert(0, New ListItem("กรุณาเลือกร้านอาหาร", "0"))
            End With

            ddlstore2.SelectedIndex = ddlstore2.Items.IndexOf(ddlstore2.Items.FindByValue("0"))
        Catch ex As Exception
            Throw ex
        End Try
    End Sub

    Protected Sub ddlstore2_SelectIndexChanged(sender As Object, e As EventArgs)
        ddlstore2.AppendDataBoundItems = True
        Dim sqlCon As New SqlConnection(con)
        Dim strSQL As String
        Dim cmd As New SqlCommand()

        strSQL = "SELECT rkey,foodName FROM StoreFood WHERE statusonline='1' AND storeID=@storeID"
        cmd.Parameters.AddWithValue("@storeID", ddlstore2.SelectedItem.Value)
        cmd.CommandType = CommandType.Text
        cmd.CommandText = strSQL
        cmd.Connection = sqlCon
        Try
            sqlCon.Open()
            ddlmenu.DataSource = cmd.ExecuteReader()
            ddlmenu.DataTextField = "foodName"
            ddlmenu.DataValueField = "rkey"
            ddlmenu.DataBind()
            ddlmenu.Items.Insert(0, New ListItem("กรุณาเลือกรายการอาหาร", "0"))

            ddlmenu.SelectedIndex = ddlmenu.Items.IndexOf(ddlmenu.Items.FindByValue("0"))

            If ddlmenu.Items.Count > 1 Then
                ddlmenu.Enabled = True
            Else
                ddlmenu.Enabled = False
            End If
        Catch ex As Exception
            Throw ex
        Finally
            sqlCon.Close()
            sqlCon.Dispose()
        End Try

    End Sub

    Protected Sub ddlmenu_SelectIndexChanged(sender As Object, e As EventArgs)
        Dim sqlCon As New SqlConnection(con)
        Dim strSQL As String
        Dim cmd As New SqlCommand()

        strSQL = "SELECT foodDetails,foodPic,unitPrice FROM StoreFood WHERE rkey=@rkey"
        cmd.Parameters.AddWithValue("@rkey", ddlmenu.SelectedItem.Value)
        cmd.CommandType = CommandType.Text
        cmd.CommandText = strSQL
        cmd.Connection = sqlCon
        Try
            sqlCon.Open()
            Dim sdr As SqlDataReader = cmd.ExecuteReader()
            While sdr.Read()
                Imagefood.Visible = True
                Label3.Visible = True
                Label3.Text = sdr("foodDetails").ToString()
                txtunitPrice.Text = sdr("unitPrice").ToString()
                'txtfoodDetails.Visible = True
                'txtfoodDetails.Text = sdr(0).ToString()
                Imagefood.ImageUrl = sdr("foodPic").ToString()
            End While
        Catch ex As Exception
            Throw ex
        Finally
            sqlCon.Close()
            sqlCon.Dispose()
        End Try
    End Sub


    Protected Sub btnadd_Click(sender As Object, e As ImageClickEventArgs) Handles btnadd.Click
        newDataTable()
        ResetAll()
    End Sub

    Public Function newDataTable()
        If dt.Columns.Count = 0 Then
            dt.Columns.Add("ชื่ออาหาร")
            dt.Columns.Add("ร้านอาหาร")
            dt.Columns.Add("เพิ่มเติม")
            dt.Columns.Add("จำนวน")
            dt.Columns.Add("ราคา/หน่วย")
            dt.Columns.Add("ราคารวม")
        End If

        dr = dt.NewRow()

        dr("ชื่ออาหาร") = ddlmenu.SelectedItem.Text.Trim
        dr("ร้านอาหาร") = ddlstore2.SelectedItem.Text.Trim

        'For i = 0 To cboxOption.Items.Count - 1
        '    If cboxOption.Items(i).Selected Then
        '        Dim chk As String
        '        chk = cboxOption.SelectedItem.Text & "," & cboxOption.Items(i).Text
        '        'cboxOption.SelectedItem.Text = cboxOption.SelectedItem.Text & "," & cboxOption.Items(i).Text
        '        dr("เพิ่มเติม") = chk
        '    End If
        'Next

        Dim check As String = ""
        For Each li As ListItem In cboxOption.Items
            If li.Selected Then
                If check = "" Then
                    check = (li.Text)
                    dr("เพิ่มเติม") = check
                Else
                    check += ("," + li.Text)
                    dr("เพิ่มเติม") = check
                End If
            End If
        Next

        dr("จำนวน") = Integer.Parse(txtquantity.Text.Trim)
        dr("ราคา/หน่วย") = Decimal.Parse(txtunitPrice.Text.Trim)

        Dim amount As String = Decimal.Parse((txtquantity.Text) * (txtunitPrice.Text))
        dr("ราคารวม") = FormatNumber(amount, 2)
        dt.Rows.Add(dr)

        ds.Tables.Add(dt)
        GridView1.DataSource = dt
        GridView1.DataBind()

        Return dt
    End Function

    Protected Sub ResetAll()
            ddlstore2.SelectedIndex = ddlmenu.Items.IndexOf(ddlmenu.Items.FindByValue("0"))
            ddlmenu.SelectedIndex = ddlmenu.Items.IndexOf(ddlmenu.Items.FindByValue("0"))
            cboxOption.SelectedIndex = cboxOption.Items.IndexOf(cboxOption.Items.FindByValue("0"))
            txtquantity.Text = String.Empty
            txtunitPrice.Text = String.Empty
        End Sub
    End Class

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-11-12 09:03:21 By : heaunn
 


 

No. 12



โพสกระทู้ ( 4,434 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

Code (VB.NET)
Public Function newDataTable()
    If dt.Columns.Count = 0 Then
        dt.Columns.Add("ชื่ออาหาร")
        dt.Columns.Add("ร้านอาหาร")
        dt.Columns.Add("เพิ่มเติม")
        dt.Columns.Add("จำนวน")
        dt.Columns.Add("ราคา/หน่วย")
        dt.Columns.Add("ราคารวม")
    End If

    Dim check As String = ""
    For Each li As ListItem In cboxOption.Items
        If li.Selected Then
            If check = "" Then
                check = (li.Text)
            Else
                check += ("," + li.Text)
            End If
        End If
    Next

    Dim amount As String = Decimal.Parse((txtquantity.Text) * (txtunitPrice.Text))
    Dim dr As DataRow = dt.NewRow()
    dr("ชื่ออาหาร") = ddlmenu.SelectedItem.Text.Trim
    dr("ร้านอาหาร") = ddlstore2.SelectedItem.Text.Trim
    dr("เพิ่มเติม") = check
    dr("จำนวน") = Integer.Parse(txtquantity.Text.Trim)
    dr("ราคา/หน่วย") = Decimal.Parse(txtunitPrice.Text.Trim)
    dr("ราคารวม") = FormatNumber(amount, 2)
    dt.Rows.Add(dr)
    GridView1.DataSource = dt
    GridView1.DataBind()

End Function

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-11-12 09:27:16 By : lamaka.tor
 


 

No. 13



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



สถานะออฟไลน์


มันก็ยังทับข้อมูลเก่าอยู่เหมือนเดิมอ่ะค่ะ พอเลือกรายการอาหารเพิ่ม มันไม่ขึ้น Row 2 ให้
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-11-12 09:48:35 By : heaunn
 


 

No. 14



โพสกระทู้ ( 4,434 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

Code (VB.NET)
Public Function newDataTable()

        ' If dt.Columns.Count = 0 Then
        'dt.Columns.Add("ชื่ออาหาร")
        ' dt.Columns.Add("ร้านอาหาร")
        ' dt.Columns.Add("เพิ่มเติม")
        ' dt.Columns.Add("จำนวน")
        ' dt.Columns.Add("ราคา/หน่วย")
        ' dt.Columns.Add("ราคารวม")
        ' End If

        ' Dim check As String = ""
        ' For Each li As ListItem In cboxOption.Items
        'If li.Selected Then
        'If check = "" Then
        'check = (li.Text)
        'Else
        'check += ("," + li.Text)
        'End If
        'End If
        'Next

        'Dim amount As String = Decimal.Parse((txtquantity.Text) * (txtunitPrice.Text))
        For i As Integer = 0 To 50
            Dim dr As DataRow = dt.NewRow()
            dr("ชื่ออาหาร") = "ชื่ออาหาร " & i
            dr("ร้านอาหาร") = "ร้านอาหาร " & i
            dr("เพิ่มเติม") = "เพิ่มเติม " & i
            dr("จำนวน") = New Random().Next
            dr("ราคา/หน่วย") = New Random().Next
            dr("ราคารวม") = New Random().Next
            dt.Rows.Add(dr)
        Next

        GridView1.DataSource = dt
        GridView1.DataBind()

    End Function

2222


ลองดูว่ามันจะเพิ่มให้ไม๊
ถ้าไม่เพิ่มแสดงว่ามี Function หรือ Event อื่นมีมาเกี่ยวข้องครับ


ประวัติการแก้ไข
2015-11-12 10:49:07
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-11-12 10:46:14 By : lamaka.tor
 


 

No. 15



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



สถานะออฟไลน์


โค้ดใน Reply ที่ 14 มันเพิ่ม Row ให้ค่ะ
แล้วทำไมโค้ดปกติถึงเพิ่ม Row ไม่ได้ งงมาก
ตัวอย่าง


ประวัติการแก้ไข
2015-11-12 11:10:24
2015-11-12 11:19:06
2015-11-12 11:19:29
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-11-12 11:09:35 By : heaunn
 


 

No. 16



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



สถานะออฟไลน์


ยังแก้ไม่ได้เลยค่ะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-11-13 09:54:47 By : heaunn
 


 

No. 17



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



สถานะออฟไลน์


จนตอนนี้ก็ยังแก้ไม่ได้เลยค่ะมันไม่ยอมเพิ่ม row ให้
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-11-13 15:22:01 By : heaunn
 


 

No. 18

Guest


เล่าให้ฟังเฉยเฉย
Quote:
#SEX1-SEXสุดท้าย-SEXxxx === ความสว่างด้วยการจุดเทียนใต้น้ำด้วยกล่องไม้ขีดไฟหลายฯฯฯกล่อง
และที่สำคัญหน่วยวัดความสว่าง ต้องเท่ากับแรงม้ายานยนต์
แค่เข้าใจ Page Life Cycle ประกาศตรงไหนมันก็มีค่าเท่ากัน



ใจของคุณด้ายคำว่าค่ะ เมื่อเทียบกับภรรยาของผมบอกว่า พรุ่งนี้พี่อย่าลืมไปทำบุญโลงศพที่มูลนิธิ ร่วมกตัญญูู (กิ่งแก้ว)
และพี่อย่าลืมเขียนชื่อดาราที่กำลังป่วยลงไปด้วยนะ

ผมแย้งภรรยาว่า : ไปก็ได้ แต่ว่าดาราดังคนดังกล่าวไม่ใช่ญาติของพี่นะ
ภรรยาของผมบอกว่า : พี่อย่าใจแคบซิ ... ... ...
ผม : ร้องอ๋อ ภรรยาของผมมันเป็นคนใจใหญ่จริงฯ อย่างอื่นก็ใหญ่อทิเช่น หน้าอก, ...

Code (VB.NET)
Session("DT") = xxx
'หรือ
ViewState("DT") = xxx

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-11-13 23:28:48 By : หน้าฮี
 


 

No. 19

Guest


จาก #NO 18 กลัวคนโปรแกรมเมอร์ตรรกะผิดเพี้ยน

ชื่อผู้บริจาค
ตัวของผมเอง
ภรรยาของผมเอง
ญาติพี่น้องของผมเอง
และชื่อของดาราคนนั้น
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-11-13 23:39:29 By : หน้าฮี
 


 

No. 20



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



สถานะออฟไลน์


ตอนนี้เขียนโค้ดแบบนี้ค่ะ แต่มันกลายเป็นว่าพอเพิ่มข้อมูล มันก็ขึ้นแต่ ไม่มีสินค้าในตะกร้า

Code (VB.NET)
<asp:GridView ID="GridView1" runat="server" DataKeyNames="NO"
                            ShowHeaderWhenEmpty="true" EmptyDataText="ไม่มีสินค้าในตะกร้า" EmptyDataRowStyle-BackColor="#FFFFCC" 
                            EmptyDataRowStyle-ForeColor ="Red" EmptyDataRowStyle-Font-Bold="true"
                            Width="1100px"
                            AutoGenerateColumns="true"
                            HeaderStyle-Font-Bold="true" Style="text-align: center" CellPadding="4" ForeColor="#333333" GridLines="None" ShowFooter="true">
                            <AlternatingRowStyle BackColor="White" />
                               <Columns>
                                   <asp:BoundField DataField="NO" HeaderText="NO." />
                                   <asp:BoundField DataField="foodName" HeaderText="ชื่ออาหาร" />
                                   <asp:BoundField DataField="store" HeaderText="ร้านอาหาร" />
                                   <asp:BoundField DataField="option" HeaderText="สั่งเพิ่มเติม" />
                                   <asp:BoundField DataField="QTY" HeaderText="จำนวน" />
                                   <asp:BoundField DataField="price" HeaderText="ราคา/หน่วย" />
                                   <asp:BoundField DataField="amount" HeaderText="ราคารวม" />
                               </Columns>
                            <FooterStyle BackColor="#FF9933" Font-Bold="True" ForeColor="#363422" />
                            <HeaderStyle Font-Bold="True" BackColor="#FF9933" ForeColor="#363422"></HeaderStyle>
                            <PagerStyle BackColor="#FF9933" ForeColor="#363422" HorizontalAlign="Center"  />
                            <RowStyle BackColor="#FFFFCC" />
                            <SelectedRowStyle BackColor="#FF9933" Font-Bold="True" ForeColor="#333333" />
                            <SortedAscendingCellStyle BackColor="#fff" />
                            <SortedAscendingHeaderStyle BackColor="#fff" />
                            <SortedDescendingCellStyle BackColor="#fff" />
                            <SortedDescendingHeaderStyle BackColor="#fff" />
                        </asp:GridView>


Code (VB.NET)
Dim dt As New DataTable
    Dim con As String = ConfigurationManager.ConnectionStrings("con").ConnectionString
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not IsPostBack Then
            CheckBoxListDataTable()
            loadddlstore()
        End If

        '**** DATE TODAY ***'
        txtdate.Text = Date.Today()

    End Sub

    Sub CheckBoxListDataTable()
        Dim SqlCon As New SqlConnection(con)
        Dim da As New SqlDataAdapter
        Dim dt As New DataTable

        SqlCon.Open()
        Dim strSQL As String
        strSQL = "SELECT * FROM OptionFood"
        da = New SqlDataAdapter(strSQL, SqlCon)
        da.Fill(dt)

        da = Nothing
        SqlCon.Close()
        SqlCon = Nothing

        With cboxOption
            .DataSource = dt
            .DataTextField = "OptionName"
            .DataValueField = "rkey"
            .DataBind()
        End With

        'cboxOption.SelectedIndex = cboxOption.Items.IndexOf(cboxOption.Items.FindByValue("1"))
    End Sub

    Protected Sub loadddlstore()
        ddlstore2.AppendDataBoundItems = True
        Dim sqlCon As New SqlConnection(con)
        Dim da As New SqlDataAdapter
        Dim dt As New DataTable
        Dim strSQL As String

        sqlCon.Open()
        strSQL = "SELECT storeID, storeName FROM Store WHERE online = '1'"
        da = New SqlDataAdapter(strSQL, sqlCon)
        da.Fill(dt)

        da = Nothing
        sqlCon.Close()
        sqlCon = Nothing

        Try
            With ddlstore2
                .DataSource = dt
                .DataTextField = "storeName"
                .DataValueField = "storeID"
                .DataBind()
                .Items.Insert(0, New ListItem("--- กรุณาเลือกร้านอาหาร ---", "0"))
            End With

            ddlstore2.SelectedIndex = ddlstore2.Items.IndexOf(ddlstore2.Items.FindByValue("0"))
        Catch ex As Exception
            Throw ex
        End Try
    End Sub

    Protected Sub ddlstore2_SelectIndexChanged(sender As Object, e As EventArgs)
        ddlstore2.AppendDataBoundItems = True
        Dim sqlCon As New SqlConnection(con)
        Dim strSQL As String
        Dim cmd As New SqlCommand()

        strSQL = "SELECT rkey,foodName FROM StoreFood WHERE statusonline='1' AND storeID=@storeID"
        cmd.Parameters.AddWithValue("@storeID", ddlstore2.SelectedItem.Value)
        cmd.CommandType = CommandType.Text
        cmd.CommandText = strSQL
        cmd.Connection = sqlCon
        Try
            sqlCon.Open()
            ddlmenu.DataSource = cmd.ExecuteReader()
            ddlmenu.DataTextField = "foodName"
            ddlmenu.DataValueField = "rkey"
            ddlmenu.DataBind()
            ddlmenu.Items.Insert(0, New ListItem("--- กรุณาเลือกรายการอาหาร ---", "0"))

            ddlmenu.SelectedIndex = ddlmenu.Items.IndexOf(ddlmenu.Items.FindByValue("0"))

            If ddlmenu.Items.Count > 1 Then
                ddlmenu.Enabled = True
            Else
                ddlmenu.Enabled = False
            End If
        Catch ex As Exception
            Throw ex
        Finally
            sqlCon.Close()
            sqlCon.Dispose()
        End Try

    End Sub

    Protected Sub ddlmenu_SelectIndexChanged(sender As Object, e As EventArgs)
        Dim sqlCon As New SqlConnection(con)
        Dim strSQL As String
        Dim cmd As New SqlCommand()

        strSQL = "SELECT foodDetails,foodPic FROM StoreFood WHERE rkey=@rkey"
        cmd.Parameters.AddWithValue("@rkey", ddlmenu.SelectedItem.Value)
        cmd.CommandType = CommandType.Text
        cmd.CommandText = strSQL
        cmd.Connection = sqlCon
        Try
            sqlCon.Open()
            Dim sdr As SqlDataReader = cmd.ExecuteReader()
            While sdr.Read()
                If ddlstore2.Items.Count > 1 Then
                    Imagefood.Visible = True
                    txtfoodDetails.Text = sdr(0).ToString()
                    Imagefood.ImageUrl = sdr("foodPic").ToString()
                Else
                    txtfoodDetails.Text = String.Empty
                End If
            End While
        Catch ex As Exception
            Throw ex
        Finally
            sqlCon.Close()
            sqlCon.Dispose()
        End Try
    End Sub

    Protected Sub btnadd_Click(sender As Object, e As ImageClickEventArgs) Handles btnadd.Click
        load_Cart()
    End Sub

    Public Sub Cart()
        If dt.TableName.Contains("tblShopCart") = True Then
            Exit Sub
        Else
            dt = New DataTable("tblShopCaet")
            dt.Columns.Add(New DataColumn("NO", GetType(Integer)))
            dt.Columns("NO").AutoIncrement = True
            dt.Columns("NO").AutoIncrementSeed = 1

            dt.Columns.Add(New DataColumn("foodName", GetType(String)))
            dt.Columns.Add(New DataColumn("store", GetType(String)))
            dt.Columns.Add(New DataColumn("option", GetType(String)))
            dt.Columns.Add(New DataColumn("QTY", GetType(Integer)))
            dt.Columns.Add(New DataColumn("price", GetType(Decimal)))
            dt.Columns.Add(New DataColumn("amount", GetType(Decimal)))
        End If
        Session("ShopCart") = dt
    End Sub

    Public Sub newDataTable()
        Dim check As String = ""
        For Each li As ListItem In cboxOption.Items
            If li.Selected Then
                If check = "" Then
                    check = (li.Text)
                Else
                    check += ("," + li.Text)
                End If
            End If
        Next

        Dim amount As String = Decimal.Parse((txtquantity.Text) * (txtunitPrice.Text))
        Dim dt As DataTable = Session("ShopCart")
        If dt.Rows.Count <= 0 Then
            Dim dr As DataRow = dt.NewRow()
            dr("foodName") = ddlmenu.SelectedItem.Text.Trim
            dr("store") = ddlstore2.SelectedItem.Text.Trim
            dr("option") = check
            dr("QTY") = Integer.Parse(txtquantity.Text.Trim)
            dr("price") = Decimal.Parse(txtunitPrice.Text.Trim)
            dr("amount") = FormatNumber(amount, 2)
            dt.Rows.Add(dr)
            Session("ShopCart") = dt
            Exit Sub
        End If

    End Sub

    Public Sub load_Cart()
        If Session("ShopCart") Is Nothing Then
            GridView1.DataSource = ""
            GridView1.DataBind()
        Else
            GridView1.DataSource = Session("ShopCart")
            GridView1.DataBind()
        End If
    End Sub

End Class



ประวัติการแก้ไข
2015-11-14 09:45:35
2015-11-14 10:32:52
2015-11-14 10:34:04
2015-11-14 10:41:32
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-11-14 09:45:16 By : heaunn
 


 

No. 21



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



สถานะออฟไลน์


ได้แล้วค่ะขอบคุณทุกคนมากนะคะ


ประวัติการแก้ไข
2015-11-14 20:29:58
2015-11-14 20:30:18
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-11-14 20:29:21 By : heaunn
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : เพิ่มข้อมูลใน DataTable แล้วข้อมูลใหม่ทับข้อมูลเก่า (เทพ ASP.NET ช่วยหน่อยนะค่ะ แก้มาสามวันแล้ว)
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 05
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่