If e.Table.Current Is Nothing Then '如果Current为Nothing
Return
End If
'''显示或关闭菜单按钮
For Each dr As Row In CurrentTable.Rows
Dim sit As WinForm.StripItem = e.Form.Strips("主菜单").Items("txbf")
Dim ns As Integer = DataTables("图像明细").Compute("Count([_Identify])","图像编号 = '" & dr("附件编号") & "'")
sit.Enabled = ns > 0
Dim pstr As WinForm.StripItem = e.Form.Strips("主菜单").Items("Pdf_open")
Dim pfil As String = "文件名称 = '" & dr("文件名称") & "' And 文件附件编号 = '" & dr("附件编号") & "' And 文件后缀 = '.pdf'"
Dim pcnt As Integer = DataTables("资料明细").Compute("Count([_Identify])",pfil)
pstr.Enabled = pcnt > 0
Dim wstr As WinForm.StripItem = e.Form.Strips("主菜单").Items("Word_open")
Dim wfil As String = "文件名称 = '" & dr("文件名称") & "' And 文件附件编号 = '" & dr("附件编号") & "' And 文件后缀 = '.doc'"
Dim wcnt As Integer = DataTables("资料明细").Compute("Count([_Identify])",wfil)
wstr.Enabled = wcnt > 0
Next
加好友 
发短信
Post By：2018/11/15 18:57:00 [显示全部帖子]
