Forum

Hello.

I created a form with a single control - the Elegant Grid - and set up the grid in the Form_Load event handler as shown below. When I run the program and follow the following steps:

1. Click in the first cell to activate it.
2. Press right arrow key.

the grid then gives an out-of-bounds error. This does not happen when AllowRowSelection is set to True.

Please advise.

Thanks!

Andrew



Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim grdColumn As Column
Dim dr As DataRow
Dim tCell As TextCell

With grd
.AllowRowSelection = False

grdColumn = New Column
.Columns.Add(grdColumn)

dr = .NewDataRow
tCell = dr.AddNewCell(GetType(TextCell), .Columns(0))
tCell.DataValue = ""
.Rows.Add(dr)

dr = .NewDataRow
tCell = dr.AddNewCell(GetType(TextCell), .Columns(0))
tCell.DataValue = ""
.Rows.Add(dr)
End With
End Sub
End Class

Right now, the only way I can find for a user to edit a cell is for them to put the focus on that cell (either through moving there with the keyboard or clicking on it) and then clicking on the cell to put it into edit mode. In Excel, if a cell has the focus it automatically enters edit mode when you start typing. Is there any way to reproduce that functionality in Elegant Grid?

Thanks!

We will add built-in support for this feature in the next version. At the moment you can easily achieve the requested behavior by putting the following code into the GridControl.KeyPress event handler:

[C#]
private void boundGridControl1_KeyPress( object sender, KeyPressEventArgs e)
{
   if(boundGridControl1.FocusedCell != null &&
      (char.IsLetter(e.KeyChar) || char .IsNumber(e.KeyChar)))
   {
      boundGridControl1.EditFocusedCell();
      if (boundGridControl1.FocusedCell.Editing)
         SendKeys.Send(e.KeyChar.ToString());
   }
}

[VB.NET]
Private Sub boundGridControl1_KeyPress( ByVal sender As Object, ByVal e As KeyPressEventArgs) 
   If Not boundGridControl1.FocusedCell Is Nothing _
      AndAlso (Char .IsLetter(e.KeyChar) OrElse Char.IsNumber(e.KeyChar)) Then 
      boundGridControl1.EditFocusedCell()

      If boundGridControl1.FocusedCell.Editing Then 
         SendKeys.Send(e.KeyChar.ToString())
      End If 
   End If 
End Sub

Hello.

I need to create a date cell that can also be blank in cases where the date isn’t known. Can I accomplish this with the DateTime cell?

Thanks.

When I try to use this code in my application, I am getting an error on line:

cellStyle.TextColor = cellStyle.BackgroundColor

The error is:

Argument Exception

Color cannot be set to Color [Empty]

Sorry, but we do not fully understand in which context your code is used and what are you trying to achieve. Could you send us a more detailed description of the problem?

The DateTime type does not support the "empty" value internally and there is no way to assign it to null except for using nullable types. We can regard your feature as a feature request.

You could however use its Minimum Value property to mark it as being empty.

Thank for your answer. Could you please expand upon both
a) assigning it to null using nullable types
and
b) using Minimum Value

Thanks!

hello,

can you please tell me how can i add a row, and delete a row from the databound datagrid.

regards
anwar

hello i downloaded elegant grid, and put a databoundgrid control on my form, now i have the data as an object collection.
i set the boundgridcontrol.datasource = mycollection

but there is no data displayed in the grid.

can you please advise.

regards
Anwar

Is it possibly to show rtf or html text inside a cell?

Thanx for the help on using the comboboxcell I have managed to find ways on how to use an it is working perfectly for me.I seem to have another hitch.One of the column in the unbound grid is a date time data type I want it assistant on how to use this cell in the unbound grid.

Thanks for your quick response.However i tried your suggestion concerning cell editing and combobox binding however it does not seem to work.Here is the code snippet of the object I am trying to bind to the elegant grid and the code I have also included code in the form_load event
Please assist


Imports System.Threading
<Serializable()> _
Public Class Tax
Inherits BusinessBase
Private mPDCode As String = " "
Private mName As String = " "
Private mDebitAccountCode As String = " "
Private mCreditAccountCode As String = " "
Private mType As String = " "
Private mTaxBands As TaxBands = _
TaxBands.NewTaxBands
#Region " Utility Lists "
Private Shared mAccountCodes As AccountCodeList


Shared Sub New()
mAccountCodes = AccountCodeList.GetList

End Sub

Public Shared ReadOnly Property AccountCodes() As AccountCodeList
Get
Return mAccountCodes
End Get
End Property
#End Region



#Region " Business Properties and Methods "
Public ReadOnly Property PDCode() As String
Get
Return mPDCode
End Get
End Property
Public Property Name() As String
Get
Return mName
End Get
Set(ByVal Value As String)
If mName <> Value Then
If Not Thread.CurrentPrincipal.IsInRole("Administrator") Then
Throw New System.Security.SecurityException( _
"User not allowed to change/add payment and deduction codes")
Else
mName = Value
MarkDirty()
End If
End If

End Set
End Property
Public Property DebitAccountCode() As String
Get
Return AccountCodes.Item(mDebitAccountCode)
End Get
Set(ByVal Value As String)
If DebitAccountCode <> Value Then
If Not Thread.CurrentPrincipal.IsInRole("Administrator") Then
Throw New System.Security.SecurityException( _
"User not allowed to change/add payment and deduction codes")
Else
mDebitAccountCode = AccountCodes.Key(Value)
MarkDirty()
End If
End If

End Set
End Property
Public Property CreditAccountCode() As String
Get
Return AccountCodes.Item(mCreditAccountCode)
End Get
Set(ByVal Value As String)
If CreditAccountCode <> Value Then
If Not Thread.CurrentPrincipal.IsInRole("Administrator") Then
Throw New System.Security.SecurityException( _
"User not allowed to change/add payment and deduction codes")
Else
mCreditAccountCode = AccountCodes.Key(Value)
MarkDirty()
End If
End If

End Set
End Property
Public ReadOnly Property Type() As String
Get
Return mType
End Get
End Property

Public ReadOnly Property TaxBands() As TaxBands
Get
Return mTaxBands
End Get
End Property
Public Overrides ReadOnly Property IsValid() As Boolean
Get
Return MyBase.IsValid AndAlso mTaxBands.IsValid

End Get
End Property
Public Overrides ReadOnly Property IsDirty() As Boolean
Get
Return MyBase.IsDirty OrElse mTaxBands.IsDirty

End Get
End Property
#End Region

#Region "Shared functions "
Public Shared Function GetTax() As Tax
If Not Thread.CurrentPrincipal.IsInRole("Administrator") Then
Throw New System.Security.SecurityException( _
"User not allowed to update tax tables")
Else
Return CType(DataPortal.Fetch(New Criteria), Tax)
End If
End Function
#End Region

#Region " Constructors "
Private Sub New()

End Sub
#End Region

#Region "Criteria "
<Serializable()> _
Public Class Criteria

End Class
#End Region

#Region " Data Access "
Protected Overrides Sub Dataportal_Fetch(ByVal Criteria As Object)
Dim cn As New SqlConnection(DB("NuDB"))
Dim cm As New SqlCommand

cn.Open()

Try
With cm
.Connection = cn
.CommandType = CommandType.StoredProcedure
.CommandText = "getTax"

Dim dr As New SafedataReader(.ExecuteReader)
Try
dr.Read()
With dr
mPDCode = .GetString(0)
mName = .GetString(1)
mDebitAccountCode = .GetString(2)
mCreditAccountCode = .GetString(3)
mType = .GetString(4)

.NextResult()
mTaxBands = TaxBands.GetTaxBands(dr)
End With
Finally
dr.Close()
End Try
End With
MarkOld()
Finally
cn.Close()
End Try
End Sub
Protected Overrides Sub Dataportal_Update()
Dim cn As New SqlConnection(DB("NuDB"))
Dim cm As New SqlCommand

cn.Open()


Try
With cm
.Connection = cn
.CommandType = CommandType.StoredProcedure
.CommandText = "updateTax"
.Parameters.Add("@PDCode", mPDCode)
.Parameters.Add("@Name", mName)
.Parameters.Add("@DAcc", mDebitAccountCode)
.Parameters.Add("@CAcc", mCreditAccountCode)


.ExecuteNonQuery()
markold()


End With

Finally
cn.Close()
End Try
mTaxBands.Update(Me)
End Sub


#End Region

End Class


Imports System.Data.SqlClient
<Serializable()> _
Public Class TaxBands
Inherits BusinessCollectionBase
Protected Shadows allownew As Boolean = True
Protected Shadows AllowEdit As Boolean = True
Protected Shadows AllowRemove As Boolean = True


#Region " Business properties and methods "

Default Public ReadOnly Property Item(ByVal ID As Integer) As TaxBand
Get
Dim Child As TaxBand
For Each Child In list
If Child.ID = ID Then
Return Child
End If
Next
Return Nothing
End Get
End Property
Public Sub Remove(ByVal TaxBand As TaxBand)
list.Remove(TaxBand)
End Sub
Public Sub Remove(ByVal ID As Integer)
Dim T As TaxBand
For Each T In list
If T.ID = ID Then
Remove(T)
Exit For
End If
Next
End Sub
Private Sub AddTaxBand(ByVal TaxBand As TaxBand)
If Not Contains(TaxBand) Then
list.Add(TaxBand)
Else
Throw New Exception("This tax band has already been exists")
End If
End Sub
’ Public Sub NewTaxBand(ByVal LowerBand As Double, ByVal HigherBand As Double, ByVal TaxRate As Double)
’ AddTaxBand(TaxBand.NewTaxBand(LowerBand, HigherBand, TaxRate))
’End Sub
Public Sub NewTaxBand(ByVal TaxBand As TaxBand)
AddTaxBand(TaxBand)
End Sub
Protected Overrides Function OnAddNew() As Object
Return TaxBand.NewTaxBand
End Function

#End Region

#Region " Contains "

Public Overloads Function Contains(ByVal Item As TaxBand) As Boolean

Dim Child As TaxBand

For Each Child In List
If Child.Equals(Item) Then
Return True
End If
Next
Return False
End Function


#End Region

#Region " Shared factory Methods "

Friend Shared Function NewTaxBands() As TaxBands

Return New TaxBands

End Function

Friend Shared Function GetTaxBands(ByVal dr As SafedataReader) As TaxBands

Dim col As New TaxBands
col.fetch(dr)
Return col

End Function
#End Region

#Region " Constructors "

Private Sub New()
MarkAsChild()
End Sub

#End Region



#Region " Data Access "

Private Sub fetch(ByVal dr As SafedataReader)
While dr.Read()
List.Add(TaxBand.GetTaxBand(dr))
End While
End Sub
Friend Sub Update(ByVal Parent As Tax)
Dim Child As TaxBand
For Each Child In deletedlist
Child.Update(Parent)
Next
deletedlist.Clear()
For Each Child In list
Child.Update(Parent)
Next

End Sub


#End Region



End Class

Imports System.Data.SqlClient
Imports System.Threading
<Serializable()> _
Public Class TaxBand
Inherits BusinessBase
Private mID As Integer = 0
Private mLowerBand As Double = 0
Private mHigherBand As Double = 0
Private mTaxRate As Double = 0
Private mIsTrue As Boolean = True

#Region "Business properties and methods "
Public ReadOnly Property ID() As Integer
Get
Return mID
End Get
End Property
Public Property LowerBand() As String
Get
Return Format(mLowerBand, "#,##0.00")
End Get
Set(ByVal Value As String)
If mLowerBand <> CDbl(Value) Then
’ If Not Thread.CurrentPrincipal.IsInRole("Administrator") Then
’ Throw New System.Security.SecurityException( _
’ "User not allowed to update/add tax bands")
Else
mLowerBand = CDbl(Value)
markdirty()
End If
’ End If
End Set
End Property
Public Property HigherBand() As String
Get
Return Format(mHigherBand, "#,##0.00")
End Get
Set(ByVal Value As String)
If mHigherBand <> CDbl(Value) Then
’ If Not Thread.CurrentPrincipal.IsInRole("Administrator") Then
’ Throw New System.Security.SecurityException( _
’ "User not allowed to update/add tax bands")
Else
mHigherBand = CDbl(Value)
markdirty()
End If
’ End If
End Set
End Property
Public Property TaxRate() As String
Get
Return Format(mTaxRate, "0.00")
End Get
Set(ByVal Value As String)
If mTaxRate <> CDbl(Value) Then
’ If Not Thread.CurrentPrincipal.IsInRole("Administrator") Then
’Thr’ow New System.Security.SecurityException( _
’ "User not allowed to update/add tax bands")
Else
mTaxRate = CDbl(Value)
markdirty()
End If
’End If
End Set
End Property
Public ReadOnly Property IsTrue() As Boolean
Get
Return mIsTrue
End Get
End Property
#End Region

#Region " System.Object Overrides"

Public Overrides Function ToString() As String
Return mID.ToString
End Function

Public Overloads Function Equals(ByVal Item As TaxBand) As Boolean
Return mID.Equals(Item.ID)
End Function


Public Overloads Function GetHasCode() As Integer
Return mID.GetHashCode
End Function

#End Region

#Region " Shared Methods "
’ Friend Shared Function NewTaxBand(ByVal LowerBand As Double, _
’ ByVal HigherBand As Double, _
’ ByVal TaxRate As Double) As TaxBand
’ Return New TaxBand(LowerBand, HigherBand, TaxRate)
’ End Function

Friend Shared Function NewTaxBand() As TaxBand
Return New TaxBand
End Function
Friend Shared Function GetTaxBand( _
ByVal dr As SafedataReader) As TaxBand
Dim Obj As New TaxBand
Obj.fetch(dr)
Return Obj
End Function
#End Region

#Region " Constructors "


Private Sub New()
MarkAsChild()
End Sub
Private Sub New(ByVal LowerBand As Double, _
ByVal HigherBand As Double, _
ByVal TaxRate As Double)
mLowerBand = LowerBand
mHigherBand = HigherBand
mTaxRate = TaxRate
End Sub

#End Region

#Region " Data Access "

Private Sub fetch(ByVal dr As SafedataReader)
With dr
mID = .GetInt32(0)
mLowerBand = .GetDecimal(1)
mHigherBand = .GetDecimal(2)
mTaxRate = .GetDouble(3)
End With
MarkOld()
End Sub
Friend Sub Update(ByVal Parent As Tax)

Dim cn As New SqlConnection(DB("NuDB"))
Dim cm As New SqlCommand

cn.Open()

Try
With cm
.Connection = cn
.CommandType = CommandType.StoredProcedure
If Me.IsDeleted Then
If Not Me.IsNew Then
.CommandText = "deleteTaxBand"
.Parameters.Add("@ID", mID)

.ExecuteNonQuery()
End If
MarkNew()
Else
If Me.IsNew Then
.CommandText = "addTaxTable"
.Parameters.Add("@LBand", mLowerBand)
.Parameters.Add("@HBand", mHigherBand)
.Parameters.Add("@TaxRate", mTaxRate)

.ExecuteNonQuery()
markold()

Else
.CommandText = "updateTaxBand"
.Parameters.Add("@ID", mID)
.Parameters.Add("@LBand", mLowerBand)
.Parameters.Add("@HBand", mHigherBand)
.Parameters.Add("@TaxRate", mTaxRate)

.ExecuteNonQuery()
markold()

End If

End If

End With

Finally
cn.Close()
End Try

End Sub
#End Region


End Class



Private Sub frmLab12_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
mTax = Tax.GetTax
Dim mLoans As LoanCategories = _
LoanCategories.GetLoanCategories

With UGrid
Dim C As New Column
C.HeaderText = "Lower Band"
Dim C1 As New Column
C1.HeaderText = "Higher Band"
Dim C2 As New Column
C2.HeaderText = "Tax rate"
.Columns.AddRange(New Column() { _
C, C1, C2})

UGrid.Columns(0).CellType = GetType(TextCell)
UGrid.Columns(1).CellType = GetType(ComboBoxCell)
UGrid.Columns(2).CellType = GetType(CheckBoxCell)
.Columns.Item(0).DataPropertyName = "LowerBand"
.Columns.Item(1).MappingDataSource = mLoans
.Columns.Item(1).MappingDisplayDataMember = "LoanName"
.Columns.Item(1).MappingValueDataMember = "ID"
.Columns.Item(2).DataPropertyName = "IsTrue"
.DataSource = mTax.TaxBands
.FocusedCellColumn = .Columns.Item(0)
.EnsureVisibleVertically(.FocusedRowIndex)
.FocusedCell.StartEdit()


End With

End Sub

What I meant by child objects,is that I am using the Rockford Lhotka CSLA .NET framework I am sure you have heard of it.I have a class called Tax object this contains a child collection object called tax bands which in turn contains tax bands.I have managed to bind these child object (Tax band) to the elegant grid.My concern is that I would want to be able to edit these objects in the grid when say the lower tax band,higher tax band or the the tax rate changes,there instances where a new tax band is removed i would like to be able to delete that tax band or if the new tax band is added i want to be able to add to the the elegant grid.I am serious considering to procure the grid,please assist me.

I yesterday downloaded the elegant grid,to say the least am actually impressed.I am building a human resource application and on the first use i managed to bind my custom business collection objects to the elegant grid.However i want to enable the edititng of the objects properties in the grid.First i am failing to get the cell object for which you are saying has the startedit method.Please assist me on how to enable editing secondly I would want to add child object on the grid.your grid seems to limit the number of rows to the number of child objects.Third is on the use of the combobox cellstyle.I would want to bind certain data from which the user can select.Are they any ariticles I can access?

Hello,

I have a vb.net datagrid , below which i have added elegantgrid, no i have a dataset which is loaded from a webservice, this dataset example ds
bids to the vb.net datagid with the following statement
DataGridView1.DataSource = ds.Tables(0)

now i have added a statement to bind to elegant grid
Me.BoundGridControl1.DataSource = ds.Tables(0)

please note the table name in the dataset is account_COA, when i run the application with just the vb.net datagrid it works fine an the datagrid gets populated, but when i run the app with boundgridcontrol it throws an exception
----------------------------------------------------------------------
Additional information: Child list for field 0 cannot be created.
----------------------------------------------------------------------
can you please tell me what i am doing wrong here.

regards
Anwar

Hi Everyone

I have a issue than take me a lot of time to find out how can I configure my BoundgridControl1 in the group cell header to set always "Collapse". the only parameters the group type in CellStyles is only Expand whatever. I don’t wanna see all expanded. I wanna use only when I needed. (Doing click into +). Please help me on that.

Thanks

Johnny

This is not supported in the current version. We will implement this feature in the next version (it’s actually easy). If you need it right now, we can provide new binaries on your request.

Please. How can I get this binaries.? I bought this component about 2 week ago. I really need that as soon as possible. my project count on that. Thanks.

I’m using VB.NET.

Sorry again. VB.NET / VS.NET 2003

Is it possible to show tooltip with full text for every cell which does not enough size to show full text?

You have done excellent job with your Prof-UIS lib up to far, so I like your company !


Are you goinig to provide Vista WPF (.Net 3.0) seamlessly compatible versions of your Grid and Ribbon .Net controls as others, say Infragistics, are going to do soon ?

The answer is very interesting because

1) capabilities of new Vista WPF\.Net3.0 are so incredibly bigger than before that most of developers, including us, will most probably move within the NEAREST MONTHS after its release from MFC + your excellent ProfUIS to WPF. Actually if you compare Vista\WPF API + MS Expression with ProfUIS possibilities then you hardly can find any reason to use ProfUIS as most of the job can be done by standard WPF classes and technology like styles etc. So not many will want ProfUIS.

2) the WPF 3rd party libs field, as it is clean and not crowded yet, could be a good way for your company .

BR

We use ProfUIS toolbars in our ActiveX control. The ActiveX control is used within Internet Explorer.

The toolbar has a "Print" button. On click of this "Print" button, we show a "Confirm Print Dialog" to the user. Sometimes, this "Confirm Print Dialog" overlaps the toolbar. When the user dismisses the "Confirm Print Dialog" the toolbar doesn’t get repainted again and parts of the toolbar remain in white color.

By moving the mouse over the toolbar the toolbar repaints again. Also if the user minimizes and maximizes the Internet Explorer window again the toolbar repaints.

Please suggest us a way to repaint the toolbar when another window overlaps its.

Thanks,

Hi,

Can somebody show me how to use the ValidateEditingCellData event? Is it the right tool for validating user input e.g in a text edit cell?

Here is a simple C# project that illustrates the issue. Please build and run the application. You will see that if you type a space in any cell in the Name column, the value will not be committed to the bound data. This is achieved because the ValidateEditingCellData event is handled in this way:

private void boundGridControl1_ValidateEditingCellData(object sender, 
   Elegant.Grid.ValidateCellDataEventArgs e)
{
   if(e.Cell.Column != NameColumn)
       return;

   if(e.ValidationReason == DataValidationReason.BeforeCommit &&
       e.DataValue.ToString().IndexOf(’ ’) != -1)
   {
       e.InvalidDataBehavior = CellInvalidDataBehavior.None;
       e.Valid = false;

       MessageBox.Show("The name cannot contain spaces.");
   }
}

No columns appear only empty white lines, why?

When you drag BoundGridControl from toolbox in to form designr and want to get popup menu by clicking right mouse button, nothing hepend.For unbound control it works.

Elegant Grid Beta looks fine and some your samples are just fascinating!
I am looking forward to the release with documentation. When do you plan to release it?