许泽博Zblog

本界面加ADODC，自加载实体表

Dim iEntity,value,EntityNR

Dim listcout

Dim ProNrInt 

    With ScreenItems("Adodc1")

        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Scada6\scada6_$d\YiLi_DataBase\DataBase.mdb;Persist Security Info=False"    

        .RecordSource = "SELECT * FROM tbl实体表 ORDER BY 名称"

        .Refresh

        If Not .Recordset.BOF Then .Recordset.Movefirst        

        Do Until .Recordset.EOF             

            ProNrInt = Int(.Recordset.Fields(0)) 

'            HMIRuntime.Trace "ProNrInt: "  & ProNrInt & vbCrlf    

            ScreenItems("ListEntity").NumberLines = ProNrInt 

            ScreenItems("ListEntity").Index = ProNrInt 

            ScreenItems("ListEntity").Text = .Recordset.Fields(1) '& .Recordset.Fields(2)

            .Recordset.Movenext            

        Loop

        .Recordset.Close                            

    End With

    EntityNR=1

    listcout=ScreenItems("ListEntity").NumberLines

    HMIRuntime.Trace"总数量" & listcout & vbCrlf

        For value = 1 To listcout

            ScreenItems("ListEntity").Index = value

            iEntity=ScreenItems("ListEntity").Text

                If Len(iEntity)<4 And IsNumeric(iEntity) Then

                      'ScreenItems("EntryNR"&EntityNR).BackColor=RGb(218,218,218)

                        'ScreenItems("EntryName"&EntityNR).BackColor=RGb(218,218,218)

                    Else 

                     ScreenItems("EntryNR"&EntityNR).Text = value

                    ScreenItems("EntryName"&EntityNR).Text = ScreenItems("ListEntity").Text

                    ScreenItems("EntryNR"&EntityNR).Visible = True

                       ScreenItems("EntryName"&EntityNR).Visible = True

                    EntityNR=EntityNR + 1

                End If

        Next

改为使用主界面已加载的实体表

Dim iEntity,value,i

Dim listcout

Dim ProNrInt 

    listcout=parent.parent.ScreenItems("ListEntity").NumberLines

    HMIRuntime.Trace"总数量" & listcout & vbCrlf

        For i = 1 To listcout

            parent.parent.ScreenItems("ListEntity").Index = i

            iEntity=parent.parent.ScreenItems("ListEntity").Text

                If Len(iEntity)<4 And IsNumeric(iEntity) Then

                    ScreenItems("EntityNR"&i).BackColor=RGb(218,218,218)

                    ScreenItems("EntityName"&i).BackColor=RGb(218,218,218)

End If

                ScreenItems("EntityNR"&i).Text = i

                ScreenItems("EntityName"&i).Text = iEntity

                ScreenItems("EntityNR"&i).Visible = True

                ScreenItems("EntityName"&i).Visible = True

        Next