tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： 一先ず解決しました。
投稿日： 2008/06/17(Tue) 14:56
投稿者： ひぃ
別掲示板にてヒントを頂いて一先ずの解決が出来ましたのでご報告致します。

別掲示板にて頂いたヒントは下記二点。
・DataGridView の Column の DataPropertyName を適切に設定する。
・匿名型の要素に名前をつける


お客さんの依頼の重要項目に、
「後々にカスタマイズが発生した場合、
　開発者でなくても簡単にカスタマイズ出来るような作りにして欲しい」
というのがありましたので、
今回は、Stringの配列を利用して、そこだけ変更すればOKなように作ってみました。

dim strColNM() As String = { "支店名", "支店コード", "課名", "課コード"}

For intCnt = 0 to (strColNM.Count - 1)
    Me.DataGridView.Colmuns.Add( strColNM(intCnt), strColNM(intCnt))
    Me.DataGridView.Colmuns(intCnt).DataPropertyName = strColNM(intCnt)
Next

Dim dtc As New dcTestCheck

Dim var = From SitenMei In dtc.SitenTbl, KaMei In dtc.KaTbl _
          Where SitenMei.SitenCD = KaMei.SitenCD _
          Order By SitenMei.SitenCD , KaMei.KaCD_
          Select 支店名 = SitenMei.SitenName _
               , 支店コード = SitenMei.SitenCD _
               , 課名 = KaMei.KaName _
               , 課コード = KaMei.KaCD

Me.DataGridView.DataSource = var

フィールド名を配列に入れないといけないのは面倒ですが、
なんとか綺麗に収まったかな？と思っています。
クエリデータにフィールド名を特定出来るようなプロパティがあれば（あるのかも知れませんが）
配列も無しに出来るような気がします。

一先ずやりたい事は出来ましたので解決とさせていただきます。
ありがとうございました。
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。