16,718
社区成员
发帖
与我相关
我的任务
分享 Try
If Convert.ToDouble(Me.lblLsPri.Text.Trim) <= 0 Then
MessageBox.Show("该油品未定价,将停止开单。", "停止", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Exit Sub
End If
Catch ex As Exception
End Try Dim temp As Double = 0
If Double.TryParse(Me.lblLsPri.Text.Trim, temp) Then
If temp <= 0 Then
MessageBox.Show("该油品未定价,将停止开单。", "停止", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Exit Sub
End If
End If