Dim r As Row = Tables("表A").current If r IsNot Nothing Then If forms("产品标签窗口").opened Then Dim str As String = "" systemready = False For i As Integer = 1 To 6 Forms("产品标签窗口").Controls("checkbox" & i).checked = r("标签_加工材质").contains(Forms("产品标签窗口").Controls("checkbox" & i).text) Next systemready = True End If End If
|