谁能帮我翻译一下这段VB代码是什么意思?在谢感谢了!

yss262

Private Sub 命令48_Click()
On Error GoTo Err_命令48_Click
    kdate = ksdate.Value
    ktime = kstime.Value
    kad = ksad.Value
    DoCmd.GoToRecord , , acLast
    newdate = Date
    khy = Year(newdate)
    khm = Month(newdate)
    If Len(khm) < 2 Then
      khm = "0" & khm
    End If
    xskh = kh.Value
    ksbh = Right(xskh, 4)
    newksbh = Val(ksbh) + 1
    lksbh = Len(newksbh)
    If lksbh < 4 Then
      n = 4 - lksbh
      cha = ""
      For i = 1 To n
        cha = cha & "0"
      Next
    End If
    DoCmd.GoToRecord , , acNewRec
    ksdate.Value = kdate
    kstime.Value = ktime
    ksad.Value = kad
    sex.Value = "男"
    xl.Value = "高中"
    kh.Value = "23003" & khy & khm & cha & newksbh
    ksname.SetFocus
Exit_命令48_Click:
    Exit Sub

Err_命令48_Click:
    MsgBox Err.Description
    Resume Exit_命令48_Click
   
End Sub

hi-wzj

您哪一句看不懂呢？
您将光标点到不懂的单词上，然后点击F1键，一般都会有相关帮助出现的。

21ph

原帖由 hi-wzj 于 2007-8-7 16:45 发表
您哪一句看不懂呢？
您将光标点到不懂的单词上，然后点击F1键，一般都会有相关帮助出现的。

很好用.