- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 帮我看看这个错误提示是什么意思？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=45074)
-- 发布时间：2014/1/15 10:20:00
-- 帮我看看这个错误提示是什么意思？
此主题相关图片如下：qq截图20140115101746.png
-- 发布时间：2014/1/15 10:22:00
--
值超过上限了, 检查一下你TextBox59 DoubleClick事件的代码
-- 发布时间：2014/1/15 10:22:00
--
把代码发出来,或者上个例子.
-- 发布时间：2014/1/15 10:29:00
--
\'\'\'
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
上面是控件的双击代码
-- 发布时间：2014/1/15 10:34:00
--
Dim a As Short=dr("木材数量或占用面积")*50
-- 发布时间：2014/1/15 10:38:00
--
明白了，谢谢