GEA控件更新记录

20230710

在SENSOR页面，点击指定的坐标轴，下面的序列和实际轴的序列不一样

ggrValueX = TChart1.Series(SeriesIndex).XValues.value(ValueIndex) + 1

加个1

因为teechart是从0开始的

20230509

反馈说曲线界面不自动刷新，看代码没什么问题

最后查到在控件里判断grVisible值的判断，实际传递的是1，但判断是用true，直接改一下了

在自动刷新函数里改了

ElseIf grVisible = True Or grVisible = 1 Then
    Dim iii
    For iii = 0 To TChart1.SeriesCount - 1
    With TChart1.Series(iii)
        .DataSource = rs
        .CheckDataSource
        .RefreshSeries
    End With
    Next
    
    If Limitsaction = 1 Then
    Call changecolor
    End If
    

End If

2022.10.10

问题：在实时报警界面，报警消除后颜色没有及时变色

处理：开始以为是自动刷新时间的问题，最后发现其实是自动刷新判断是否有使用grid的true判断上出问题了，1和true。顺便把判断rs是否为空也改了一下

Private Sub timAutoRefresh_Timer()
On Error Resume Next

If Cnn.State = 1 Then
gConnectionStatus = True
Else
MsgBox "SQL Connect Error"
Exit Sub
End If
Set rs = New ADODB.Recordset
rs.CursorType = CursorType
rs.CursorLocation = CursorLocation
'Set rs = Cnn.execute(gSQLstatement)
rs.Open gSQLstatement, Cnn, 1, 1

If (rs.BOF And rs.EOF) Then Exit Sub


If dgVisible = True Then
    Set VSFlexGrid1.DataSource = rs
    If VSFlexGrid1.Rows < 2 Then VSFlexGrid1.Rows = 2
    If dgAllowColorHighlighting > 0 Then
     If StringHighlightRule.Count > 0 Then
     
        Dim i, ii
    
        For i = 1 To StringHighlightRule.Count
            For ii = 1 To VSFlexGrid1.Rows - 1
                Dim findcol, text, Color, testtext
                findcol = StringHighlightRule.Item(i).Item(1)
                text = StringHighlightRule.Item(i).Item(2)
                Color = StringHighlightRule.Item(i).Item(3)
                testtext = VSFlexGrid1.TextMatrix(ii, findcol)
                If VSFlexGrid1.TextMatrix(ii, findcol) = text Then
                'MsgBox (StringHighlightRule.Item(i).Item(0))
                Call Setrowcolor(ii, Color)
                'MSHFlexGrid1.CellForeColor = &HFF&      'StringHighlightRule.Item(i).Item(2)
                End If
            
            
            Next
        Next
     
     End If
     gdgNumberOfRows = VSFlexGrid1.Rows
    End If
ElseIf grVisible = True Then
    Dim iii
    For iii = 0 To TChart1.SeriesCount - 1
    With TChart1.Series(iii)
        .DataSource = rs
        .CheckDataSource
        .RefreshSeries
    End With
    Next
    If Limitsaction = 1 Then
    Call changecolor
    End If
End If
End Sub

2022.09.30

问题：在SETUP的界面，时有报警窗口弹出，初步判断是381 array index之类的下标越界

去控件内代码作一些判断和修改，如果空或负无效值时的处理

Public Function dgSetCellFontColor(Color As Variant, Optional row1 As Variant, Optional col1 As Variant, Optional row2 As Variant, Optional col2 As Variant)
On Error Resume Next
If Not IsMissing(row1) And Not IsMissing(row2) And Not IsMissing(col1) And Not IsMissing(col2) Then
    If row1 >= 0 And row2 >= 0 And col1 >= 0 And col2 >= 0 And VSFlexGrid1.Rows >= row2 And VSFlexGrid1.Rows >= row1 And VSFlexGrid1.Cols >= col1 And VSFlexGrid1.Cols >= col2 Then VSFlexGrid1.Cell(flexcpForeColor, row1, col1, row2, col2) = Color
End If
End Function

2022.09.22

最后在更新时琮是作了判断再处理，中文查询的时候INTOUCH发给控件估计字节长度问题，多了一个char(0)

作了如下处理

Public Function AppendStatement(ByVal QY As Variant)
On Error Resume Next

If (InStr(1, QY, "'") And InStr(1, QY, Chr(0))) Then
QY = Trim(QY)
QY = Replace(QY, Chr(0), "")
Dim Y() As String
Y = Split(QY, "'")
QY = Y(0) & "'" & Y(1) & "'"
End If
'MsgBox QY
'MsgBox Len(QY)
'


gSQLstatement = gSQLstatement & " " & QY

'MsgBox gSQLstatement



End Function

2022.09.21

在配方加载页面，选中文没有显示列表，SQL的拼接没有加空格，导致语句搞一起了

Public Function AppendStatement(QY As String)
On Error Resume Next
gSQLstatement = gSQLstatement + " " + QY

End Function

2022-09-16

问题点，当没有数据的时候，只显示了列标题，不好看

那就加一个，如果没有数据就显示个空行

就在绑定数据源后加个判断，如果小于2行，那就让它是两行

Set VSFlexGrid1.DataSource = rs

If VSFlexGrid1.Rows < 2 Then VSFlexGrid1.Rows = 2

原效果

修改后的效果