グリッドのレイアウトを保持する(SetDataBindingメソッド)
せっかくグリッドデザインしたのに、無視されてしまう??
データテーブルをGridのDataSourceプロパティにセットすれば簡単にデータが取得出来ますが、設計時にデザイナで設定した通りになりません。SetDataBindingメソッドを利用すると、デザインを保持しデータバインド出来ます。SetDataBindingメソッドの引数:holdFieldsをTrueに設定してください。
Private Sub getData()
Const cmdSelect As String = _
"select " & _
"EMP.EMPNO, EMP.ENAME, EMP.JOB, EMP.MGR, EMP.HIREDATE, " & _
"EMP.SAL, EMP.COMM, EMP.DEPTNO " & _
"from EMPTEST EMP " & _
"order by EMP.EMPNO"
Try
Using da As New OracleDataAdapter(cmdSelect, ConnectionString)
dt = New DataTable
da.Fill(dt)
'SetDataBindingメソッド
C1TrueDBGrid1.SetDataBinding(dt, "", True)
'DataSourceプロパティ
'C1TrueDBGrid1.DataSource = dt
End Using
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
TrueDBGrid の設計時デザイン:ColumnのCaptionに「EMPNOです」などとふざけた事を書いています。

履歴
- 2011/07/11


