datagrid 格式化问题

Question

datagrid 显示如下考号  姓名  项目    成绩   得分
1     A    跑步   3'15"   10
2     B    跳远   1.42     7
3     C    跳绳   142     10当我在 考号1 的成绩中输入成绩后,能格式化为 '" (比如输入315 变为 3'15")
也就是在datagrid中满足条件的格式化(当跑步的时候格式化,其它不用)

Answer 1

Private Sub DataGrid1_AfterColUpdate(ByVal ColIndex As Integer)
Dim strTmp As String    If ColIndex = 3 Then
        Select Case Adodc1.Recordset.Fields("项目")
            Case "跑步"
                If InStr(Adodc1.Recordset.Fields("成绩"), "'") = 0 And InStr(Adodc1.Recordset.Fields("成绩"), """") = 0 Then
                    strTmp = Adodc1.Recordset.Fields("成绩")
                    Adodc1.Recordset.Fields("成绩") = Left(strTmp, 1) & "'" & Mid(strTmp, 2) & """"
                    Adodc1.Recordset.Update
                End If
            Case "跳远"
                If InStr(Adodc1.Recordset.Fields("成绩"), ".") = 0 Then
                    strTmp = Adodc1.Recordset.Fields("成绩")
                    Adodc1.Recordset.Fields("成绩") = Left(strTmp, 1) & "." & Mid(strTmp, 2)
                    Adodc1.Recordset.Update
                End If
        End Select
    End IfEnd Sub