急，急，急

收藏

我在第2行得CELL中输入“.”用GetValue来取得，
昨天还可以，今天怎么就突然不行了？

robert · robert

什么叫忽然不行了？怎么个不行法？

junlingzhu2002 · junlingzhu2002

在昨天发的例子中插入下面的程序
Private Sub mrMit05_CellValidating(ByVal sender As Object, ByVal e As GrapeCity.Win.MultiRow.CellValidatingEventArgs) Handles mrMit05.CellValidating
      'ピリオド入力の処理
      Sub_PeriodCheck(sender, e)
End Sub
Private Sub Sub_PeriodCheck(ByVal sender As Object, ByRef e As GrapeCity.Win.MultiRow.CellValidatingEventArgs)
      Try
         Dim strName As String = DirectCast(sender, Control).Name
         Dim strGyo As Integer = e.RowIndex
         Dim strValue As String = String.Empty
         Dim strCode As String = String.Empty
         Dim strPreCode As String = String.Empty
         Dim strPreFax As String = String.Empty
         Dim strPreShiTan As String = String.Empty
         Dim strValueP As Object = mrMit05.GetValue(e.RowIndex, e.CellIndex)

         If mrMit05(e.RowIndex, e.CellIndex).Name = "txt_SHO_NAME" Or _
            mrMit05(e.RowIndex, e.CellIndex).Name = "txt_KIKAKI" Or _
            mrMit05(e.RowIndex, e.CellIndex).Name = "txt_SHIKEY" Or _
            mrMit05(e.RowIndex, e.CellIndex).Name = "cmb_SHINAME" Or _
            mrMit05(e.RowIndex, e.CellIndex).Name = "txt_SHIFAXNO" Or _
            mrMit05(e.RowIndex, e.CellIndex).Name = "txt_SHITAN" Or _
            mrMit05(e.RowIndex, e.CellIndex).Name = "txt_KOBETUNOKI" Or _
            mrMit05(e.RowIndex, e.CellIndex).Name = "txt_MEISAIBIKO" Then

            If mrMit05.GetValue(e.RowIndex, e.CellIndex) Is "." Or mrMit05.GetValue(e.RowIndex, e.CellIndex) Is "．" Then
                  '１行目はエラー
                  If e.RowIndex = 0 Then
                     MessageBox.Show("１行目でピリオドは入力できません")
                     e.Cancel = True
                     Exit Sub
                  Else
                     '前行コピー
                     mrMit05.SetValue(e.RowIndex, e.CellIndex, mrMit05.GetValue(e.RowIndex - 1, e.CellIndex))
                  End If

            End If
         End If
      Catch ex As Exception
      End Try
End Sub
昨天试验的可以实现，早上不知怎么了，就是不成功，不好意思，
拜托你再帮检查一下吧。

junlingzhu2002 · junlingzhu2002

程序发错了
Private Sub MyGcMultiRow1_CellValidating(ByVal sender As Object, ByVal e As GrapeCity.Win.MultiRow.CellValidatingEventArgs) Handles MyGcMultiRow1.CellValidating
      'ピリオド入力の処理
      Sub_PeriodCheck(sender, e)
End Sub
Private Sub Sub_PeriodCheck(ByVal sender As Object, ByRef e As GrapeCity.Win.MultiRow.CellValidatingEventArgs)
      If MyGcMultiRow1(e.RowIndex, e.CellIndex).Name = "txtShoNm" Or _
         MyGcMultiRow1(e.RowIndex, e.CellIndex).Name = "txtShoKana" Then

         If MyGcMultiRow1.GetValue(e.RowIndex, e.CellIndex) Is "." Or MyGcMultiRow1.GetValue(e.RowIndex, e.CellIndex) Is "．" Then
            '１行目はエラー
            If e.RowIndex = 0 Then
                  MessageBox.Show("１行目でピリオドは入力できません")
                  e.Cancel = True
                  Exit Sub
            Else
                  '前行コピー
                  MyGcMultiRow1.SetValue(e.RowIndex, e.CellIndex, MyGcMultiRow1.GetValue(e.RowIndex - 1, e.CellIndex))
            End If

         End If
      End If
End Sub

robert · robert

在CellValidating函数里建议使用e.FormattedValue. 而不是用用GetValue方法。

junlingzhu2002 · junlingzhu2002

我试试看，可不可以实现，
SetValue可以直接用是吗？

robert · robert

在这个Case下应该是可以的。

junlingzhu2002 · junlingzhu2002

谢谢，
不过还是不成功，
入力后，Tab或Enter键，跳出CELl，再进入，再跳出时，才会触发上面的程序。
是不是还是和CELL处在编辑状态有关，
我再考虑考虑。

robert · robert

我把你的代码改了下，你试试可以了吗？

Private Sub Sub_PeriodCheck(ByVal sender As Object, ByRef e As GrapeCity.Win.MultiRow.CellValidatingEventArgs)
If MyGcMultiRow1(e.RowIndex, e.CellIndex).Name = "txtShoNm" Or _
MyGcMultiRow1(e.RowIndex, e.CellIndex).Name = "txtShoKana" Then
If e.FormattedValue IsNot Nothing Then
If e.FormattedValue.ToString() = "." Or e.FormattedValue.ToString() = "．" Then
'ピリオド入力の処理
If e.RowIndex = 0 Then
MessageBox.Show("１行目でピリオドは入力できません")
e.Cancel = True
Exit Sub
Else
'１行目はエラー
If (MyGcMultiRow1.GetValue(e.RowIndex - 1, e.CellIndex) IsNot Nothing) Then
MyGcMultiRow1.EditingControl.Text = MyGcMultiRow1.GetValue(e.RowIndex - 1, e.CellIndex).ToString()
'MyGcMultiRow1.SetValue(e.RowIndex, e.CellIndex, MyGcMultiRow1.GetValue(e.RowIndex - 1, e.CellIndex))
Else
MyGcMultiRow1.EditingControl.Text = Nothing
End If
End If
End If
End If
End If
End Sub

复制代码

junlingzhu2002 · junlingzhu2002

谢过。

		自动登录	找回密码
密码			立即注册

急，急，急

9 个回复

活字格认证

微信认证勋章