DataBinding Sample Deficiency Workaround : The CJ databinding implementation...

Sat, 11 Jul 2009 13:35:12 +0000

Author: jpbro
Subject: 14724
Posted: 11 July 2009 at 1:35pm

The CJ databinding implementation is half-baked (for example, it doesn't support VB6 datasource classes), so I don't recommend using it unless you are setting the datasource property directly to a ADO recordset connected to an MS Access database (another forum member has reported probems using databinding with ADO
However, if you are using ADO
1) Allow editing in the Form_Load event:


Me.wndRecords.AllowEdit = True

2) Open your recordset as a KeySet with BatchOptimistic locking by modifying the beginning of the ShowRecords sub as follows:


Private Sub ShowRecords(Table As String)
  ' show records
  If Rs.State = adStateOpen Then Rs.Close
  
  Rs.Open "select * from [" & Table & "]", Con, adOpenKeyset, adLockBatchOptimistic, adCmdText
  ' EVERYTHING UNDER RS.OPEN IN EXISTING SHOW RECORDS SUB REMAINS THE SAME

3) Replace the ValueChanged event to update the underlying recordset as follows:


Private Sub wndRecords_ValueChanged(ByVal Row AsXtremeReportControl.IReportRow, ByVal Column AsXtremeReportControl.IReportColumn, ByVal Item AsXtremeReportControl.IReportRecordItem)
  If Not wndRecords.Navigator.CurrentFocusInHeadersRows Then
    ' body row
    wndRecords.DataManager.UpdateRecord Item.Record
    Rs.UpdateBatch
  End If
End Sub

Re-run the sample and your data modifications should now persist.

Codejock Developer Community : DataBinding Sample Deficiency Workaround

DataBinding Sample Deficiency Workaround : The CJ databinding implementation...