主题：代码

麻烦大师帮我将事件代码改用按钮执行，实时的匹配数据量一大，程序容易死

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:所有事件改用按钮.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:所有事件改用按钮.table

执行按钮时，数据同步没有了，表“庆”删除记录，但是其他两个表未删除。求这样的按钮。

事件代码如果改成按钮执行，是不是代码会有所变化？

 

这个不需要用按钮代码。在datacolchanged等事件，已经做了同步。

 

你对 期号 列，重置列，即可得到匹配的数据的。你删除某行，也会对应删除另外两个表的数据。

If e.Col.name = "庆012346" Then

    If val(e.text) >= 20 Then

        e.Table.DataTable.AddUserStyle("样式1", color.red, Color.black)

        e.style = "样式1"

    End If

End If

如何让所有类似于"庆012346"的列中大于20的字符显示红色

在类似于"庆012346"的列中查询出包含有“30”的所有列，要将包含有“30”的整个列查询出来放在一个查询表中，跨表查询

参考代码

 

If e.Col.Name.StartsWith("庆") AndAlso e.Col.name.Length = 7 Then
    Dim str As String = e.Col.Name.Replace("庆", "")
    If val(e.text) >= 20 Then      
        e.Table.DataTable.AddUserStyle("样式1", color.red, Color.black)       
        e.style = "样式1"       
    End If   
End If

 

弄了几天，失败得很。主要是把数据粘上去之后，运行变慢，多数情况下死机。是不是要把所有的实时匹配datacolchanged事件改为按钮执行。求大师帮忙解决。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:所有事件改用按钮 (1).table