Question

利用VB编程将一组数同时导到两个数组中怎么办

Answer 1

不知这组盯御数放碰碰在哪，如果笑则谈是数组的话。一个循环可以导入两个数组.如 :
For I=1 to Ubound(A)
B(I)=A(I)
C(I)=A(I)
Next

追问

我有一组动态变化的数，我首先需要将这些数附到两个数组中，则数组1继续接收这些数，数组2作为参照，当两个数组的数不相同时，将数组1中的数转入到数据库中，同时清除数组2中的数。清除完后，继续接收数据，同时继续比较，这个具体该怎么弄。

追答

变化有多快？

追问

每500MS数据更新一次

追答

你可用一个数组，先将数据存到数组中，定义一个变量保存动态变化数就可以。当前动态数和上次变量比较。如果有不同就更新到数据库。没有搞清数组2的值与数组1的值关系。

追问

只需要一个数组吗，变量保存动态变化数怎么定义，有没有具体的代码供我参考一下，谢谢了。

追答

动态变化数是什么?是随机函数生成的数，还是读取设备数据，还是用户输入数据?

追问

读取的设备数据

追答

Public Class Form1
    Public Structure ReadDateType
        Public Data As Double
        Public ReadDate As Date
    End Structure
    Dim A As Double = 0
    Dim B As Double = 0
    Dim C() As ReadDateType
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 500
        Timer1.Enabled = True
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim U As Integer
        ReDim C(0)
        A = ReadData() '你读到的数
        U = UBound(C) + 1
        ReDim Preserve C(U)
        C(U).Data = A
        C(U).ReadDate = Now()
        If A <> B Then
            A = B
            UpdateData() '上传数据
            ReDim C(0)  '清除数据
        End If
    End Sub
End Class

追问

我已将一组数据导到控件数组里面了，要想完成我想要完成的操作，具体该怎么弄，拜托了，帮我看一下。

追答

现在要做的就是比较，如果不同就更新到数据库！我不知你哪点还有问题！数据库是SQL还是Access？

追问

我现在加了一个数组进去，但是一直有错误，请您帮我看看我哪个地方错了，谢谢了，数据库是Access

追答

数组最小一般从0或1开始所从不用比较！你将compare=false换到下一行试下！你这样写不同时不执行exit for!没电脑不能帮你测试！

将Sub改成Function )后面加 as boolean 这样才传返回值