DataGrid(Select Line) VS2010

索引サイト

WindowsForm VB2010

Private Sub ReadData_tab1()

    odbc_DataBase.Open()
    Dim w_SQL As String = ""

    w_SQL = w_SQL & "select G1code,G2code,G3code,G4code,G5code"

    w_SQL = w_SQL & ",G5name,G5tani"

    w_SQL = w_SQL & ",cast(G4genk as signed) - 0.00 as G4genk"

    w_SQL = w_SQL & ",cast(ConvKg as signed) - 0.00 as ConvKg"

    w_SQL = w_SQL & " from tb_Gr5mst"

    w_SQL = w_SQL & " where G1code = '12'"

    w_SQL = w_SQL & " order by G1code,G2code,G3code,G4code,G5code"

    Dim w_Adapter As New System.Data.Odbc.OdbcDataAdapter(w_SQL, odbc_DataBase)

    Dim w_DataTable As New DataTable

    w_Adapter.Fill(w_DataTable)

    Me.DataGridView_tab1_1.DataSource = w_DataTable
    odbc_DataBase.Close()
    Me.DataGridView_tab1_1.Columns(0).HeaderText = "G1"

    Me.DataGridView_tab1_1.Columns(1).HeaderText = "G2"

    Me.DataGridView_tab1_1.Columns(2).HeaderText = "G3"

    Me.DataGridView_tab1_1.Columns(3).HeaderText = "G4"

    Me.DataGridView_tab1_1.Columns(4).HeaderText = "G5"

    Me.DataGridView_tab1_1.Columns(5).HeaderText = "名称"

    Me.DataGridView_tab1_1.Columns(6).HeaderText = "単位"

    Me.DataGridView_tab1_1.Columns(7).HeaderText = "原価"

    Me.DataGridView_tab1_1.Columns(8).HeaderText = "Kg換算"

    '******************************

    Me.DataGridView_tab1_1.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

    Me.DataGridView_tab1_1.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

    Me.DataGridView_tab1_1.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

    '******************************

    '****.DataGridView_tab1_1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells

    '****.DataGridView_tab1_1.AutoSizeRowsMode = DataGridViewAutoSizeColumnsMode.AllCells

    Me.DataGridView_tab1_1.RowTemplate.Height = 20

    '******************************

    Me.DataGridView_tab1_1.Columns(0).Width = 35

    Me.DataGridView_tab1_1.Columns(1).Width = 35

    Me.DataGridView_tab1_1.Columns(2).Width = 35

    Me.DataGridView_tab1_1.Columns(3).Width = 35

    Me.DataGridView_tab1_1.Columns(4).Width = 35

    Me.DataGridView_tab1_1.Columns(5).Width = 300

    Me.DataGridView_tab1_1.Columns(6).Width = 60

    Me.DataGridView_tab1_1.Columns(7).Width = 60

    Me.DataGridView_tab1_1.Columns(8).Width = 60

    '******************************

    Me.DataGridView_tab1_1.Font = New Font("", 12)

End Sub

Private Sub DataGridView_tab1_1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView_tab1_1.CellContentClick

    Me.Label_tab1_G1code.Text = Me.DataGridView_tab1_1.CurrentRow.Cells("G1code").Value.ToString

    Me.Label_tab1_G2code.Text = Me.DataGridView_tab1_1.CurrentRow.Cells("G2code").Value.ToString

    Me.Label_tab1_G3code.Text = Me.DataGridView_tab1_1.CurrentRow.Cells("G3code").Value.ToString

    Me.Label_tab1_G4code.Text = Me.DataGridView_tab1_1.CurrentRow.Cells("G4code").Value.ToString

    Me.Label_tab1_G5code.Text = Me.DataGridView_tab1_1.CurrentRow.Cells("G5code").Value.ToString

    Me.Label_tab1_G5name.Text = Me.DataGridView_tab1_1.CurrentRow.Cells("G5name").Value.ToString

    Me.TextBox_tab1_G5tani.Text = Me.DataGridView_tab1_1.CurrentRow.Cells("G5tani").Value.ToString

    Me.TextBox_tab1_G4genk.Text = Format(Me.DataGridView_tab1_1.CurrentRow.Cells("G4genk").Value, "#####0.00")

    Me.TextBox_tab1_ConvKg.Text = Format(Me.DataGridView_tab1_1.CurrentRow.Cells("ConvKg").Value, "#####0.00")

End Sub

WPF VB2010

Private Sub DataGrid_tab1_1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.Windows.Controls.SelectionChangedEventArgs) Handles DataGrid_tab1_1.SelectionChanged
    Dim w_dataGrid As DataGrid

    w_dataGrid = sender
    Me.tab1_G1Code.Content = w_dataGrid.CurrentCell.Item(0).ToString

    Me.tab1_G2Code.Content = w_dataGrid.CurrentCell.Item(1).ToString

    Me.tab1_G3Code.Content = w_dataGrid.CurrentCell.Item(2).ToString

    Me.tab1_G4Code.Content = w_dataGrid.CurrentCell.Item(3).ToString

    Me.tab1_G5Code.Content = w_dataGrid.CurrentCell.Item(4).ToString

    Me.tab1_G5Name.Content = w_dataGrid.CurrentCell.Item(5).ToString
End Sub

WPF C#2010

private void Button_tab1_init_Click(object sender, RoutedEventArgs e)

{

    z_odbc_DataBase.Open();
    String w_SQL = null;

    w_SQL += "select G1code,G2code,G3code,G4code,G5code";

    w_SQL += ",G5name,G5tani";

    w_SQL += ",cast(G4genk as signed) - 0.00 as G4genk";

    w_SQL += ",cast(ConvKg as signed) - 0.00 as ConvKg";

    w_SQL += " from tb_Gr5mst";

    w_SQL += " where G1code = '12'";

    w_SQL += " order by G1code,G2code,G3code,G4code,G5code";

    System.Data.Odbc.OdbcDataAdapter w_Adapter = new System.Data.Odbc.OdbcDataAdapter(w_SQL, z_odbc_DataBase);

    System.Data.DataSet w_DataSet = new System.Data.DataSet();

    w_Adapter.Fill(w_DataSet);

    this.DataGrid_tab1_1.ItemsSource = w_DataSet.Tables[0].DefaultView;
    z_odbc_DataBase.Close();
    this.DataGrid_tab1_1.Columns[0].Header = "G1";

    this.DataGrid_tab1_1.Columns[1].Header = "G2";

    this.DataGrid_tab1_1.Columns[2].Header = "G3";

    this.DataGrid_tab1_1.Columns[3].Header = "G4";

    this.DataGrid_tab1_1.Columns[4].Header = "G5";

    this.DataGrid_tab1_1.Columns[5].Header = "名称";

    this.DataGrid_tab1_1.Columns[6].Header = "単位";

    this.DataGrid_tab1_1.Columns[7].Header = "原価";

    this.DataGrid_tab1_1.Columns[8].Header = "Kg換算";
    this.DataGrid_tab1_1.Columns[0].Width = 35;

    this.DataGrid_tab1_1.Columns[1].Width = 35;

    this.DataGrid_tab1_1.Columns[2].Width = 35;

    this.DataGrid_tab1_1.Columns[3].Width = 35;

    this.DataGrid_tab1_1.Columns[4].Width = 35;

    this.DataGrid_tab1_1.Columns[5].Width = 300;

    this.DataGrid_tab1_1.Columns[6].Width = 60;

    this.DataGrid_tab1_1.Columns[7].Width = 60;

    this.DataGrid_tab1_1.Columns[8].Width = 60;

    //***********************************

    this.DataGrid_tab1_1.FontSize = 12;
    Style w_style_C = new Style(typeof(DataGridCell));

    Style w_style_R = new Style(typeof(DataGridCell));

    w_style_C.Setters.Add(new Setter(DataGrid.HorizontalAlignmentProperty, HorizontalAlignment.Center));

    w_style_R.Setters.Add(new Setter(DataGrid.HorizontalAlignmentProperty, HorizontalAlignment.Right));

    DataGrid_tab1_1.Columns[6].CellStyle = w_style_C;

    DataGrid_tab1_1.Columns[7].CellStyle = w_style_R;

    DataGrid_tab1_1.Columns[8].CellStyle = w_style_R;

}

private void DataGrid_tab1_1_SelectionChanged(object sender, SelectionChangedEventArgs e)

{

    DataGrid w_dataGrid = (DataGrid)e.Source;
    DataRowView myRow = (DataRowView)w_dataGrid.CurrentCell.Item;

    this.tab1_G1Code.Content = myRow.Row.ItemArray[0].ToString();

    this.tab1_G2Code.Content = myRow.Row.ItemArray[1].ToString();

    this.tab1_G3Code.Content = myRow.Row.ItemArray[2].ToString();

    this.tab1_G4Code.Content = myRow.Row.ItemArray[3].ToString();

    this.tab1_G5Code.Content = myRow.Row.ItemArray[4].ToString();

    this.tab1_G5Name.Content = myRow.Row.ItemArray[5].ToString();

}