主题：[求助]记录窗口双击

Public Sub TblBase_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs)
dim cs1() as string = {"第一列", "第二列", "第三列"}
dim cs2() as string = {"文书类别_第一列", "文书类别_第二列", "文书类别_第三列"}
Dim r As C1.Win.C1FlexGrid.Row = sender.Rows(sender.Rowsel)
dim i as integer = array.indexof(cs1, r(0))
If i >= 0 Then
    sender.FinishEditing()
    Dim r1 As Row = Tables("EMS编辑").Current '改为自己的表名
    If r1 IsNot Nothing Then
        r1(cs2(i)) = "√"
    End If
End If
End Sub