主题：[求助]关于页面合集的事件

此主题相关图片如下：2017-06-15_143239.gif

 

左边表 click 事件触发 不同页面集合中不同 页面里的表，如何实现，具体就是，当pageA在当前，点击左表引起a表；当pageB在当前，引发B表事件，而原来A不变。

 

 

另外一列数据

1.1

3.3

2.6

>0.5

<6.4

2.2

 

夹杂有运算符，需要转化为 ：  >0.5  取 0.5  这需要一个if来判断吧，类似 like“>” 取后面值，有示例吗？

If dic1.ContainsKey(r("time")) = False Then
            Dim ysf As String = r("value")
            Dim vlu As Double
            ysf = System.Text.RegularExpressions.Regex.replace(ysf , "[<>!,]", "")
            vlu = val("ysf")
           MessageBox.show(vlu)
            dic1.add(r("time"), vlu )
        End If

r("value") 为  <0.05

 

MessageBox.show(vlu)   结果返回 0

 

谢谢 搞定  

 

此主题相关图片如下：2017-06-15_170657.gif

一般出现这中报错是由于设么原因？

有什么解决方法吗？理论上应该不会，time精确到分钟啊？

 

Dim dic1 As new SortedDictionary(Of Date, Double)
Dim dic2 As new SortedDictionary(Of Date, Double)
For Each r As Row In e.Form.controls("Table1").Table.Rows
    If r.IsNull("date") = False Then
        If dic1.ContainsKey(r("date")) = False Then
            dic1.add(r("date"), r("value"))
        End If
        dic2.add(r("date"), 0)
    End If
Next
For Each r As Row In e.Form.controls("Table2").Table.Rows
    If r.IsNull("date") = False Then
        If dic1.ContainsKey(r("date")) = False Then
            dic1.add(r("date"), 0)
        End If
        If dic2.ContainsKey(r("date")) = False Then
            dic2.add(r("date"), r("value"))
        Else
            dic2(r("date")) = r("value")
        End If
    End If
Next

 

报错：有存在重复条目