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

此主题相关图片如下：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“>” 取后面值，有示例吗？

回复1楼。

 

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")

If tab.SelectedPage.Text = "Page2" Then
    Dim dt1 As DataTable
    dt1 = e.Form.controls("table数据").Table.DataTable
    dt1.LoadFilter = "code='" & e.Row("code") & "'"
    dt1.Load
ElseIf tab.SelectedPage.Text = "page1" Then
    Dim dt2 As DataTable
    dt2 = e.Form.controls("table1").Table.DataTable
    dt2.LoadFilter = "code='" & e.Row("code") & "'"
    dt2.Load
End If

 回复2楼，这样处理

 

Dim str As String = "<>0.5<!,"
str = System.Text.RegularExpressions.Regex.replace(str, "[<>!,]", "")
msgbox(str)

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

 

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

谢谢 搞定  

 

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

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

字典，增加了重复的键

 比如，如果红色的重复了，就会报错。

 

dic1.add(r("time"), vlu)

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