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

在窗口表的双击事件中，如果列名的开头是“文书类别_”，双击后，就在单元格打上"√"。

代码如下：

For Each c As Col In Tables("编辑_table1").Cols
    If c.name.startswith("文书类别_") Then
     e.Row(CurrentTable.Cols(CurrentTable.ColSel).name) = "√"
    End If
Next

 

因为列太多，我把这些列放入记录窗口中，是在窗口的afterload事件中生成的记录窗口。

我想在记录窗口实现上述双击效果，应该怎样写代码？

谢谢！

需要手工绑定升级事件，参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=102193&skin=0

加黑的这句代码怎么改？

绑定DoubleClick事件的代码放到窗口的timertick行吗？

 

1、全局代码

 

Public Sub TblBase_DoubleClick(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.OwnerDrawCellEventArgs)
For Each c As Col In Tables("EMS编辑").Cols
    If c.name.startswith("文书类别_") Then
        e.Row.(CurrentTable.Cols(CurrentTable.ColSel).name) = "√"
    End If
Next
End Sub

-----------------------------

2、绑定DoubleClick事件

 

Dim brgd As C1.Win.C1FlexGrid.C1FlexGrid  = e.Form.Controls("RecordGrid1").basecontrol
AddHandler brgd.DoubleClick, AddressOf TblBase_DoubleClick
brgd.refresh

老师，遇到个问题：

在记录窗口双击后，添加了"√"，但是数据表中没有变化，是何原因？

全局代码只能写死表格了

另一个新问题，我有一个清除记录窗口文本的代码，把记录窗口的内容清除了，但是数据表没有跟着变，请老师再帮助看看，谢谢！        

Dim bctr = e.Form.Controls("RecordGrid1").BaseControl
For Each r As object In bctr.Rows
    r(1) = ""
Next

去清除对应的表格的当前行，不要清除记录窗口

Dim str as string = tables("表A").current("文书类别_A")

Str = ” ”

Dim str1 as string = tables("表A").current("文书类别_B")

Str1 = ” ”

......

假如当前行有20几个多层表头相同的列值要清除，能否简化一下代码？

谢谢！

For Each c As Col In Tables("表A").cols
    If c.name.Contains("文书类别_") Then
        c.Table.Current(c.name) = Nothing
    End If
Next