ナレッジベース

Imports GrapeCity.Win.MultiRow

Private Sub GcMultiRow1_CellValidating(ByVal sender As System.Object, ByVal e As GrapeCity.Win.MultiRow.CellValidatingEventArgs) Handles GcMultiRow1.CellValidating
　　Dim gcMultiRow As GcMultiRow = DirectCast(sender, GcMultiRow)
　　If TypeOf gcMultiRow.CurrentCell Is TextBoxCell Then
　　　　If Not e.FormattedValue Is Nothing Then
　　　　　　Const numbers As String = "1234567890"
　　　　　　Dim value As String = e.FormattedValue.ToString()
　　　　　　For i As Integer = 0 To value.Length - 1
　　　　　　　　If numbers.IndexOf(value(i)) < 0 Then
　　　　　　　　　　gcMultiRow.CurrentCell.ErrorText = "数値以外の文字が含まれています"
　　　　　　　　　　Return
　　　　　　　　End If
　　　　　　Next
　　　　　　gcMultiRow.CurrentCell.ErrorText = String.Empty
　　　　End If
　　End If
End Sub

using GrapeCity.Win.MultiRow;

private void gcMultiRow1_CellValidating(object sender, GrapeCity.Win.MultiRow.CellValidatingEventArgs e)
{
　　GcMultiRow gcMultiRow = (GcMultiRow)sender;
　　if (gcMultiRow.CurrentCell is TextBoxCell)
　　{
　　　　if (e.FormattedValue != null)
　　　　{
　　　　　　const string numbers = "1234567890";
　　　　　　string value = e.FormattedValue.ToString();

　　　　　　for (int i = 0; i < value.Length; i++)
　　　　　　{
　　　　　　　　if (numbers.IndexOf(value[i]) < 0)
　　　　　　　　{
　　　　　　　　　　gcMultiRow.CurrentCell.ErrorText = "数値以外の文字が含まれています";
　　　　　　　　　　return;
　　　　　　　　}
　　　　　　}
　　　　　　gcMultiRow.CurrentCell.ErrorText = string.Empty;
　　　　}
　　}
}