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

Registered : 108,456

HOME > .NET Framework > Forum > สอบถามวิธีการซ่อน Label ใน Gridview หน่อยค่ะ พอกด Checkbox แล้ว Label ตัวนี้หายไป



 

สอบถามวิธีการซ่อน Label ใน Gridview หน่อยค่ะ พอกด Checkbox แล้ว Label ตัวนี้หายไป

 



Topic : 129422



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



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




รบกวนสอบถามหน่อยค่ะ ว่าคือจะทำการซ่อน Label ใน Gridview ต้องใช้คำสั่งแบบไหนค่ะ รบกวนหน่อยนะค่ะ มือใหม่มากๆๆ

ตามรูปค่ะ จะซ่อน Cd ทั้ง Column เลยค่ะ

ๅๅๅๅ



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







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2017-11-06 10:06:23 By : S-Hyun View : 893 Reply : 4
 

 

No. 1



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



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


ใน CheckBox.CheckedChanged Event เพิ่มโค้ดนี้

Code (VB.NET)
DataGridView1.Columns(n).Visible = False 'แทน n ด้วย index ของคอลัมน์ที่จะซ่อน







แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-11-06 10:21:42 By : ขาจร
 


 

No. 2



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



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


อย่าลืมใช้ if เพื่อให้คอลัมน์กลับมาแสดงเมื่อมีการเช็คซ้ำ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-11-06 10:31:33 By : ขาจร
 

 

No. 3



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



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


Code (VB.NET)
Protected Sub rdoPlat_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
        lblmessage.Text = ""
        Try
            Dim row As System.Web.UI.WebControls.GridViewRow
            row = sender.Parent.Parent
            Dim lblno As String = DirectCast(row.FindControl("lblno"), Label).Text
            Dim lblPartNo As String = DirectCast(row.FindControl("lblPartNo"), Label).Text
            Dim rdoPlat As String = DirectCast(row.FindControl("rdoPlat"), RadioButton).Text
            Dim lblPbspect As Label = DirectCast(row.FindControl("lblPbspect"), Label)
            Dim lblCdspect As Label = DirectCast(row.FindControl("lblCdspect"), Label)
            Dim lblHgspect As Label = DirectCast(row.FindControl("lblHgspect"), Label)
            Dim lblCrspect As Label = DirectCast(row.FindControl("lblCrspect"), Label)
            Dim lblBrspect As Label = DirectCast(row.FindControl("lblBrspect"), Label)
            Dim lblClspect As Label = DirectCast(row.FindControl("lblClspect"), Label)

            Dim lblPbContent As String = DirectCast(row.FindControl("lblPbContent"), Label).Text.Trim()
            Dim lblCdContent As String = DirectCast(row.FindControl("lblCdContent"), Label).Text.Trim()
            Dim lblHgContent As String = DirectCast(row.FindControl("lblHgContent"), Label).Text.Trim()
            Dim lblCrContent As String = DirectCast(row.FindControl("lblCrContent"), Label).Text.Trim()
            Dim lblBrContent As String = DirectCast(row.FindControl("lblBrContent"), Label).Text.Trim()
            Dim lblClContent As String = DirectCast(row.FindControl("lblClContent"), Label).Text.Trim()

            Dim lblPbJudment As Label = DirectCast(row.FindControl("lblPbJudment"), Label)
            Dim lblCdJudment As Label = DirectCast(row.FindControl("lblCdJudment"), Label)
            Dim lblHgJudment As Label = DirectCast(row.FindControl("lblHgJudment"), Label)
            Dim lblCrJudment As Label = DirectCast(row.FindControl("lblCrJudment"), Label)
            Dim lblBrJudment As Label = DirectCast(row.FindControl("lblBrJudment"), Label)
            Dim lblClJudment As Label = DirectCast(row.FindControl("lblClJudment"), Label)

            If lblPartNo.ToLower() = "packing" Then
                lblPbspect.Text = PackingPb
                lblCdspect.Text = PackingCd
                lblHgspect.Text = PackingHg
                lblCrspect.Text = PackingCr
                lblBrspect.Text = PackingBr
                lblClspect.Text = PackingCl
            Else
                Dim custid As String = ""
                Dim strString As String = lblPartNo
                Dim strSplit2 As Array
                Dim j As Integer

                strSplit2 = strString.Split("/")
                For j = 0 To strSplit2.Length - 1
                    If j = 0 Then
                        custid = strSplit2(j)
                    Else
                        custid = custid & "','" & strSplit2(j)
                    End If

                Next

                Dim spec As String = EdxResult(custid, rdoPlat.ToLower())
                If spec <> "" Then
                    Dim strStringS As String = spec
                    Dim strSplitS As Array
                    Dim k As Integer

                    strSplitS = strStringS.Split("/")
                    For k = 0 To strSplitS.Length - 1
                        If k = 0 Then
                            lblPbspect.Text = strSplitS(k)
                        ElseIf k = 1 Then
                            lblCdspect.Text = strSplitS(k)
                        ElseIf k = 2 Then
                            lblHgspect.Text = strSplitS(k)
                        ElseIf k = 3 Then
                            lblCrspect.Text = strSplitS(k)
                        ElseIf k = 4 Then
                            lblBrspect.Text = strSplitS(k)
                        ElseIf k = 5 Then
                            lblClspect.Text = strSplitS(k)
                        End If

                        '-----------check status------------------------------
                        Dim a As Double
                        Dim type1 As String = ""
                        Dim type2 As String = ""
                        Dim type3 As Label
                        For x As Integer = 1 To 6
                            If x = 1 Then
                                type1 = lblPbspect.Text
                                type2 = lblPbContent
                                type3 = lblPbJudment
                            ElseIf x = 2 Then
                                type1 = lblCdspect.Text
                                type2 = lblCdContent
                                type3 = lblCdJudment
                            ElseIf x = 3 Then
                                type1 = lblHgspect.Text
                                type2 = lblHgContent
                                type3 = lblHgJudment
                            ElseIf x = 4 Then
                                type1 = lblCrspect.Text
                                type2 = lblCrContent
                                type3 = lblCrJudment
                            ElseIf x = 5 Then
                                type1 = lblBrspect.Text
                                type2 = lblBrContent
                                type3 = lblBrJudment
                            ElseIf x = 6 Then
                                type1 = lblClspect.Text
                                type2 = lblClContent
                                type3 = lblClJudment
                            End If
                            If Double.TryParse(type1, a) And Double.TryParse(type2, a) Then
                                If CDbl(type2) > CDbl(type1) Then
                                    type3.Text = "REJECT"
                                Else
                                    type3.Text = "ACCEPT"
                                End If
                            End If
                        Next
                        '-----------------------------------------
                    Next
                Else
                    lblPbspect.Text = ""
                    lblCdspect.Text = ""
                    lblHgspect.Text = ""
                    lblCrspect.Text = ""
                    lblBrspect.Text = ""
                    lblClspect.Text = ""
                End If
            End If
        Catch ex As Exception
            lblmessage.Text = ex.Message()
        End Try
    End Sub



อันนี้เป็นปุ่ม Radio ที่กดปุ่มเเล้วค่าจะออกมา เเต่พอทำปุ่ม Check box จะให้ค่าบางส่วนนั้นหายไป เเต่ยังเขียนไม่ค่อยได้เลยค่ะ รบกวนพี่พี่หน่อยนะค่ะ เหมือนกับนำค่าของ ปุ่ม Radio เเต่พอ กด Check box บางส่วนที่เป็น Label จะหายไป เเต่ลองเขียนแล้ว โดยเอาโค้ดนี้ไปแปลงแล้วมันไม่ได้ค่ะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-11-06 14:42:36 By : S-Hyun
 


 

No. 4



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



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


มีวิธีแก้โค้ดยังไง ที่จะเป็นโค้ดของ Checkbox แต่แปลงโค้ดจากด้านบนค่ะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-11-06 16:08:33 By : S-Hyun
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : สอบถามวิธีการซ่อน Label ใน Gridview หน่อยค่ะ พอกด Checkbox แล้ว Label ตัวนี้หายไป
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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: Voake, Comcube, รับทำเว็บไซต์ รับเขียนโปรแกรม , รับทำบัญชี , โรงงานผลิตครีม , สำนักงานบัญชี , รับจดทะเบียนบริษัท , Pangpond , รถมือสอง

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