￥￥￥￥ datagrid如何获得第i行j列的内容

[dofty]

还有，datagrid如何设定初始各个列的大小？能不能可视化操作？

[xingnup]

改变列宽的可视化操作,在DataGrid控件按右键选择编辑便可.

[atlasGS]

DataGrid1.Row = 1
DataGrid1.Col = 1
DataGrid1.Text = "1111"

[atlasGS]

DataGrid1.Row = 1
DataGrid1.Col = 1
text1.text=DataGrid1.Text

[馮強]

DataGrid1.row = i - 1
DataGrid1.col = j - 1

msgbox '你选定的内容：' & DataGrid1.Text

[hzybc]

DataGrid1.Row = i-1
DataGrid1.Col = j-1
text1.text=DataGrid1.Text

列的大小是不是指列的宽度的大小？
是的话就用
DataGrid1.Columns(0).Width = 200
DataGrid1.Columns(1).Width = 500

[qingming81]

dim i as long
dim j as long

for i = 1 to 10
For j = 0 To datagrid1.columns.count-1
MsgBox DataGrid1.Columns.Item(j)
Next j
next i

[lihonggen0]

DataGrid1.Row = 2
a = DataGrid1.Columns(1).Text

[lzj34]

Private Sub datagrid_Click()


On Error GoTo errors
Dim pathstr As String
DoEvents
If mintcount <> Adodc1.Recordset.AbsolutePosition Then textmask.Visible = False
pathstr = Form1.Adodc1.Recordset.Fields("path")
'此处获得所要数据
If pathstr = "" Then GoTo errors
If LCase(Right(RTrim(pathstr), 4)) = ".txt" Then
gstrpath = App.Path & "\text\" & pathstr
Else
gstrpath = App.Path & "\text\" & pathstr & ".txt"
End If
If Dir(gstrpath) = "" Then MsgBox "此部分内容联接错误，请确认文件名（" & pathstr & ".txt）正确！", vbCritical: GoTo errors
Form2.Show
Timer2.Enabled = False
'Unload Me
errors:
textmask.Visible = False
Exit Sub
End Sub

[lzj34]

DataGrid1.Columns(0).Width = 200
DataGrid1.Columns(1).Width = 500