2017-08-19 35 views
-1

私は2つのフォームを持っています。私は既にいくつかの値がmsアクセスデータベースに接続されている1つのフォームでdatagridviewに表示されています。私が最初の2番目のフォームからのdatagridviewから行をクリックすると、画面に表示され、テキストボックスにデータが表示されます。私は以下のコードを成功させずに試してみました。誰かが助けてくれますか?おかげDataGridView選択した行データを別のフォームで表示

パブリック・クラスMain_Frm

Private Sub TBL_TEAMSBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBL_TEAMSBindingNavigatorSaveItem.Click 
    Me.Validate() 
    Me.TBL_TEAMSBindingSource.EndEdit() 
    Me.TableAdapterManager.UpdateAll(Me.FootBallDataSet) 

End Sub 

Private Sub Main_Frm_Load(sender As Object, e As EventArgs) Handles MyBase.Load 

    'TODO: This line of code loads data into the 'FootBallDataSet.TBL_TEAMS' table. You can move, or remove it, as needed. 
    Me.TBL_TEAMSTableAdapter.Fill(Me.FootBallDataSet.TBL_TEAMS) 

End Sub 

Private Sub TBL_TEAMSDataGridView_Click(sender As Object, e As EventArgs) Handles TBL_TEAMSDataGridView.Click 

    If TBL_TEAMSDataGridView.SelectedRows.Count Then 
     Dim Schedule_Form As New Schedule_Frm 
     Schedule_Form.SelectRows = TBL_TEAMSDataGridView.SelectedRows 
     Schedule_Form.ShowDialog() 
    End If 

End Sub 

エンドクラス

+0

あなたは基本的な 'form2.textboxname.text = this.dg.currentrow.cell [name/index] .value'を試すことができますし、' form2.show() ' – Muj

+0

私はこれにも従っています下の例は成功しません。助けてください。 プライベートサブDataGridView1_Click(オブジェクトとして送信者のEventArgsとしてe)はDataGridView1.Click 薄暗いフォームを処理する新しいフォーム2 form.TextBox1.Text = DataGridView1.CurrentRow.Cells(0).Value.ToStringを() form.TextBox2として.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString() form.TextBox3.Text = DataGridView1.CurrentRow.Cells(2).Value.ToString() form.TextBox4.Text = DataGridView1.CurrentRow.Cells (3).Value.ToString() form.ShowDialog() End Sub –

答えて

0

は、私はあなたのSchedule_Formで "SelectRows" だか分からない、しかし、私は目Schedule_Formで次の操作を行いたい:

Public RID as int32 

Public Sub LoadMyRecordFromDataSource() 
    ' your data loading function for 1 record here, use RID as a key 
End Sub 

次に、あなたのメインフォームで(テキストボックス内で一度に1行しか編集できない - この場合、上記のコードは失敗します):

Private Sub TBL_TEAMSDataGridView_Click(sender As Object, e As EventArgs) Handles TBL_TEAMSDataGridView.Click 

    If TBL_TEAMSDataGridView.SelectedRows.Count Then 
     Dim Schedule_Form As New Schedule_Frm 
     Schedule_Form.RID = TBL_TEAMSDataGridView.SelectedRows(0).Cells("ID").value ' get your ID 
     Schedule_Form.LoadMyRecordFromDataSource() ' load your selected record 
     Schedule_Form.ShowDialog() 
    End If 

End Sub 
関連する問題