专家坐堂-错误提示Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  错误提示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68676)

--  作者：良才
--  发布时间：2015/5/22 11:56:00
--  错误提示

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

    If e.F orm.Controls("发票号").Text.Chars(4) ="1" Then
       e.F orm.controls("Table1").Table.Fill("Select 学期,班级,学生姓名,b.发票号,\'\' As 缴费项目,退费金额,退费原因 F rom {学费信息} a Inner JOIN {退费信息} b ON b.发票号 = a.发票号 where b.发票号 = \'" & e.Form.Controls("发票号").Text & "\'","数据库", True)
       Tables("退费信息_Table1").Current("缴费项目") = "学费"
    End If

关闭错误提示，求代码？谢谢

--  作者：Bin
--  发布时间：2015/5/22 11:59:00
--
If e.F orm.Controls("发票号").Text.Chars(4) ="1" Then
       e.F orm.controls("Table1").Table.Fill("Select 学期,班级,学生姓名,b.发票号,\'\' As 缴费项目,退费金额,退费原因 F rom {学费信息} a Inner JOIN {退费信息} b ON b.发票号 = a.发票号 where b.发票号 = \'" & e.Form.Controls("发票号").Text & "\'","数据库", True)
if Tables("退费信息_Table1").Current Isnot nothing then
       Tables("退费信息_Table1").Current("缴费项目") = "学费"
end if
    End If

--  作者：大红袍
--  发布时间：2015/5/22 12:01:00
--
If e.Form.Controls("发票号").Text.length < 5 Then
    msgbox("发票号不正确")
Else
    If e.Form.Controls("发票号").Text.Chars(4) = "1" Then
        e.F orm.controls("Table1").Table.Fill("Select 学期,班级,学生姓名,b.发票号,\'\' As 缴费项目,退费金额,退费原因 F rom {学费信息} a Inner JOIN {退费信息} b ON b.发票号 = a.发票号 where b.发票号 = \'" & e.Form.Controls("发票号").Text & "\'","数据库", True)
        If Tables("退费信息_Table1").Rows.Count > 0 Then
            Tables("退费信息_Table1").Current("缴费项目") = "学费"
        End If
    End If
End If

--  作者：良才
--  发布时间：2015/5/22 12:03:00
--
谢谢!