（各位大大。我做到了）MS ACCESS REPORT 编号制作。。。

程家伟

我要让我的report能从编号1到100的show出来。。。除了loop还有什么办法。。

然而我的report是从main form和subform里拿出我的record set的。。。

以下是我的图片

图一




图二


[ 本帖最后由 程家伟 于 5-10-2006 11:30 AM 编辑 ]

max5007

原帖由 程家伟 于 2-10-2006 04:48 PM 发表
我忘记了LOOPING LOGIC怎样走了。。。

比如讲从1到无限的数目，那么它的LOOPING应该要怎样呢？我只知道到最后时候会有个TRUE来让它停下来。。。

在internet上search FOR LOOP,就会有很多的资料啊。。

如果你用VB的。。那就是
FOR i=1 to XXX
XXXXX

NEXT i

johe07

好像有一种东西，叫做MSDN的hoh....
是不是啊？

还有，这个和数据库有关系咩？

程家伟

eh~~那么FOR LOOP 来做成编号应该可以吗？

例如在我的report detail 放一个[textbox]里面control source 的
然后呢，我忘了放什么coding 来给它自自动编写号码的。。。

以下是这个output


1
2
3
4
5
6
。
。
。
。

max5007

原帖由 程家伟 于 3-10-2006 09:31 AM 发表
eh~~那么FOR LOOP 来做成编号应该可以吗？

例如在我的report detail 放一个里面control source 的
然后呢，我忘了放什么coding 来给它自自动编写号码的。。。

以下是这个output
1
2
3
4
5
6 ...

这样你的编写号码不会conflict吗？为什么不用auto increase 还是SELECT max(XXX) + 1?

程家伟

原帖由 max5007 于 3-10-2006 11:06 AM 发表


这样你的编写号码不会conflict吗？为什么不用auto increase 还是SELECT max(XXX) + 1?

O~MAX兄。。你有所不知。。如果我用AUTO INCREASE的话，我的QUERY所FILTER的就会变成1,3,5,7,9...了
所以，就要想出放在个别的INSTRUCTION编号CODING

然而上一次的贴纸有类似从1到完的CODING。。。我是有试过，可是不能。。

如果容易就好了

就好像  =1++ 这么简单就好了

程家伟

可是SELECT MAX(XXX) + 1,又是什么东东？？

是不是在QUERY里那个COLUMN要放编号的 [NO] + 1??

[ 本帖最后由 程家伟 于 3-10-2006 12:59 PM 编辑 ]

Zhixuen

SELECT FIELD FROM TABLE WHERE CONDITION

use do while loop

Do while not recordset.eof then

recordset!FIELD
recordset.movenext

end if


如果不用到DATABASE 。。 你要如何控制它停呢？
用COMMAND BUTTON ？

还有请问大大用什么LANGUAGE ？

红发

原帖由 程家伟 于 2-10-2006 04:48 PM 发表
我忘记了LOOPING LOGIC怎样走了。。。

比如讲从1到无限的数目，那么它的LOOPING应该要怎样呢？我只知道到最后时候会有个TRUE来让它停下来。。。

你要LOOP多少年？？？？

不如说说你要做什么？
这样比较好

程家伟

原帖由 Zhixuen 于 3-10-2006 07:00 PM 发表
SELECT FIELD FROM TABLE WHERE CONDITION

use do while loop

Do while not recordset.eof then

recordset!FIELD
recordset.movenext

end if


如果不用到DATABASE 。。 你要如何控制它停呢？  ...

嗨~早安。。我是用access另加vb来控制database。。。谢谢你的coding了。。。想请问一下，这个编码是不是但它跑的时候是不是由1至到我的record完为止呢？因为我忘了

程家伟

嗨~红发兄。。。其实我想要我的号码编排下来而以。。就是有

1
2
3
4
5
6
。
。
。

也就是说我有多少的record它就出现多少的号码下来，比如说我又1234个record list。。那么我的report就要出现有从1到1234号码的。。
可是我试过了之前帖子的编码。。。所以就来这里问问。。。呵呵，打捞各位对不起了

程家伟

刚刚找到的，不知要改什么。。。我的是把数目1，2，3，4。。。。放在report里的detail。

Description.

This utility is for counting number of code lines in a Visual Studio Project. It returns the number of code lines and file names which are in the project folders. Actually, you can use this utility for any kind of text file to count the number of lines. This is VB Class file, so you can easily call it in any Web or Windows application. I programmed a simple web application, which shows the number of code line and file names in a web datagrid.

Do not forget to change.

Dim myDirectoryArray as string [].

This array contains the folder names in which my project files reside. Moreover, you can also increase the number of file types if you change Dim myFileArray as    String[].

Source Code.

Imports System
Imports System.Collections
Imports System.IO
Namespace LineCount
'/ <summary>
'/ Application: It counts code lines in the VS.NET Project
'/ Author: Levent Camlibel
'/ Date: July 26, 2001
'/ </summary>
Public Class DBLineCount
'FileNames holds the names of files in the project directories
Protected FileNames As New ArrayList(200)
Public Sub New()
End Sub 'New
'/ it returns filenames in the project
'/ </summary>
Public ReadOnly Property FilesInProject() As ArrayList
Get
Return FileNames
End Get
End Property
'/ <summary>
'/ this function returns the count of code lines
'/ </summary>
'/ <returns></returns>
Public Function GetLineCount() As Integer
Dim LineCount As Integer = 0
' this array holds file types, you can add more file types if you want
Dim myFileArray(7) As [String] = {"*.cs", "*.aspx", "*.ascx", "*.xml", "*.asax", "*.config", "*.js"}
' this array holds directories where your project files resides
Dim myDirectoryArray(2) As [String] = {"c:\inetpub\wwwroot\supplynet\", "d:\Net Projects\SpNetComponents\"}
'this loops directories
Dim sd As [String]
For Each sd In myDirectoryArray
Dim dir As New DirectoryInfo(sd)
' this loops file types
Dim sFileType As [String]
For Each sFileType In myFileArray
' this loops files
Dim file As FileInfo
For Each file In dir.GetFiles(sFileType)
' add the file name to FileNames ArrayList
FileNames.Add(file.FullName)
' open files for streamreader
Dim sr As StreamReader = File.OpenText(file.FullName)
'loop until the end
While Not (sr.ReadLine() Is Nothing)
LineCount += 1
End While
'close the streamreader
sr.Close()
Next file
Next sFileType
Next sd
Return LineCount
End Function 'GetLineCount
End Class 'DBLineCount
End Namespace 'LineCount

max5007

原帖由 程家伟 于 4-10-2006 11:34 AM 发表
刚刚找到的，不知要改什么。。。我的是把数目1，2，3，4。。。。放在report里的detail。

Description.

This utility is for counting number of code lines in a Visual Studio Project. It returns the nu ...

你不是用access or vb的吗？你找的code怎么好像是vb.net?

程家伟

原帖由 max5007 于 4-10-2006 11:52 AM 发表


你不是用access or vb的吗？你找的code怎么好像是vb.net?

我也不知道呢，我在google里打vb line count，就出现一大队了。。然后我看到我要的标题就进去看看咯，之后我就看到了这段。。。while的 loop....那么我要改的话还要dim吗？

Dim sr As StreamReader = File.OpenText(file.FullName)
'loop until the end
While Not (sr.ReadLine() Is Nothing)
LineCount += 1
End While
'close the streamreader
sr.Close()
Next file

红发

vb 那就容易了
在你的for..loop里面放这个

dim a = 1

(写出你的“a”的value)<-不知道vb是怎样做output的
XXXXXXXXX
XXXXXXXX

a = a + 1

这样不就好了。

你for...loop完
那个也跟着完


觉得这个很容易把。

程家伟

原帖由 红发 于 4-10-2006 10:31 PM 发表
vb 那就容易了
在你的for..loop里面放这个

dim a = 1

(写出你的“a”的value)<-不知道vb是怎样做output的
XXXXXXXXX
XXXXXXXX

a = a + 1

这样不就好了。

你for...loop完
那个也跟着完

...

红发兄，谢谢你的coding 了。。明早我回去公司试试看。。。剩下的就是这个了。。。如果可以真的是谢天谢地。。也谢谢你感激不尽了

程家伟

还是不能。。我是不是用错了方法

FOR LOOP， WHILE LOOP 试过了

Dim i As Double
i = 1
FOR i=1 to 10000
   i = i + 1
   Me![num]=i

NEXT i

我的result是num的textbox全部是10000

还有没有其他方法，有那个大大做过Query编号

程家伟

哇哈哈哈哈哈哈~！！！我做到我的编号了原来是那么简单

也感谢microsoft corp 的帮忙。。。我不知不觉地下在这个网址的download。。。给我发现到里面的coding

网址：http://office.microsoft.com/en-us/assistance/ha011201381033.aspx

然后我就改一改我的report就可以了

以下是这样



那么我不必烦恼query record set 有多少了。。

[ 本帖最后由 程家伟 于 5-10-2006 11:29 AM 编辑 ]