'グリッドビューカラム幅変更イベント
Private Sub dgvData_ColumnWidthChanged( _
 ByVal sender As Object, _
 ByVal e As System.Windows.Forms.DataGridViewColumnEventArgs) _
 Handles dgvData.ColumnWidthChanged

  If dgvTotal.Columns.Count > e.Column.Index Then
    dgvTotal.Columns(e.Column.Index).Width = e.Column.Width
  End If

End Sub

'グリッドビュースクロールイベント
Private Sub dgvData_Scroll( _
 ByVal sender As Object, _
 ByVal e As System.Windows.Forms.ScrollEventArgs) _
 Handles dgvData.Scroll

  If e.ScrollOrientation = ScrollOrientation.HorizontalScroll Then
    dgvTotal.HorizontalScrollingOffset = e.NewValue
  End If

End Sub

スポンサーサイト

Dim value As String = Nothing
Dim dt As DateTime = Nothing
 
'If 演算子の場合、システム日付が出力されます
dt = If(value Is Nothing, Now, CType(value, DateTime))
Console.WriteLine(dt.ToString("yyyy/MM/dd HH:mm:ss"))
 
'IIf 関数の場合、エラーとなります
dt = IIf(value Is Nothing, Now, CType(value, DateTime))
Console.WriteLine(dt.ToString("yyyy/MM/dd HH:mm:ss"))

Dim sample = New With {Key .code = 1, .note = "さんぷる"}
 
' Key を指定した code は読み取り専用
Console.WriteLine(sample.code)
Console.WriteLine(sample.note)
 
' Key 未指定の note は変更可能
sample.note = "変更できます"
Console.WriteLine(sample.note)

1
さんぷる
変更できます

Dim dt As DataTable

'～データ取得処理～

'中身がNULL値だとエラー
txtName.Text = dt.Rows(0).Item("NAME")

'中身がNULL値でもエラーは発生せず
txtName.Text = dt.Rows(0).Item("NAME").ToString()

1) 100 行 x 10 列 = 1000セル
セル単位	12797ms
行単位	1391ms
複数行列一括	985ms
2) 1000 行 x 50 列 = 50000セル
行単位	14500ms
複数行列一括	3688ms
3) 10000 行 x 10 列 = 100000セル
行単位	154156ms
複数行列一括	12421ms