[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