Dim lb As WinForm.Labellb = 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
我写了一个这个应该好使吧 如果我类似的代码重复写 应该也没问题吧 谢谢