一言难尽

dfg fdgdf sddsf fdggg sdfsdf 

Rename Table NamesPublic Function Rename_Reserve_Data_Tables()Dim aOldTableName, aNewTableName As StringDim tempMonth As String'Drop trace tables For i = 1 To 12 If i < 10 Then tempMonth = "0" & i Else tempMonth = "" & i End If aOldTableName = "Reserve " & tempMonth & " Current1" aNewTableName = "Reserve " & tempMonth & " Current" DoCmd.Rename aNewTableName, acTable, aOldTableName Next i End Function .msgcontent .wsharing ul li { text-indent: 0; } 分享 Facebook Plurk YAHOO!

好站連結：http://tw.myblog.yahoo.com/molly24658