|
If e.Form.Controls("fa piao号").Text.length < 5 Then
msgbox("fa piao号不正确")
Else
If e.Form.Controls("fa piao号").Text.Chars(4) = "1" Then
e.F orm.controls("Table1").Table.Fill("Select 学期,班级,学生姓名,b.fa piao号,'' As 缴费项目,退费金额,退费原因 F rom {学费信息} a Inner JOIN {退费信息} b ON b.fa piao号 = a.fa piao号 where b.fa piao号 = '" & e.Form.Controls("fa piao号").Text & "'","数据库", True)
If Tables("退费信息_Table1").Rows.Count > 0 Then
Tables("退费信息_Table1").Current("缴费项目") = "学费"
End If
End If
End If
|
加好友 
发短信
Post By：2015/5/22 12:01:00 [显示全部帖子]
