編集

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

shu様、ご回答ありがとうございます。

ご指摘がありました連結の仕方に関してですが、以下のように起動時にデータベースを検索し、その
内容を連結しています。

その後、Datarepeater上にある品目番号というテキストをダブルクリックするという処理になります。

教えて頂いたように、TXT_品目番号_DoubleClick の処理の中に記載しましたが、BindingSource1が何に該当
するかわからず、、、

何かから何まで質問する形で申し訳ありません。

教えて下さい。

Private Sub 仕様書_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'データセットにテーブルを追加する
        dtTable = dtSet.Tables.Add("品目マスタ検索_TBL")
        'テーブルにフィールドを追加する
        '.Add("フィールド名", フィールドの型)で追加します
        dtTable.Columns.Add("品目番号", Type.GetType("System.String"))
        dtTable.Columns.Add("品目名称", Type.GetType("System.String"))
        dtTable.Columns.Add("メーカー名", Type.GetType("System.String"))

Dim Connection As New OracleConnection
        Dim Command As New OracleCommand

Try

'Oracleへのコネクションの確立
            Connection.ConnectionString = "User Id=XXXXXX; Password=999999; Data Source=XE"

Command.Connection = Connection

Try

Dim Select_SQL As String

'SQL文作成
                Select_SQL = "SELECT * FROM T_品目マスタ"

Dim adp As New OracleDataAdapter(Select_SQL, Connection)

ds.Clear()

'データセットの中に仕入先マスタ_Tというテーブルを作成し、そこへ格納する。
                adp.Fill(ds, "品目マスタ_T")

'テーブルを指定
                DP_仕様書.DataMember = "品目マスタ_T"

'コントロールにデータを連結
                TXT_品目番号.DataBindings.Add("Text", dt, "品目番号")
                TXT_仕様書型名.DataBindings.Add("Text", dt, "品目名称")
                TXT_部品表型名.DataBindings.Add("Text", dt, "社外名称")
                TXT_メーカー名.DataBindings.Add("Text", dt, "メーカー名")

'データセットをDataGridViewにバインド
                DP_仕様書.DataSource = ds

Catch ex As Exception
                ' 例外が発生した時の処理

MsgBox(ex.Message)

End Try

Catch ex As Exception

End Try

'新規行を作成
        DP_仕様書.AddNew()

End Sub

Private Sub TXT_品目番号_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TXT_品目番号.DoubleClick

Dim IN_品目番号 As String

Dim row = DirectCast(BindingSource1.Current, DataRowView).Row
        Dim Text2 = DP_仕様書.CurrentItem.Controls("TXT_品目番号")
        Text2.Text = row("品目番号").ToString

End Sub

←解決時は質問者本人がここをチェックしてください。

DataRepeaterに関して (ID:147951)