If e.F orm.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").Current Isnot nothing then
Tables("退费信息_Table1").Current("缴费项目") = "学费"
end if
End If
加好友 
发短信
Post By：2015/5/22 11:59:00 [显示全部帖子]
