Private Sub DataGrid1_DblClick() DataGrid1.Col = 2 DataGrid1.Row = 2 WinExec "explorer " & DataGrid1.Text, 0 End SubPrivate Sub Form_Load() Dim adoRecordset As ADODB.Recordset Set adoRecordset = New ADODB.Recordset Dim i As Integer For i = 0 To 2 '为Recordset三个字段,即为 DataGrid 添加三列 adoRecordset.Fields.Append "第" & i & "列", adVariant, adFldMayBeNull, adFldIsNullable + adFldUpdatable Next i adoRecordset.Open For i = 0 To 3 adoRecordset.AddNew '加四条记录,即为 DataGrid 添加四空行 Next i Set DataGrid1.DataSource = adoRecordset '绑定 DataGrid 的数据源 DataGrid1.Col = 2 DataGrid1.Row = 2 DataGrid1.Text = "http://61.186.252.133" End Su
DataGrid1.Col = 2
DataGrid1.Row = 2
WinExec "explorer " & DataGrid1.Text, 0
End SubPrivate Sub Form_Load()
Dim adoRecordset As ADODB.Recordset
Set adoRecordset = New ADODB.Recordset
Dim i As Integer
For i = 0 To 2 '为Recordset三个字段,即为 DataGrid 添加三列
adoRecordset.Fields.Append "第" & i & "列", adVariant, adFldMayBeNull, adFldIsNullable + adFldUpdatable
Next i
adoRecordset.Open
For i = 0 To 3
adoRecordset.AddNew '加四条记录,即为 DataGrid 添加四空行
Next i
Set DataGrid1.DataSource = adoRecordset '绑定 DataGrid 的数据源
DataGrid1.Col = 2
DataGrid1.Row = 2
DataGrid1.Text = "http://61.186.252.133"
End Su