Office中国论坛/Access中国论坛

标题: 谁能帮我翻译一下这段VB代码是什么意思?在谢感谢了! [打印本页]

作者: yss262 时间: 2007-8-7 15:50
标题: 谁能帮我翻译一下这段VB代码是什么意思?在谢感谢了!
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 时间: 2007-8-7 16:45
您哪一句看不懂呢？
您将光标点到不懂的单词上，然后点击F1键，一般都会有相关帮助出现的。

作者: 21ph 时间: 2007-8-8 10:30

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

很好用.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)