Skyp Posted March 1, 2017 Share Posted March 1, 2017 Hi. Do not display values in BDGrid.Processing fields in a query (q_for_users1) is as follows: // Query - good job for I := 0 to FieldCount-1 do begin s:=''; for j := 0 to pos('.',Field_list)-1 do begin s:=s+Field_list[j]; end; for j := pos('.',Field_list)+1 to Length(Field_list) do begin s:=s+Field_list[j]; end; with Q_for_users1 do begin Fields.Name:=Trim(s); fields.DisplayLabel:=Field_list; // Field_list list of allowed characters Fields.Visible:=true; end; end; Anddd insert a Grid: ------------------------------------------------------------------------------------------------------------------- with UniMainModule do begin DATASOURCEUSER.Enabled := false; DATASOURCEUSER.DataSet := Q_for_users1; UniMainModule.DATASOURCEUSER.Enabled := true; end; uniSession.AddJS((obj_out as TuniDBgrid).JSName+'.store.suspendEvents();'); (obj_out as TuniDBgrid).BeginUpdate; (obj_out as TuniDBgrid).DataSource := DATASOURCEUSER; for i := 0 to Field_list.Count - 1 do begin if (obj_out is TuniDBgrid) = true then begin with (obj_out as TuniDBgrid) do begin (obj_out as TuniDBgrid).Columns.Add; // s:= unimainmodule.Q_for_users1.fields.Name; (obj_out as TuniDBgrid).Columns.Visible := true; (obj_out as TuniDBgrid).Columns.FieldName :=Q_for_users1. fields.Name; (obj_out as TuniDBgrid).Columns.title.Caption := Field_list; (obj_out as TuniDBgrid).Columns.Width := 100; end; end; end; (obj_out as TuniDBgrid).endupdate; uniSession.AddJS((obj_out as TuniDBgrid).JSName+'.store.resumeEvents();'); uniSession.AddJS((obj_out as TuniDBgrid).JSName+'.view.refresh();'); end; ------------------------------------------------------------------------------------- All runs without error but in the Grid cell (their number corresponds to the limit in the query) are empty. Who faced? Quote Link to comment Share on other sites More sharing options...
Sherzod Posted March 1, 2017 Share Posted March 1, 2017 Hi, Which version and build are you using?! Quote Link to comment Share on other sites More sharing options...
Skyp Posted March 1, 2017 Author Share Posted March 1, 2017 Rad Studio Delphi xe8 UG 1.0.0 Build 1363 RC Unidac 6.2.9 Quote Link to comment Share on other sites More sharing options...
Sherzod Posted March 1, 2017 Share Posted March 1, 2017 Commercial edition?! Quote Link to comment Share on other sites More sharing options...
Skyp Posted March 1, 2017 Author Share Posted March 1, 2017 for trial use. For the task selection of tools for development. Quote Link to comment Share on other sites More sharing options...
Skyp Posted March 1, 2017 Author Share Posted March 1, 2017 image on problem: Quote Link to comment Share on other sites More sharing options...
Sherzod Posted March 1, 2017 Share Posted March 1, 2017 Where from did you download build 1363 ? Quote Link to comment Share on other sites More sharing options...
Administrators Farshad Mohajeri Posted March 1, 2017 Administrators Share Posted March 1, 2017 Rad Studio Delphi xe8 UG 1.0.0 Build 1363 RC Unidac 6.2.9 We do not support pirated versions. Indeed, we do suspend forum accounts as soon as we see someone is using a pirated copy of uniGUI edition whether it is for real development or evaluation. 2 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.