If
Not
Double
.TryParse(DataGridView1.CurrentCell.Value.ToString(), fmoney)
Then
Me
.DataGridView1.Rows(e.RowIndex).ErrorText =
"
输入必须为数值型!
"
DataGridView1.CurrentCell.Value =
Nothing
Else
DataGridView1.CurrentCell.Value = Format(DataGridView1.CurrentCell.Value,
"Standard"
)
fmoney = DataGridView1.CurrentCell.Value
DataGridView1.CurrentRow.Cells(6).Value = DataGridView1.CurrentRow.Cells(4).Value + fmoney
End
If