グリッドの幅設定

ぴよぴ〜 2009-02-11 05:35:05 No: 145760

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

また、直接コード入力もこころみたんですが、同様に変化がありませんでした。

Yuki 2009-02-11 22:04:48 No: 145761

>びくともしません。

エラーメッセージもないのでしょうか？
そこから解決方法をさがすのが通常のデバッグです。

もしエラーメッセージも出ないのでしたらMicrosoftに障害報告をしたほうがいいですね。