asked on

FORMATTING DATAGRIDVIEW PROBLEM

Hi All,

I have below code to format dgv, but does not effect at all.
It is pretty obvious from Header Text when the application is running.

Private Sub Format_Grid_Barang()

Try

With dgvData

.DataSource = Me.dtData

.RowHeadersVisible = False
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
.AutoGenerateColumns = False

Dim intDisplayIndex As Integer = -1

.Columns("BarangCode").Visible = False

.Columns("Qty").HeaderText = "KTS"
.Columns("Qty").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns("Qty").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns("Qty").MinimumWidth = 60
.Columns("Qty").MinimumWidth = ERV_Global.Inc_Number(intDisplayIndex)

.Columns("Satuan").HeaderText = "SATUAN"
.Columns("Satuan").MinimumWidth = 60
.Columns("Satuan").MinimumWidth = ERV_Global.Inc_Number(intDisplayIndex)

.Columns("FullName").HeaderText = "NAMA BARANG"
'.Columns("FullName").DefaultCellStyle.WrapMode = DataGridViewTriState.True
.Columns("FullName").MinimumWidth = 500
.Columns("FullName").MinimumWidth = ERV_Global.Inc_Number(intDisplayIndex)

.Columns("HargaSatuan").HeaderText = "@HARGA"
.Columns("HargaSatuan").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns("HargaSatuan").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns("HargaSatuan").MinimumWidth = 100
.Columns("HargaSatuan").MinimumWidth = ERV_Global.Inc_Number(intDisplayIndex)

.Columns("Diskon").HeaderText = "DISKON"
.Columns("Diskon").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns("Diskon").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns("Diskon").MinimumWidth = 100
.Columns("Diskon").MinimumWidth = ERV_Global.Inc_Number(intDisplayIndex)

.Columns("Total").HeaderText = "TOTAL"
.Columns("Total").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns("Total").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns("Total").MinimumWidth = 100
.Columns("Total").MinimumWidth = ERV_Global.Inc_Number(intDisplayIndex)

.Refresh()

End With

Catch ex As Exception

End Try

End Sub

What is wrong ?

Thank you.

Deepak Lakkad

Hi

Remove "Refresh" method and try

- Deepak Lakkad

emi_sastra

ASKER

-Remove "Refresh" method and try
Why ?

Thank you.

Deepak Lakkad

Hi,

I have used following code in one of my project.

Private Sub ArrangeDataGridViewColumns()
        ' Set Data Source
        dgvItemCategory.DataSource = dtItemCategory

        ' Set Column Heading ...
        dgvItemCategory.Columns(0).HeaderText = "Sr #"
        dgvItemCategory.Columns(1).HeaderText = "Item Category"
        dgvItemCategory.Columns(2).HeaderText = "Item Group"
        dgvItemCategory.Columns(3).HeaderText = "CatgID"
        dgvItemCategory.Columns(4).HeaderText = "GroupID"

        ' Hide Columns ...
        dgvItemCategory.Columns(3).Visible = False
        dgvItemCategory.Columns(4).Visible = False

        'Right Alignment
        dgvItemCategory.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
    End Sub

Open in new window

It is working for me ...

Refresh Method redraws the control ... so I think Refresh method is not required

- Deepak Lakkad

emi_sastra

ASKER

I know the problem :

Dim intDisplayIndex As Integer = -1

.Columns("Qty").MinimumWidth = ERV_Global.Inc_Number(intDisplayIndex)

intDisplayIndex = 0

Public Shared Function Inc_Number(ByRef intNumber As Integer) As Integer
intNumber += 1
Inc_Number = intNumber
End Function

Should be :

.Columns("Qty").DisplayIndex= ERV_Global.Inc_Number(intDisplayIndex)

Thank you.

Deepak Lakkad

ok, then what's the problem?

ASKER CERTIFIED SOLUTION

emi_sastra

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

emi_sastra

ASKER

The problem is solved by my self.