Question

在VB中如何操作把SQL数据表中的一条记录值的某几个属性值（数据类型相同）组合成一个数组

在VB中如何操作把SQL数据表中的一条记录值的某几个属性值（数据类型相同）组合成一个数组
，还有些复选框，这些复选框名称是对应数据表的全部属性值，选中哪些复选框，就把一条记录上面的选中的属性值组成一个数组，数组是二维的（意思是至少有两条记录值），跪求各位大神出手相救！

Answer 1

“一条记录值的某几个属性值”、“数据表的全部属性喊仿值”，没有听说过，是不是字段的值？如果是字段值，并且字段的数据类型全清渗悄答渣部相同，存储这些字段值到数组是可以的。
Dim XX(1 TO [需要存储字段的个数],1 To [需要存储的记录总条数]) As [存储的数据类型]
[需要存储字段的个数]--比如存储5个字段，就是1 To 5，
[需要存储的记录总条数]--比如存储的总记录数是200个记录：1 To 200
[存储的数据类型]--比如存储的是字符型数据，那么：
Dim XX(1 TO 5,1 To 200) As String

追问

是数据表的字段值，并且这些字段值的数据类型是一样的，但是选择哪些字段值构成数组，是由VB界面上面所选择的复选框所决定的，大神，代码能不能具体一点，

追答

你的问题就不明确，没有办法具体。
如果要具体，必须将你的问题说清楚，最好有代码或界面。

追问

大神，帮我看下，复选框中的退距，中心高，总高度，中心距左端，和中心距右端与数据表中的对应，通过选择这五项的如意几项构成，从数据表中提取数据记录值构成数组，大神，跪求！

追答

退距，中心高，总高度，中心距左端，和中心距右端的复选框的含义是什么？是勾选可以录入数据，不勾选不能录入数据吗？这个复选框的意图不知道，请说清楚。

追问

就是数据表中都有这些数据，勾选表示将该数据从数据表中读出并添加到数组，不勾选表示不添加到数组中，将勾选的数据组成组数（二维的，行表示记录值数，列表示勾选的数据值）

追答

好的，这个没有问题，但是你的复选框的名称是什么，是数组吗？

追问

复选框的名称和数据表中的数据表中的字段名称相同（从上面两幅图片可以看到），这些复选框我暂定为数组，不知道大神有没有解决办法！

追答

'以点击Check1控件求得数组数据

Dim AA(1 To 5) As Single

Private Sub Check1_Click(Index As Integer)    '勾选或取消勾选均会触发这个事件，
Dim X As Integer
X = Index
    If Check1(X).Value = 1 Then    '勾选将数据库中相应的数据存储到数组
        Select Case X    '勾选哪个只能存储哪个的数据到数组中
            Case 0: AA(1) = RS!退距
            Case 1: AA(2) = RS!中心高
            Case 2: AA(3) = RS!总高度
            Case 3: AA(4) = RS!中心距左端
            Case 4: AA(5) = RS!中心距右端
        End Select
    Else
        AA(X + 1) = 0    '不勾选数组中的数据是0，X + 1 是控件序号是从0开始的到4结束，但数组是 1 To 5
    End If
End Sub

追问

大神，还有一个问题，就是，我这个数组的个数不是个固定值，这个数组是把勾选了的字段值构成一个数组，不勾选的不在这个数组成员里面，也就是说数组成员的个数为勾选的数量，是个变量！

追答

Dim AA() As Single, RR As Integer

If Check1(X).Value = 1 Then    '勾选将数据库中相应的数据存储到数组
    '-----------------------------------------------------------------
    '注意：下面是设置动态数组，弊病是不确定以前数组中的数据是否能够保存，不建议使用动态数组！！
    RR = RR + 1
    ReDim AA(1 To RR)    '这样可以动态设置数组，但是估计以前的数据会丢失，而且下面语句需要修改
    '------------------------------------------------------------------
        Select Case X    '勾选哪个只能存储哪个的数据到数组中
            Case 0: AA(1) = RS!退距
            Case 1: AA(2) = RS!中心高
            Case 2: AA(3) = RS!总高度
            Case 3: AA(4) = RS!中心距左端
            Case 4: AA(5) = RS!中心距右端
        End Select

Private Sub Form_Load()
RR = 0
End Sub

Answer 2

这个，，，，，