True DBGrid中可以用“TDBGrid1.Columns(Col).CellText(Row)”这种方法取得某个单元格的值，那么该怎样用类似的方法来设置某单元格的值呢？（也就是不改动BookMark的值）行吗？

Question

Dim X As New XArrayDB
Private Sub Form_Load()
    dim j as integer    X.ReDim 0, j, 0, i
    Call FillXArray
    Set TDBGrid1.Array = X
End Sub

Answer 1

Dim X As New XArrayDB
Private Sub Form_Load()
    dim j as integer    X.ReDim 0, j, 0, i
    Call FillXArray
    Set TDBGrid1.Array = X
End Sub

Answer 2

Dim X As New XArrayDB
Private Sub Form_Load()
    dim j as integer
    dim i as integer
    X.ReDim 0, j, 0, i
    Call FillXArray
    Set TDBGrid1.Array = X
End Sub
Private Sub FillXArray(intI As Integer, intJ As Integer)
    On Error Resume Next
    Dim I As Integer
    Dim j As Integer
    
    For I = 0 To intI
        For j = 0 To intJ
            X(I, j) = " "
            If Err Then Exit For
        Next j
        If Err Then Exit For
    Next I
End Sub

Answer 3

请问如何实现TDBGrid的预览及打印功能呢？急