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

HOME > .NET Framework > Forum > สอบถามเรื่อง VB On Excel ครับ Code ตรวจสอบข้อมูลก่อนนำมาแสดงผลตามกลุ่มเป้าหมาย



 

สอบถามเรื่อง VB On Excel ครับ Code ตรวจสอบข้อมูลก่อนนำมาแสดงผลตามกลุ่มเป้าหมาย

 



Topic : 130156



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



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




ผมมีงานมา 1 ชิ้น ทำแบบฟอร์มการขอขึ้นทะเบียน
มีชุดข้อมูลเป็นชื่อบริษัท อยู่ใน 3 Sheet ซึ่งชื่อ Sheet จะเป็น ผู้ที่ดูแลบริษัทต่างๆ แต่ละคนดูแลบริษัทที่ต่างกันออกไป
อยากทราบ code การเช็ค ข้อมูลในช่อง Textbox << เลขที่อ้างอิง เช่น ORN , CHOMPOO , PIK
เมื่อกรอก ข้อมูลอ้างอิง ลงไปใน Textbox จะปรากฎเป็นชื่อ บริษัท ของแต่ละคน ขึ้นมา ใน Combobox << ชื่อบริษัท ของแต่ละคน
Ex. กรอกเลขอ้างอิง ORN (textbox)
จะแสดงรายยชื่อบริษัท ใน combobox >> A
B
C
กรอกเลขอ้างอิง CHOMPOO (textbox)
จะแสดงรายยชื่อบริษัท ใน combobox >> D
E
F
กรอกเลขอ้างอิง PIK (textbox)
จะแสดงรายยชื่อบริษัท ใน combobox >> G
H
I
รบกวนขอความกรุณาด้วยครับ VBCODE กับ Excel



Tag : Excel (Excel.Application), VB.NET







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2018-02-01 14:08:17 By : jullathep View : 510 Reply : 1
 

 

No. 1



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



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

ทำเป็น 2 combobox เพื่อลิงค์ข้อมูลไปยังอีกอัน

Code (VBScript)
    `If cboClient.SelectedItem.Text = "Google" then
     (code to populate the other combobox with google info)
     End if`


     `If cboClient.SelectedItem.Text = "Yahoo" then 
        dim sql as string = "Select firstName+ " " +lastname as empName from 
        Yahoo table"
        dim cmd as sqladapter(sql, con)
        dim dt as datatable
        cmd.fill(dt)
        cboUsers.datasource = dt
        cboUsers.Datatextfield = "empName"
        cboUsers.Datavaluefield = "empName"
        cboUsers.DataBind()
     End if


        Dim sql2 As String = "Select EQPnumber, EQPdesc from CREW_LINEUP_ACTIVE_EQUIPMENT"
        Dim activeEQPadt As New SqlDataAdapter(sql2, IPMS.Settings.conn)
        activeEQPadt.Fill(activeDT)
        ActiveEQPLstBx.DataSource = activeDT
        ActiveEQPLstBx.DataTextField = "EQPdesc"
        ActiveEQPLstBx.DataValueField = "EQPnumber"
        ActiveEQPLstBx.DataBind()


Grant Wilson








ประวัติการแก้ไข
2020-08-01 13:44:28
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2020-08-01 13:43:52 By : PhrayaDev
 

   

ค้นหาข้อมูล


   
 

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