GROUP_PROFILE Items

This commit is contained in:
Digital Data - Marlon Schreiber
2018-02-07 15:49:35 +01:00
parent 6835cda1a1
commit 87579d289e

View File

@@ -209,8 +209,8 @@ Public Class frmMain
End Try
Try
GridViewProfile.Columns.Item("TITLE").GroupIndex = 0
GridViewProfile.Columns.Item("TITLE").Visible = False
GridViewProfile.Columns.Item("PROFILE_GROUP_TEXT").GroupIndex = 0
GridViewProfile.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
GridViewProfile.Columns.Item("PROFILE_ID").Visible = False
GridViewProfile.Columns.Item("FULL_FILE_PATH").Visible = False
GridViewProfile.Columns.Item("DOC_ID").Visible = False
@@ -390,7 +390,7 @@ Public Class frmMain
Dim info As GridGroupRowInfo = TryCast(e.Info, GridGroupRowInfo)
Dim view As GridView = sender
If info.Column.FieldName = "TITLE" Then
If info.Column.FieldName = "PROFILE_GROUP_TEXT" Then
info.GroupText = info.GroupValueText
info.Appearance.BackColor = Color.LightGray
End If