# Re: 要如何比对阿!!!

Posted by 小琳 on July 28, 1999 at 21:04:31:

In Reply to: 要如何比对阿!!! posted by 完蛋了 on July 28, 1999 at 15:44:32:

:
: Private Type Score
: 名称1 As String * 2
: 名称2 As String * 2
: 名称3 As String * 2
: 名称4 As String * 2
: 名称5 As String * 2
: End Type

: Dim rec As Score

: Sub GetData()

: Get #f, , rec
:
: ' 显示资料录各栏位的内容
: 名称1.Text = rec.名称1
: 名称2.Text = rec.名称2
: 名称3.Text = rec.名称3
: 名称4.Text = rec.名称4
: 名称5.Text = rec.名称5
:
: End Sub
: 每笔资料有5个栏位
:
: 要搜寻的资料为"aa" 请问如果有100笔资料 要如何比对栏位内 有多少的资料是"aa" 数量是多少
: 烦请指导 谢谢

:::小女子觉得将rec设成阵列比较好做，因为须要存１００
笔资料，您也可以将５个栏位设定为阵列，如下：
Private Type Score
名称1(4) As String
End Type
dim abc(99) as score
这样的话就可以使用二个回圈来计算"aa"的数量是多少了!!!

Follow Ups:

- Re: 要如何比对阿!!! Honey 21:27:30 7/28/99 (0)