标题: 两个问题请教？ [打印本页] 作者: 真主 时间: 2004-5-9 04:30 标题: 两个问题请教？ 1、请问这段代码如何简化？
Private Sub Form_Timer()
Me.Label1.Caption = Time()
If Me.Label1.Caption = "09:00:00" Then
DoCmd.DeleteObject acTable, "wesun"
DoCmd.TransferDatabase acImport, "Microsoft Access", _
"\\baserver\winsuntelsy$\Log.mdb", acTable, "wesun", _
"wesun"
ElseIf Me.Label1.Caption = "11:00:00" Then
DoCmd.DeleteObject acTable, "wesun"
DoCmd.TransferDatabase acImport, "Microsoft Access", _
"\\baserver\winsuntelsy$\Log.mdb", acTable, "wesun", _
"wesun"
ElseIf Me.Label1.Caption = "14:00:00" Then
DoCmd.DeleteObject acTable, "wesun"
DoCmd.TransferDatabase acImport, "Microsoft Access", _
"\\baserver\winsuntelsy$\Log.mdb", acTable, "wesun", _
"wesun"
ElseIf Me.Label1.Caption = "18:30:00" Then
DoCmd.DeleteObject acTable, "wesun"
DoCmd.TransferDatabase acImport, "Microsoft Access", _
"\\baserver\winsuntelsy$\Log.mdb", acTable, "wesun", _
"wesun"
End If
End Sub
2、当数据库中无“WESUN”表时，怎样设定后不执行： DoCmd.DeleteObject acTable, "wesun"（代码怎样写）作者: hi-wzj 时间: 2004-5-9 19:06
简化语句的帮助
Select Case 语句示例
本示例使用 Select Case 语句来判断变量的值。示例中第二个 Case 子句包含了变量值，故只有此区块内的语句会被完成到。
Dim Number
Number = 8 ' 设置变量初值。
Select Case Number ' 判断 Number 的值。
Case 1 To 5 ' Number 的值在 1 到 5 之间，包含1 和 5 。
Debug.Print "Between 1 and 5"
' 下一个 Case 子句是本示例中唯一判断值为 True 的子句。
Case 6, 7, 8 ' Number 的值在 6 到 8 之间。
Debug.Print "Between 6 and 8"
Case 9 到 10 ' Number 的值为 9 或 10。
Debug.Print "Greater than 8"
Case Else ' 其他数值。
Debug.Print "Not between 1 and 10"
End Select
2、简单一点的就是：出错后跳出：
on error .....
3、因为时间的问题，若不会刚好等于09:00:00就不会执行，建议用>=来判断。