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,036

HOME > .NET Framework > Forum > ขอสอบถามโค้ด โค้ดปุ้ม ค้นหา คลิ้กที ปุ้ม ok ที่ gridview เเล้วมาโชว์ที่ texbox



 

ขอสอบถามโค้ด โค้ดปุ้ม ค้นหา คลิ้กที ปุ้ม ok ที่ gridview เเล้วมาโชว์ที่ texbox

 



Topic : 053672



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



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



คือ โค้ดปุ้ม ค้นหา เมื่อค้นหาเสร็จเเล้ว คลิ้กที ปุ้ม ok ข้อมูลที่ เรคคอร์ด gridview เเล้วมาโชว์ที่ texbox อีกฟอร์ม หนึ่งครับ

ตอนนี้ทำค้นหาได้เเล้วครับ เเต่ จะเอามาขึ้นบน textbox อีกฟอร์มหนึ่งได้ยังไงครับ



Tag : .NET, Ms SQL Server 2008, Win (Windows App), VS 2008 (.NET 3.x)







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2010-12-25 13:36:34 By : pisansri View : 1725 Reply : 13
 

 

No. 1



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



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


เปิดพร้อมกัน 2 ฟอร์ม หรือว่า เปิดที่ละฟอร์ม เหรอครับ แล้วกดที่ gridview เเล้วค่อยไป Textbox หรือ ขึ้น2ที่พร้อมกันครับ








ประวัติการแก้ไข
2010-12-25 14:05:39
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-12-25 14:00:51 By : EucifeR
 


 

No. 2



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



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

2 ฟอร์มครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-12-25 14:06:10 By : pisansri
 

 

No. 3



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



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


from2.textbox1.text = "ค่าที่อยากให้ขึ้นมา"
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-12-25 14:10:16 By : EucifeR
 


 

No. 4



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



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


Code (VB.NET)
Private Sub dgv_CellMouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgv.CellMouseUp
        If e.RowIndex = -1 Then Exit Sub
        With dgvoffical
            from2.textbox1.text= .Rows.Item(e.RowIndex).Cells(0).Value.ToString()
        End With
    End Sub 'เมื่อกดเลือกCellที่ต้องการข้อมูลจะไปที่ Textbox ของForm2 เเต่Form2 ต้องเปิดไว้ด้วยนะครับ ถ้าไม่เปิดไว้ก็ Share เอาก็ได้นะครับ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-12-25 14:23:58 By : EucifeR
 


 

No. 5



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



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

ได้เเล้วครับขอบคุณมากครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-12-25 15:23:22 By : pisansri
 


 

No. 6



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



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



แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-12-25 15:36:34 By : EucifeR
 


 

No. 7



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



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

ถ้าเปน combobox ละครับ แบบลิ้งสอง ตาราง ในตาราง gridview จะเก็บเป็นตัวเลข
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-12-25 19:00:59 By : pisansri
 


 

No. 8



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



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


งง ครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-12-26 08:00:57 By : EucifeR
 


 

No. 9



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



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

oo

ee

ลิ้งค์สองตารางครับ เมื่อคลิก ที่ Gridview ที่เป็นตัวเลขเเล้วมาขึ้นที่

combobox เป็นตัวหนังสือครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-12-26 15:03:55 By : pisansri
 


 

No. 10



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



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


ถ้าเป็นผมนะ ผมจะสร้างตัวแปรขึ้นมา 1 ตัว ในส่วนตอนที่ใช้คำสั่ง CellMouseUp เเล้วทำการสร้าง Select ขึ้นมาดึงตัวที่ต้องการเเล้วค่อยเอาไปใส่ใน Combobox อีกทีนึงนะครับ เเต่คนอื่นอาจจะมีง่ายกว่านี้รึป่าว ต่อเลยครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-12-26 15:49:07 By : EucifeR
 


 

No. 11



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



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

Code (VB.NET)
Imports System.Data.SqlClient


Public Class search

    Dim Conn As SqlConnection = New SqlConnection
    Dim ds As New DataSet
    Dim da As SqlDataAdapter


    Private Sub btnsearch_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch.Click
        'If MsgBox("คุณต้องการค้นหาข้อมูลใช่หรือไม่ ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "ค้นหาข้อมูล") = MsgBoxResult.Ok Then

        Try
            ds.Tables.Clear()
            Dim ra As String = ""
            If RadioButton1.Checked Then
                'Me.Label1.Text = "ตามรหัส"
                ra = "LANDID"

            End If
            If RadioButton2.Checked Then
                ra = "PARCEL_CODE"
            End If

            If TextBox4.Text = "" Then
                MsgBox("กรุณากรอกข้อมูลที่ต้องการค้นหา", MsgBoxStyle.Information)
            Else

                Dim strConn As String
                strConn = "Data Source=.\SQLEXPRESS;Initial Catalog=SSPEGIS;Integrated Security=True"

                With Conn
                    If .State = ConnectionState.Open Then .Close() 'ถ้าเปิดอยู่ให้ปิดการเชื่อมต่อ Connection ก่อน
                    .ConnectionString = strConn                    ' กำหนดรูปแบบและฐานข้อมูลสำหรับการติดต่อ
                    .Open()                                        'ทำการติดต่อฐานข้อมูล
                End With
     
   Dim sql As String = "Select* from land WHERE " & ra & " like '" & TextBox4.Text & "%'"
                da = New SqlDataAdapter(sql, Conn)

                da.Fill(ds, "land")
                myGridView.DataSource = ds.Tables("land")

                TextBox4.Clear()
            End If

            ' If dgv1.DataSource = "" Then
            'MsgBox("iiii")
            ' End If
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
        ' End If


    Dim cs As New DataGridViewCellStyle

    cs.Font = New Font("ms sans serif", 10, FontStyle.Regular)

    cs.Alignment = DataGridViewContentAlignment.MiddleCenter

    cs.ForeColor = Color.Blue

    With myGridView

      .ColumnHeadersDefaultCellStyle = cs

      .Columns(0).HeaderText = "ID"

      .Columns(1).HeaderText = "รหัสภาษี"

      .Columns(2).HeaderText = "รหัสเเผนที่"

      .Columns(0).Width = 180

      .Columns(1).Width = 140

      .Columns(2).Width = 100

      .Columns(0).SortMode = DataGridViewColumnSortMode.NotSortable

      .Columns(1).SortMode = DataGridViewColumnSortMode.NotSortable

      .Columns(2).SortMode = DataGridViewColumnSortMode.NotSortable

    End With

  End Sub


    Private Sub dgv_CellMouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles myGridView.CellMouseUp

        If e.RowIndex = -1 Then Exit Sub
        With myGridView

            frmland.txtLANDID.Text = .Rows.Item(e.RowIndex).Cells(0).Value.ToString()
            frmland.txtPARCEL_CODE.Text = .Rows.Item(e.RowIndex).Cells(1).Value.ToString()
            frmland.txtPICTURE_CODE.Text = .Rows.Item(e.RowIndex).Cells(2).Value.ToString()
            frmland.txtUTM_CODE.Text = .Rows.Item(e.RowIndex).Cells(21).Value.ToString()
            frmland.txtUTM_NO.Text = .Rows.Item(e.RowIndex).Cells(23).Value.ToString()
            frmland.txtUTM_NO_P.Text = .Rows.Item(e.RowIndex).Cells(22).Value.ToString()
            frmland.txtUTM_RATIO.Text = .Rows.Item(e.RowIndex).Cells(20).Value.ToString()
            frmland.txtLDOC_NO.Text = .Rows.Item(e.RowIndex).Cells(19).Value.ToString()
            frmland.txtTAXRATE.Text = .Rows.Item(e.RowIndex).Cells(39).Value.ToString()
            frmland.txtEXTENUATE.Text = .Rows.Item(e.RowIndex).Cells(40).Value.ToString()
            frmland.txtSURVEY_NO.Text = .Rows.Item(e.RowIndex).Cells(26).Value.ToString()
            frmland.txtLAND_NO.Text = .Rows.Item(e.RowIndex).Cells(25).Value.ToString()
            frmland.txtDOL_RAI.Text = .Rows.Item(e.RowIndex).Cells(27).Value.ToString()
            frmland.txtDOL_NGAN.Text = .Rows.Item(e.RowIndex).Cells(28).Value.ToString()
            frmland.txtDOL_WA.Text = .Rows.Item(e.RowIndex).Cells(29).Value.ToString()
            frmland.txtTAXED_RAI.Text = .Rows.Item(e.RowIndex).Cells(39).Value.ToString()
            frmland.txtTAXED_NGAN.Text = .Rows.Item(e.RowIndex).Cells(40).Value.ToString()
            frmland.txtTAXED_WA.Text = .Rows.Item(e.RowIndex).Cells(41).Value.ToString()
           
            frmland.txtTAMBON_TH.Text = .Rows.Item(e.RowIndex).Cells(16).Value.ToString()
            frmland.txtDISTRICT_TH.Text = .Rows.Item(e.RowIndex).Cells(17).Value.ToString()
            frmland.txtPROVINCE_TH.Text = .Rows.Item(e.RowIndex).Cells(18).Value.ToString()


            Dim dt As New DataTable
            Dim bin As New BindingSource
            Dim sqlldoc_type As String = ""
     
    sqlldoc_type = "SELECT land.LANDID, land.LDOC_TYPEID, ldoc_type.LDOC_TYPE  FROM land LEFT JOIN ldoc_type ON land.LDOC_TYPEID = ldoc_type.LDOC_TYPEID "

            da = New SqlDataAdapter(sqlldoc_type, Conn)
            da.Fill(ds, "ldoc_type")


            Dim cmd As SqlCommandBuilder
            cmd = New SqlCommandBuilder(da)
            bin.DataSource = dt
        
    If frmland.cboLDOC_TYPE.Text = .Rows.Item(e.RowIndex).Cells(9).Value.ToString() Then
            With frmland.cboLDOC_TYPE
                    .DisplayMember = "LDOC_TYPE"
                    .ValueMember = "LDOC_TYPEID"
                    .DataSource = ds.Tables("ldoc_type")
                    .DataBindings.Add("SelectedValue", bin, "LDOC_TYPEID")
        End With
      End If

            Me.Close()
        End With
    End Sub 
End Class



ช่วยดูหน่อยครับ ตรงcombobox เดาเอา คิคิ


ประวัติการแก้ไข
2010-12-26 16:51:01
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-12-26 16:40:06 By : pisansri
 


 

No. 12



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



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

ได้เเล้วครับ คิดไปไกลมาก เเต่ที่จริงเขียนนิดเดียวเอง

Code (VB.NET)
 If .Rows.Item(e.RowIndex).Cells(8).Value.ToString() = "01" Then
                frmland.cboLDOC_TYPE.Text = "โฉนด"

            ElseIf .Rows.Item(e.RowIndex).Cells(8).Value.ToString() = "02" Then
                frmland.cboLDOC_TYPE.Text = "นส.3ก"

            ElseIf .Rows.Item(e.RowIndex).Cells(8).Value.ToString() = "03" Then
                frmland.cboLDOC_TYPE.Text = "นส.3"
            ElseIf .Rows.Item(e.RowIndex).Cells(8).Value.ToString() = "04" Then
                frmland.cboLDOC_TYPE.Text = "สค.1"
            ElseIf .Rows.Item(e.RowIndex).Cells(8).Value.ToString() = "05" Then
                frmland.cboLDOC_TYPE.Text = "ภบท.5"

            End If

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-12-27 11:27:37 By : pisansri
 


 

No. 13



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



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

ถ้าเป็นรูปภาพละครับ อยากทำเหมือน textbox ต้องเขียนยังไงครับ ผมเขียนเเบบนี้ไม่ได้


frmland.PICTUREBOX1.IMAGE = .Rows.Item(e.RowIndex).Cells(53).Value.ToString()

จาก D:\sspetax\pictureland\01A001.bmp


ประวัติการแก้ไข
2011-02-04 13:05:38
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-02-04 13:00:30 By : pisansri
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ขอสอบถามโค้ด โค้ดปุ้ม ค้นหา คลิ้กที ปุ้ม ok ที่ gridview เเล้วมาโชว์ที่ texbox
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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 00
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 อัตราราคา คลิกที่นี่