-- 作者:有点灰3
-- 发布时间:2022/7/1 19:14:00
--
Dim lb As WinForm.Label lb = e.Form.Controls("为") Dim cnt As Integer = DataTables("询价表").Compute("count(传递报价)", "传递报价=false" ) If cnt > 0 Then lb.Text = lb.Text & "(" & cnt & ")" Else lb.Text = Nothing End If
我写了一个这个应该好使吧 如果我类似的代码重复写 应该也没问题吧 谢谢
|