1,451
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
superkey 2001-10-26
- 打赏
- 举报
谢谢Brunhild()
Brunhild 2001-10-26
- 打赏
- 举报
'用storage模式(tdbgrid1.datamode=4)方便易用，其他几种非帮定模式比较复杂
'在此之前必须引用APEX XArray object
Dim x As New XArray
Private Sub Form_Load()
Dim row, col As Long
x.ReDim 0, 99, 0, 3
For row = x.LowerBound(1) To x.UpperBound(1)
For col = x.LowerBound(2) To x.UpperBound(2)
x(row, col) = "Row " & row & ", Col " & col
Next col
Next row
' Bind True DBGrid Control to this XArray instance
Set TDBGrid1.Array = x
End Sub
'在此之前必须引用APEX XArray object
Dim x As New XArray
Private Sub Form_Load()
Dim row, col As Long
x.ReDim 0, 99, 0, 3
For row = x.LowerBound(1) To x.UpperBound(1)
For col = x.LowerBound(2) To x.UpperBound(2)
x(row, col) = "Row " & row & ", Col " & col
Next col
Next row
' Bind True DBGrid Control to this XArray instance
Set TDBGrid1.Array = x
End Sub
superkey 2001-10-26
- 打赏
- 举报
没人能帮忙解答吗?
