Forgot Password ??

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

	Registered : 109,027

HOME > .NET Framework > Forum > เรื่องของ Combobox ครับ ต้องการแอดค่าให้กับ Combobox ครับ

เรื่องของ Combobox ครับ ต้องการแอดค่าให้กับ Combobox ครับ

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

Balll2iFFer

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

ผมประกาศตัวแปร

dim i as integer

แล้วเก็บค่าเลข 12 ไว้ในตัวแปร i

อยากถามว่า จะใช้วิธีไหนดีครับ ในการแอดค่าให้กับ combobox โดยให้มีข้อมูลสูงสุดแค่ตัวแปร i ครับ

1
2
3
4
5
6
7
8
9
10
11
12

(เริ่มไม่ถูกครับ

)

Tag : .NET, Ms SQL Server 2005, VS 2005 (.NET 2.x)

Date : 2014-12-03 13:45:00

By : nameball

View : 1486

Reply : 14

No. 1

TOR_CHEMISTRY

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

อ่านแล้วงง สงสัยยังเมาค้างยุ

ตามความเข้าใจละกันนะครับ

Code (VB.NET)

for(i = 1 to 12 )
  combobox.items.add(i)
next

ใช่ตามที่ต้องการป่าวครับ

Date : 2014-12-03 14:02:57

By : lamaka.tor

No. 2

Balll2iFFer

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

ตอบความคิดเห็นที่ : 1 เขียนโดย : lamaka.tor เมื่อวันที่ 2014-12-03 14:02:57

รายละเอียดของการตอบ ::

ขอลองแปปนะครับ ไม่เมาครับ ง่วงครับ 555

Date : 2014-12-03 14:05:27

By : nameball

No. 3

Balll2iFFer

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

ตอบความคิดเห็นที่ : 1 เขียนโดย : lamaka.tor เมื่อวันที่ 2014-12-03 14:02:57

รายละเอียดของการตอบ ::

ได้แล้วครับ ขอบคุณมากครับ สงสัยผมจะง่วงเกินไปจริงๆ

Date : 2014-12-03 14:30:22

By : nameball

No. 4

TOR_CHEMISTRY

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

ตอบความคิดเห็นที่ : 3 เขียนโดย : nameball เมื่อวันที่ 2014-12-03 14:30:22

รายละเอียดของการตอบ ::

ไม่ได้ว่าคุณครับผมว่าผมอ่าเมา
(ขอมะม่วงเป็นกับแกล้มซักโลเป็นค่าตอบแทนได้ป่ะ 5555)

Date : 2014-12-03 14:46:02

By : lamaka.tor

No. 5

Balll2iFFer

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

ตอบความคิดเห็นที่ : 4 เขียนโดย : lamaka.tor เมื่อวันที่ 2014-12-03 14:46:02

รายละเอียดของการตอบ ::

โห่ ใจตรงกันแท้ครับ วันนี้จัดมา 4 ลูก เปรี้ยวแสบหูแสบตาหมด 555

ว่าแต่ แก้ข้อมูลมันลูบซ้ำยังไงอ่ะครับ

1
2
3
4
5
1
2
3
4
5

ถ้าเป็น sql คงใช้ Distinct แต่อันนี้ มะเคยเจอครับ

Date : 2014-12-03 15:00:22

By : nameball

No. 6

TOR_CHEMISTRY

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

ตอบความคิดเห็นที่ : 5 เขียนโดย : nameball เมื่อวันที่ 2014-12-03 15:00:22

รายละเอียดของการตอบ ::

1.ถ้าเป็นแค่เพิ่มแบบธรรมดาไม่มีลูกเล่นไร

Code

 ComboBox1.Items.Clear()
for(i = 1 to 12 )
  combobox.items.add(i)
next

2.ถ้าเอาข้อมูลมาจากที่ือื่นก็คงต้องตัดซ้ำออกก่อน รึไม่ก็ตัดตอน for(ประมาณว่าถ้าซ้ำก็ไม่ต้อง add)

Date : 2014-12-03 15:23:48

By : lamaka.tor

No. 7

Balll2iFFer

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

ตอบความคิดเห็นที่ : 6 เขียนโดย : lamaka.tor เมื่อวันที่ 2014-12-03 15:23:48

รายละเอียดของการตอบ ::

ขอบคุณที่ให้คำแนะนำอีกครั้งครับ ขอลองก่อนนะ

Date : 2014-12-03 15:26:06

By : nameball

No. 8

Balll2iFFer

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

ตอบความคิดเห็นที่ : 6 เขียนโดย : lamaka.tor เมื่อวันที่ 2014-12-03 15:23:48

รายละเอียดของการตอบ ::

Code (VB.NET)

      Dim i As Integer
        For i = 1 To numi
            cbbnumwaste.Items.Add(i)
            Exit Sub
        Next

ยังซ้ำอยู่ครับ

ถ้าใส่

cbbnumwaste.items.clear()

จะมีโผล่แค่เลข 1 มาตัวเดียวเองครับ

Date : 2014-12-03 15:31:42

By : nameball

No. 9

Balll2iFFer

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

Code (VB.NET)

Private Sub txtgoodsname_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtgoodsname.TextChanged

        strcon = "SELECT...."
        ds = New DataSet
        da = New SqlDataAdapter(strcon, conn)
        da.Fill(ds, "GoodsImport")

        For Each row As DataRow In ds.Tables("GoodsImport").Rows
            txtgoodsid.Text = row("goodsID").ToString
            txtgoodsname.Text = row("goodsName").ToString
            txtbarcode.Text = row("barcode").ToString
            txtgoodsmodel.Text = row("goodsModel").ToString
            txtgoodsdetail.Text = row("goodsDetail").ToString
            txtnumSent.Text = row("numSent").ToString
            numi = row("numSent").ToString '<=======
        Next

    End Sub

โค้ดส่วนที่แอดค่าให้กับ numi ครับ

Code (VB.NET)

 Private Sub txtnumSent_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtnumSent.TextChanged

        Dim i As Integer
        For i = 1 To numi
            cbbnumwaste.Items.Add(i)
        Next
        Exit Sub

    End Sub

โค้ดส่วน loop ครับ

Date : 2014-12-03 15:35:21

By : nameball

No. 10

TOR_CHEMISTRY

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

ตอบความคิดเห็นที่ : 9 เขียนโดย : nameball เมื่อวันที่ 2014-12-03 15:35:21

รายละเอียดของการตอบ ::

Code (VB.NET)

Private Sub txtnumSent_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtnumSent.TextChanged

     cbbnumwaste.items.clear()
       Dim i As Integer
       For i = 1 To numi
           cbbnumwaste.Items.Add(i)
       Next


   End Sub

Date : 2014-12-03 15:45:00

By : lamaka.tor

No. 11

Balll2iFFer

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

ตอบความคิดเห็นที่ : 10 เขียนโดย : lamaka.tor เมื่อวันที่ 2014-12-03 15:45:00

รายละเอียดของการตอบ ::

555 ขอบคุณอีกครั้งครับ มากๆเลย

คห.8 ผมสลับกัน ผมผิดเองครับ 55 ความง่วงเป็นเห็นแท้ๆ ขอบคุณครับ

Code (VB.NET)

Dim i As Integer
cbbnumwaste.items.clear() '<====
For i = 1 To numi
cbbnumwaste.Items.Add(i)
Next

ประวัติการแก้ไข
2014-12-03 15:51:34

Date : 2014-12-03 15:50:40

By : nameball

No. 12

TOR_CHEMISTRY

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

ทำไมซับซ้อนจังครับ
ไม่หา max(numSent) ทีเดียวไปเลยอ่าครับ
(รึต้องเป็นแบบนี้)
ยังไงเราก็ต้องเอาทั้งหมดออกมาใช้งานน๊
งั้นหา max(numSent) ดีกว่า
SQL ผมยิ่งไม่แข็งแรงซะด้วย
ไปแกะเอานะครับอันไหนไม่ถูก
Code (VB.NET)

Private Sub txtgoodsname_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtgoodsname.TextChanged

 strcon = "SELECT...."
        ds = New DataSet
        da = New SqlDataAdapter(strcon, conn)
        da.Fill(ds, "GoodsImport")

        For Each row As DataRow In ds.Tables("GoodsImport").Rows
            txtgoodsid.Text = row("goodsID").ToString
            txtgoodsname.Text = row("goodsName").ToString
            txtbarcode.Text = row("barcode").ToString
            txtgoodsmodel.Text = row("goodsModel").ToString
            txtgoodsdetail.Text = row("goodsDetail").ToString
            txtnumSent.Text = row("numSent").ToString
            numi = row("numSent").ToString '<=======
        Next

        strcon = "SELECT max(numSent) as max_numSent form ....."
        ds = New DataSet
        da = New SqlDataAdapter(strcon, conn)
        da.Fill(ds, "GoodsImport")
            numi = row("max_numSent")
            cbbnumwaste.items.clear()
            Dim i As Integer
            For i = 1 To numi
                cbbnumwaste.Items.Add(i)
            Next

End Sub

txtnumSent_TextChanged ตัดออกไปเลยก็ได้ครับ

Date : 2014-12-03 15:56:09

By : lamaka.tor

No. 13

Balll2iFFer

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

ตอบความคิดเห็นที่ : 12 เขียนโดย : lamaka.tor เมื่อวันที่ 2014-12-03 15:56:09

รายละเอียดของการตอบ ::

อ่อ ขอบคุณที่แนะนำครับ แต่แบบที่คุณ lamaka.tor บอกตอนแรกก็โอเค ตรงตามเป้าหมายแล้วครับ อิอิ

Date : 2014-12-04 08:06:10

By : nameball

No. 14

TOR_CHEMISTRY

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

ตอบความคิดเห็นที่ : 13 เขียนโดย : nameball เมื่อวันที่ 2014-12-04 08:06:10

รายละเอียดของการตอบ ::

พอดีเห็นโค๊ดแล้วงง
เพราะว่าถ้า for แบบนั้น สุดท้าย combobox จะส่งค่า rows ล่าสุดไป
แล้วทำไมไม่เอา rows ล่าสุดทีเดียวไปเลยละครับ
ไม่ต้องเสียเวลา for

Date : 2014-12-04 08:29:56

By : lamaka.tor

ค้นหาข้อมูล

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

Re : เรื่องของ Combobox ครับ ต้องการแอดค่าให้กับ Combobox ครับ

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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