グリッドのレイアウトを保持する(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