'处理CellValidated事件
Private Sub DG1_CellValidated(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dg1.CellValidated
Select Case dt.Tables(1).Columns(e.ColumnIndex).Caption
Case "varchar"
Case "int"
If IsNumeric(dt.Tables(1).Rows(e.RowIndex)(e.ColumnIndex)) = True Then
dt.Tables(1).Rows(e.RowIndex)(e.ColumnIndex) = Format(CDbl(dt.Tables(1).Rows(e.RowIndex)(e.ColumnIndex)), "0")
Else
dt.Tables(1).Rows(e.RowIndex)(e.ColumnIndex) = "0"
End If
Case "datetime"