Private Sub setdgdDokyuStyle() Dim lv_DataTable_Program As New DataTable Dim lv_DataView_Program As DataView Dim lv_DataColumn_Check As New DataColumn("选択", GetType(Boolean)) '选択 Dim lv_DataColumn_Num As New DataColumn("内容", GetType(String)) '内容 Dim ts As New DataGridTableStyle Dim tc As DataGridTextBoxColumn Dim tb As DataGridBoolColumn