Private Sub funcShowDetail()
Try
Dim strSyainmei As String = txtstrSyainmei.Text
dsZ2103Info = objDA_1.Syainmei_search(strSyainmei)
Me.GcKinkoDetail.SuspendLayout()
Me.GcKinkoDetail.DataSource = dsZ2103Info.Tables(0)
Me.GcKinkoDetail.MultiSelect = False
Me.GcKinkoDetail.ViewMode = GrapeCity.Win.MultiRow.ViewMode.Row
Me.GcKinkoDetail.ReadOnly = True
Me.GcKinkoDetail.ResumeLayout()
' ↓==== 変更() C0111:2011/08/1 ====↓
Me.GcKinkoDetail.ColumnHeadersDefaultHeaderCellStyle.BackColor =Color.MidnightBlue
Dim headercell As New ColumnHeaderCell()
headercell.FlatStyle = FlatStyle.Flat
headercell.FlatAppearance = New MultiRowFlatButtonAppearance()
headercell.FlatAppearance.MouseOverBackColor = Color.Red |