主题：帮我看看这个错误提示是什么意思？

此主题相关图片如下：qq截图20140115101746.png

值超过上限了,  检查一下你TextBox59  DoubleClick事件的代码

把代码发出来,或者上个例子.

'''
Dim dr As DataRow = Tables("行政案件").Current.DataRow '取得当前行的DataRow
Dim a As Short=dr("木材数量或占用面积")*50
If dr("案由")="盗伐林木" Then
    Forms("录入窗口").Controls("TextBox12").text = "1、责令补种树木" & a*10 & "株；2、没收违法木材" & dr("木材数量或占用面积") & "立方米；3、行政罚款" & dr("行政罚款") & "元。"
ElseIf dr("案由")="滥伐林木" Then
    Forms("录入窗口").Controls("TextBox12").text = "1、责令补种树木" & a*5 & "株；2、行政罚款" & dr("行政罚款") & "元。"
ElseIf dr("案由")="无证运输木材" Then
    Forms("录入窗口").Controls("TextBox12").text = "1、没收非法运输的" & dr("木材数量或占用面积") & "立方米木材；2、行政罚款" & dr("行政罚款") & "元。"
ElseIf dr("案由")="非法收购盗伐、滥伐林木" Then
    Forms("录入窗口").Controls("TextBox12").text = "1、立即停止非法收购行为；" & "2、没收非法收购的" & dr("木材数量或占用面积") & "立方米木材；3、行政罚款" & dr("行政罚款") & "元。"
ElseIf dr("案由")="擅自改变林地用途" Then
    Forms("录入窗口").Controls("TextBox12").text = "1、限三个月恢复原状；2、行政罚款" & dr("行政罚款") & "元。(按每平方米" & dr("行政罚款")\dr("木材数量或占用面积") & "元计算罚款)"
ElseIf dr("案由")="超出木材运输证准运数量" Then
    Forms("录入窗口").Controls("TextBox12").text = "1、没收超出运输证的" & dr("木材数量或占用面积") & "立方米木材。"
ElseIf dr("案由")="承运无证运输证木材" Then
    Forms("录入窗口").Controls("TextBox12").text = "1、没收运费" & dr("木材数量或占用面积") & "元；2、行政罚款" & dr("行政罚款") & "元。"
ElseIf dr("案由")="无证经营、加工木材" Then
    Forms("录入窗口").Controls("TextBox12").text = "1、没收非法经营的" & dr("木材数量或占用面积") & "立方米木材；2、行政罚款" & dr("行政罚款") & "元。"
End If

 

 

  上面是控件的双击代码

Dim a As Short=dr("木材数量或占用面积")*50

明白了，谢谢