Dim mGridItems As GridItems
Dim connect As OleDb.OleDbConnection = New OleDb.OleDbConnection
Dim selcmd As OleDb.OleDbCommand = New OleDb.OleDbCommand
Dim adapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter
Dim dst As New DataSet
Dim dtlObj As DataTable
Dim dtrObj As DataRow
Dim strSql As String
Dim introws As Integer
Dim lngcnt As Integer
Try
'**************************
'DB接続
'**************************
'DB接続先設定
connect.ConnectionString = DBID
connect.Open()
selcmd.Connection = connect
adapter.SelectCommand = selcmd
'◎●ADMログ情報出力●◎
'SQL
strSql = ""
strSql = strSql & "SELECT * FROM テーブル名"
selcmd.CommandText = strSql
dst.Clear()
adapter.Fill(dst, "テーブル名")
dtlObj = dst.Tables(0)
lngcnt = dtlObj.Rows.Count - 1
'配列を開放
Erase stGridItems
'仕入先マスタ数分配列確保
ReDim stGridItems(lngcnt)
For introws = 0 To lngcnt
dtrObj = dtlObj.Rows(introws)
With stGridItems(introws)
'ファイル名
.strFILENM = CStr((dtrObj.Item("FILENM")))
'出力条件
Select Case CStr(CLng(dtrObj.Item("DETAILKBN")))
Case "0"
.strDETAILKBN = "AAAA"
Case "1"
.strDETAILKBN = "BBBB"
End Select
'処理時刻
.strUPDT = CStr((dtrObj.Item("UPDT")))
'稼働状況
Select Case CStr(CLng(dtrObj.Item("KDOJYTKBN")))
Case "0"
.strKDOJYTKBN = "AAAA"
Case "1"
.strKDOJYTKBN = "BBBB"
Case "2"
.strKDOJYTKBN = "CCCCC"
End Select
'状態
Select Case CStr(CLng(dtrObj.Item("SYRJYTKBN")))
Case "0"
.strSYRJYTKBN = "AAAA"
Case "1"
.strSYRJYTKBN = "CCCCC"
End Select
End With
Next introws
'テーブルデータクリア
dst.Clear()
For introws = 0 To lngcnt
With stGridItems(introws)
'グリッ1行追加
dtlObj.Rows.Add(New Object() {.strFILENM, _
.strDETAILKBN, _
.strUPDT, _
.strKDOJYTKBN, _
.strSYRJYTKBN})
End With
Next introws
DataGrid1.SetDataBinding(dst, "テーブル名")
で、グリッドにデータを追加することができたのですが、ヘッダ部分に名称を変更する事と、
カラムの幅を変更しようと試みたんですが、びくともしません。
どなたか御教授していただけないでしょうか？
ちなみに、試した内容は
直接DataGridのプロパティウィンドウでTableStylesを手打ちして試してみましたが、ダメでした。
※このサイトを参考にしたのですが・・・。
http://homepage1.nifty.com/rucio/main/kiso/AddDataGridColumn.htm
また、直接コード入力もこころみたんですが、同様に変化がありませんでした。
>びくともしません。
エラーメッセージもないのでしょうか？
そこから解決方法をさがすのが通常のデバッグです。
もしエラーメッセージも出ないのでしたらMicrosoftに障害報告をしたほうがいいですね。