给你一个获得第1行所有单元的数据的例子:(注意:0 表示第1行)Private Sub Command1_Click()Dim L As IntegerDataGrid1.Row = 0 '第1行,如果要获得第2行,设置为1For L = 0 To DataGrid1.Columns.Count - 1 DataGrid1.Col = L MsgBox DataGrid1.TextNext LEnd Sub