none
請問有關於TabControl的問題 RRS feed

  • 問題

  • 各位先進~~~~~~~~
    請問有關於TabControl的問題
    現在我的Form裡有一個TabControl和一個Button、DataGridView1
    TabControl裡有三個TabPages(裡面只供查詢不供編寫)
    問題一:在TabPages1裡另一個地方按下Button會出現視窗"需要物料格層級的內容才能加入清單"
    問題二:在TabPages2裡另一個地方按下Button會出現視窗"需要物料格層級的內容才能加入清單"
    問題三:在TabPages3裡查詢到的那一列,按下Button後會將查詢到的那列資料加入到DataGridView1裡
    請問我該怎麼寫????

     

    程式碼區塊

    Private Sub Form5111_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
                   

            Dim cmmd As New SqlClient.SqlCommand
            cmmd = New SqlClient.SqlCommand("SELECT  B_CprPInvertory.LocationID AS 物料格編號,A_Component.ComponentID AS 物料編號,B_CprPInvertory.DPNum AS 入庫數量,B_CprPInvertory.FormID AS 請購單編號,B_CprPInvertory.VendorName AS 廠商名稱,A_Component.UPrice AS 單價,B_CprPInvertory.BatchNo AS 批號,B_CprPInvertory.Remark AS 備註,A_Component.Component AS 物料名稱 FROM A_Component INNER JOIN B_CprPInvertory ON A_Component.ComponentID = dbo.B_CprPInvertory.ComponentID", cn)
            da.SelectCommand = cmmd
            ds = New DataSet
            da.Fill(ds, "A_component")
            ds.Tables("A_component").Clear()
            DataGridView1.DataSource = ds.Tables("A_component")


            '作業清單的DataGridView
            LocDataGridView.DataSource = LocBindingSource
            ' DataDataGridView.DataSource = DataBindingSource
            ' CompDataGridView.DataSource = CompBindingSource

            t = CMMS1DataSet.Loc.Rows(0)(1)

            ds = New DataSet
            Dim cmd As New SqlClient.SqlCommand("select SetUpID as 上層編號,SetSysID as 儲存空間編號,SetName as 空間說明 from D_InvIndex", cn)
            da.SelectCommand = cmd
            da.Fill(ds, "InvIndex2")
            ds.Tables("InvIndex2").Clear()
            cmd = New SqlClient.SqlCommand("select D_InvIndex.SetUpID AS 上層編號,D_InvIndex.SetSysID AS 儲存空間編號,D_InvIndex.ComponentID AS 物料編號,A_Component.Component AS 物料名稱,A_Component.Specification AS 規格,D_InvIndex.Num AS 庫存量 FROM D_InvIndex INNER JOIN A_Component ON D_InvIndex.ComponentID = A_Component.ComponentID WHERE D_InvIndex.SetLevelNo = 5", cn)
            da.SelectCommand = cmd
            da.Fill(ds, "InvIndex3")
            ds.Tables("InvIndex3").Clear()

        End Sub

     

     

     

     

    程式碼區塊

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            ''按下加入清單後,查詢到的物料編號會show到DataGridView1
                   Dim cmd As New SqlClient.SqlCommand("SELECT  B_CprPInvertory.LocationID AS 物料格編號,A_Component.ComponentID AS 物料編號,B_CprPInvertory.DPNum AS 入庫數量,B_CprPInvertory.FormID AS 請購單編號,B_CprPInvertory.VendorName AS 廠商名稱,A_Component.UPrice AS 單價,B_CprPInvertory.BatchNo AS 批號,B_CprPInvertory.Remark AS 備註,A_Component.Component AS 物料名稱 FROM A_Component INNER JOIN B_CprPInvertory ON A_Component.ComponentID = dbo.B_CprPInvertory.ComponentID", cn)
            da = New SqlDataAdapter
            ds = New DataSet
            da.SelectCommand = cmd

            da.Fill(ds, "B_CprPInvertor")
            DataGridView1.Columns.Clear()
            DataGridView1.DataSource = ds.Tables("B_CprPInvertor")


            'If TabControl1  Then    '<---這裡不知要怎麼下語法
            '    MessageBox.Show("需要物料格層級的內容才能加入清單")
            'End If

     

     

    2007年11月14日 上午 07:27

解答

  • 回答你 問題一與問題二

    程式碼區塊

     

     If (Me.TabControl1.SelectedIndex = 0) Or (Me.TabControl1.SelectedIndex = 1) Then

       MessageBox.Show("需要物料格層級的內容才能加入清單")

     End If

     

     

     

     

    問題三 與TabControl 無關 所以 請另闢 主題發問
    2007年11月14日 上午 08:47

所有回覆

  • 回答你 問題一與問題二

    程式碼區塊

     

     If (Me.TabControl1.SelectedIndex = 0) Or (Me.TabControl1.SelectedIndex = 1) Then

       MessageBox.Show("需要物料格層級的內容才能加入清單")

     End If

     

     

     

     

    問題三 與TabControl 無關 所以 請另闢 主題發問
    2007年11月14日 上午 08:47
  •  

    程式碼區塊

    If (Me.TabControl1.SelectedTab Is Me.TabPage2) Or (Me.TabControl1.SelectedTab Is Me.TabPage1) Then

       MessageBox.Show("需要物料格層級的內容才能加入清單")

     End If

     

     

    2007年11月14日 上午 09:17
  • 程式勞工~~~~~~

    兩個都可以,已試過!!~~~~~~~~~~感恩!!

    2007年11月14日 上午 09:39