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 > รบกวนท่านผู้รู้ด้วยครับ เกี่ยวกับ combobox ครับ คือผมต้องการให้มีการเลือกประเภทสินค้า แล้วในcombo ถัดมาจะโชว์ชื่อสินค้าและราคา



 

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

 



Topic : 053919



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



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




ทดสอบ

จากรูปภาพนะครับ
คือ ผมต้องการให้หลังจากที่ใส่รหัสสมาชิกเข้าไปแล้ว ชื่อสมาชิกจะโชว์ใน textbox ข้างหลัง
และหลังจากที่เลือกประเภทสินค้า แล้วชื่อสินค้าจะโชว์เฉพาะที่มีในประเภทนั้นๆ ในช่องราคาก็จะโชว์ราคาของสินค้านั้นๆ
ต้องทำยังไงครับ

แบบว่า เขียนโค๊ดยังไงครับ

*สินค้ากับประเภทอยู่กันคนละเทเบิล ส่วนราคาอยู่ในเทเบิลสินค้าครับ



Tag : .NET, Ms Access, VB.NET







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2011-01-03 22:21:45 By : aneklove View : 1517 Reply : 12
 

 

No. 1



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



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

ก็ใส่ Even ตอนเปลี่อนค่าใน ช่องของ combobox อันที่ 1 ครับ (วิธีทำก็คือ ดับเบิลคลิกไปที่ combobox อันนัั้นเลย) โดยใส่โค๊ตไปประมาณว่า เมื่อถูกเปลี่ยนแล้ว ให้นำเงื่อนไขค่าใน combobox ของประเภทสินค้า ไป qurey ข้อมุลออกมาโชว์ใน combobox อันที่ 2 เลยครับ หรือ/และ อันอื่นๆ ก็ว่ากันไปครับผม

โทษทีนะครับ ความรู้ผมมานยังน้อย






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-01-04 09:25:37 By : zero1150kfc
 


 

No. 2

Guest


โค๊ตไม่ยากครับ แต่แค่ผมเขียน VB.Net ไม่เป็นเท่านั้นเอง

เรื่องรหัสสมาชิก ให้ทำใน Event ของ TextChanged แล้ว TextBox อันหลังก็เท่ากับ TextBox อันแรก !

ส่วนเรื่องประเภทสินค้า ตารางประเภทสินค้าต้องเป็น FK ของชื่อสินค้าอยู่แล้ว โค๊ต Query ก็ใส่ใน Event SelectedIndexChanged แค่นี้เองครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-01-04 10:08:13 By : AMZ
 

 

No. 3



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



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


ขอบคุณครับ แต่ปัญหาของผมคือ อันแรก มันไม่ขึ้นชื่อสมาชิก แต่ไปขึ้นรหัสแทน
ส่วนในช่องราคาก็ไปขึ้นรหัสสินค้าอ่ะครับ โค๊ดดังนี้ครับ
Code (VB.NET)
'โชว์ประเภทสินค้า ใส่ชื่อประเภทใน combo แรก
Private Sub Showtype()
        Dim sql As String = "SELECT * FROM Pro_Type"
        da.SelectCommand = New OleDbCommand(sql, conn)
        da.Fill(ds, "pro")
        With cb_type
            .DataSource = ds.Tables("pro")
            .DisplayMember = "Protype_name"
            .ValueMember = "Protype_ID"
        End With
    End Sub

'ตรงนี้ใส่ในอีเวนท์ของ combo แรก

Private Sub Showpro()
        Dim sql As String = "SElECT Product_ID,ProductName FROM Product Where Protype_ID='" & cb_type.SelectedValue.ToString & "'"
        da = New OleDbDataAdapter(sql, conn)
        Dim dsproduct As New DataSet
        da.Fill(dsproduct, "product")
        With cb_pro
            .BeginUpdate()
            .DisplayMember = "ProductName"
            .ValueMember = "Product_ID"
            .DataSource = dsproduct.Tables("Product")
            .EndUpdate()
        End With
    End Sub

'โชว์ราคาสินค้า ใส่ในอีเวนท์ของ combobox ที่2
Private Sub Showprice()
        Dim price As String = ""
        Dim sql As String = "SElECT PriceSale FROM Product WHERE Product_ID='" & cb_pro.SelectedValue.ToString & "'"
        da = New OleDbDataAdapter(sql, conn)
        Dim dsproduct As New DataSet
        da.Fill(dsproduct, "pro")
        tb_price.Text = cb_pro.SelectedValue.ToString
    End Sub

' อันนี้ใส่ในอีเวนท์ของ textbox รหัสสมาชิก โชว์ชื่อสมาชิก
Private Sub Showname()
        Dim sql As String = "SElECT Mem_Firstname FROM Member WHERE Member_ID='" & tb_mem.Text.ToString & "'"
        da = New OleDbDataAdapter(sql, conn)
        Dim dsmem As New DataSet
        da.Fill(dsmem, "Member")
        tb_name.Text = tb_mem.Text.ToString
    End Sub

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-01-04 11:04:14 By : aneklove
 


 

No. 4



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



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


tb_name.Text = tb_mem.Text.ToString <<< ถ้าเขียนงี้มันก็ต้องโชว์รหัสถูกต้องแล้ว เพราะไปเอาค่าใน tb_mem มา

ต้อง งี้

'< แบบว่า code สด อาจจะผิดนะ คือว่าเช็คก่อนอะมันมีค่าหรือเปล่า ถ้ามีค่อยแสดง>

if dsmem.Table("Member").row(0).item(0) <> dbNull.Value Then

tb_name.Text = dsmem.Table("Member").row(0).item(0)

End If
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-01-04 13:50:24 By : stricken
 


 

No. 5



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



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


ขอบคุณมากครับ จะลองดูครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-01-04 23:20:42 By : aneklove
 


 

No. 6



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



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


ผิดอีกแล้ว

ลองแล้วเป็นยังงี้ครับ

tb_name.Text = dsmem.Table("Member").row(0).item(0) <<มันมีปัญหาตรงนี้แหละครับ

ไม่รู้ว่าจะใส่ยังไงครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-01-06 11:53:17 By : aneklove
 


 

No. 7



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



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


เอา เมาท์จิ้มดู error ว่าอะไร?
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-01-06 14:22:15 By : stricken
 


 

No. 8



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



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


ยังงี้ครับ ขอรบกวนด้วยครับ

11


ประวัติการแก้ไข
2011-01-07 01:36:40
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-01-06 15:47:00 By : aneklove
 


 

No. 9

Guest


รอดูด้วยคน
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-01-07 03:27:13 By : รู้น้อย
 


 

No. 10



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



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


Table ตัองมี S
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-01-07 08:31:27 By : kaimuk
 


 

No. 11



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



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

dsmem สร้างตัวแปรเป็น Data set ยังเหรอครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-01-07 08:32:19 By : zero1150kfc
 


 

No. 12



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



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


ได้แล้วครับ ผมเปลี่ยนเป็น datatable และเปลี่ยนเป็นรับค่าจาก textbox ด้วยพารามิเตอร์

Code (VB.NET)
Private Sub Showname()
        Dim sql As String = "SElECT Mem_Firstname FROM Member WHERE Member_ID=mem"
        cmd = New OleDbCommand
        With cmd
            .CommandText = sql
            .CommandType = CommandType.Text
            .Connection = conn
            .Parameters.Clear()

            .Parameters.AddWithValue("mem", tb_mem.Text)
            .ExecuteNonQuery()
        End With
        Dim dt As DataTable
        dt = New DataTable("Mem_Firstname")
        dr = cmd.ExecuteReader
        dt.Load(dr)
        tb_name.Text = CStr((dt.Rows(0)("Mem_Firstname")))

    End Sub



ประวัติการแก้ไข
2011-01-07 23:11:19
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-01-07 13:26:35 By : aneklove
 

   

ค้นหาข้อมูล


   
 

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