zoukankan      html  css  js  c++  java
  • VB6 XArrayDB | Xarray ReDim 用法


    用法解释

    官方解释:http://helpcentral.componentone.com/nethelp/truedblist8/default.htm#!redimmethodxarraydb.htm

    XArrayDB Reference / XArrayDB Object Methods
    ReDim Method (XArrayDB)

    This method is used to set or reset the dimensions of an XArrayDB object while preserving any existing data.
    Syntax
    XArrayDB.ReDimrowLB, rowUB, columnLB, columnUB(解释)
    Arguments
    rowLB and rowUB are long integers specifying the lower and upper bounds for row indexes.
    columnLB and columnUB are long integers specifying the lower and upper bounds for column indexes.
    Return Value
    None
    Remarks
    Method applies to XArrayDB object.
    Since a newly created XArrayDB object does not have any default dimensions, you must use the ReDim method before you can assign or access array elements.
    Example
    The following example creates and initializes a two-dimensional XArrayDB object. The first dimension has 100 elements, with indexes starting at 1 and ending at 100. The second dimension has 6 elements, with indexes starting at 0 and ending at 5.
    Dim MyArray As New XArrayDB
    MyArray.ReDim 1, 100, 0, 5


    例子绑定用 XArray绑定 TDBGrid

    Dim X As New XArray
    Private Sub Form_Load()
    Dim r As Integer
    Dim c As Integer
    Dim clmn As TrueDBGrid80.Column‘列
    r = 9 'row
    c = 5 'column
    X.ReDim 0, r, 0, c
    TDBGrid1.Columns.Clear
    For k = 0 To c
    Set clmn = TDBGrid1.Columns.Add(k)'动态添加列
    clmn.Visible = True
    clmn.Caption = "column " & k
    Next k
    Call FillXArray(r, c)‘填充数据
    Set Me.TDBGrid1.Array = X
    Me.TDBGrid1.ReBind
    End Sub
    Private Sub FillXArray(intI As Integer, intJ As Integer)’填充数据
    On Error Resume Next
    Dim I As Integer
    Dim j As Integer
    Dim k As Integer

    For I = 0 To intI
        For j = 0 To intJ
            X(I, j) = " row:" & I & ",column" & j
            If Err Then Exit For
        Next j
        If Err Then Exit For
    Next I
    

    If (Err.Number <> 0) Then
    MsgBox Err.Description
    End If
    End Sub

  • 相关阅读:
    [zz]redhat6.0无法识别ntfs分区的解决方法
    使用ftp搭建yum源问题解决
    [zz]搭建centos6.0本地yum源(32位)
    JAVA传统线程技术
    JAVA判断字符串是否为数字
    java之异常
    随便记两笔Java中的反射
    【转】单例模式完全解析
    java.lang.Enum
    文件搜索
  • 原文地址:https://www.cnblogs.com/wgscd/p/5212313.html
Copyright © 2011-2022 走看看