If e.Col.Name = "第一列" Then If e.Row.IsNull("第一列") = False Then Dim path As String = e.Col.DataCol.DefaultFolder If path = Nothing Then path = ProjectPath & "attachments/" End If path = path & e.Row("第一列") Dim proc As new Process proc.File = path proc.Start End If End If