作者onlyaway (估计总是错误)
看板Visual_Basic
标题[VBA ] 语法问题
时间Sun Mar 13 21:05:46 2011
Function ForNext(ByVal Min As Integer, ByVal Max As Integer, ByVal Bins As
Integer)
Dim TabName As String
TabName = "tLimit" '设定暂存表单名称
For Each obj In CurrentData.AllTables
If TabName = obj.Name Then '如果暂存表单存在
CurrentDb.Execute "Drop Table tLimit;" '删除暂存表单
Exit For
End If
Next obj
CurrentDb.Execute "Create Table tLimit(Bins Int);" '产生暂存表单
For ForNext = Min To Max Step Bins
CurrentDb.Execute "INSERT INTO tLimit VALUES(" + Str(ForNext) + ");" '新增资
料到暂存表单
Next
CurrentDb.Execute "INSERT INTO tLimit VALUES(" + Str(ForNext) + ");" '新增资
料到暂存表单
End Function
这样产生的TABLE是单栏
有办法改成这样吗
EX:
bin bin1 bin2 bin3 ..........
100 120 140 160
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.168.207.151