Hi all,

Hope anyone can help me with this problem - I will try to describe it as precisely as I can.

I've added a feature to the original UDT module version 3.5.1.
Mainly' I've added a Filter-module, which can be setup to filter the values of any column added to the UDT module. I.E., if the user adds 4 columns to any UDT module, the filter module can be set up to use the distinct values of any single column of that UDT module.

The filter module is set up as a Links-module, which means that the values to be filtered by, are listet as links- and when clicked, they raise a OnModuleCommunication event with the appropiate filter information, which are picked up byt the UDT module. The UDT module then makes a Session variable, that are used in the GetRowFilter-function of the UDT module.

All works well, the UDT's dataview sets the the correct filter, but the data in the Datagrid does not change until F5 is hit in the browser?

So, if anyone can tell me, WHY the bindData function doesnt update, I'd appreciate it

Yes, the OnModuleCommunication event looks llike this:

 Public Sub OnModuleCommunication(ByVal s As Object, ByVal e As Entities.Modules.Communications.ModuleCommunicationEventArgs) Implements Entities.Modules.Communications.IModuleListener.OnModuleCommunication
     If e.Target = CStr(Me.ModuleId) Then

  Session("UDT_" & e.Target & "_Filter") = e.Text
  BindData()

     End If

 End Sub

and then I've added a codeline in the GetRowFilter Function :

 Private Function GetRowFilter(ByVal Filter As String, ByVal Search As String) As String
     ' Added by Martin Moesby Petersen to support "Userdefined Filtering"
     Filter = CStr(Session("UDT_" & CStr(Me.ModuleId) & "_Filter"))
     ' Martin Moesby Petersen - END

     Dim tr As TokenReplace = TokenReplace.Create(ModuleConfiguration)

     If Filter <> String.Empty Then.

  Filter = tr.ReplaceEnvironmentTokens(Filter)
     End If

     If Filter <> String.Empty AndAlso Search <> String.Empty Then
  Return "(" & Filter & ") AND (" & Search & ")"
     Else
  Return Filter & Search
     End If
 End Function

I've done that because that required the least modifikation to the module code and it's a function that's called  in all Binding-functions.

ANd when debugging, the datatview object in the Binding-functions shows the correct amount om entries to be shown...

     ' create a dataview to process the sort
     Dim dv As DataView = New DataView(DataSet.Tables(DataSetTableName.Data))
     Try
  Dim strFilter As String = GetRowFilter(CStrN(Settings(SettingName.Filter), ""), search.Filter)
  dv.RowFilter = strFilter '<---- this one sets the correct filter

So, basically, the UDT has the correct amount of entries, but it wont update? Only when pressing F5 in the Browser, the filter kicks in, and filters the data correctly.

If needed, I can uload the current version of the module to a demo site, so you can see your self, what the issue is...

Thx,

Martin

Hey Martin

I am doing a similar thing in my code however i am not able to get the datagrid to updat. I have a filter that acts as a communicator and in my listener i get the value of the filter and pass it to stored procedure to get the new set of rows. Than i rebind my datagrid and then call UpdatePanel. All these controls are in an AJAX Update panel and some how i do not see the datagrid get updated with the new set of rows. Would you please advise and guide me here...