If e.Col.Name = "链接" Then If e.Row.IsNull(e.Col.Name) Then Dim dlg As new OpenFileDialog If dlg.ShowDialog = DialogResult.OK Then e.Row(e.Col.Name) = dlg.FileName End If Else e.Cancel = True Dim proc As New Process Proc.File = e.Row("链接") Proc.Start() End If End If