If Tables("系统设置").Current("是否提醒") = True Then
Dim piaoshuliang As Integer= DataTables("fa piao库存资料表").sqlCompute("Count(fa piao号)", "是否已填开 =False And fa piao类型 ='增值税普通fa piao' And fa piao状态 ='正常fa piao'")
If piaoshuliang < 3 Then
MessageBox.Show( piaoshuliang )
'Forms("提醒窗体").Open()
Forms("系统主窗体").Open
Forms("提醒窗体").show
Forms("提醒窗体").TopMost = True
Forms("提醒窗体").Controls("zzsptfpLabel").text= piaoshuliang &"张fa piao"
End If
End If
这段代码怎么不起作用呢?提醒窗体不置顶