代码
If e.Col.Name = "事件内容" Then e.Cancel = True '取消默认动作 Dim idx As Integer = Tables("客户信息表").FindRow(e.Row.DataRow) Tables("客户信息表").Position = idx Forms("查看任务").Open()End If