08-07-22, 08:45 PM
(آخر تعديل لهذه المشاركة : 08-07-22, 08:48 PM {2} بواسطة atefkhalf2004.)
كود :
Private Sub DataGridView2_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView2.CellFormatting
If e.ColumnIndex = 3 Then
If e.RowIndex = DataGridView2.Rows.Count - 1 Then Exit Sub
e.Value = CDate(e.Value)
e.CellStyle.Format = "yyyy-MM-dd"
End If
End Subاضفت هذا ولم يحدث تغيير
لا بد م الاضافة في الموديول
اعتقد هذا
For intRow As Integer = 0 To DgvCountRow 'DGV.RowCount - 1
Application.DoEvents()
.WriteLine(" <Row ss:StyleID=""ksg"" ss:utoFitHeight =""0"">")
For intCol As Integer = 2 To DGV.Columns.Count - 1
Application.DoEvents()
.WriteLine(" <Cell ss:StyleID=""isi"">")
.WriteLine(" <Data ss:Type=""String"">{0}</Data>", DGV.Item(intCol, intRow).Value.ToString)
.WriteLine(" </Cell>")
'DGV.Columns(4).Visible = False
Next
.WriteLine(" </Row>")
Next

