- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 引用列 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76281)
-- 发布时间：2015/10/26 11:06:00
-- 引用列
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目17.zip |
想在窗口1_Table1增加了接送地点和违纪原因列，接送地点列内容从缴费信息表接送地点列引用，违纪原因列内容从问题学生信息表违纪原因列引用，如下图：
此主题相关图片如下：qq截图20151026105703.png
请指点代码，谢谢！
-- 发布时间：2015/10/26 11:30:00
--
For Each r As Row In t.Rows
If DataTables("缴费信息").Compute("Count(学生姓名)","学期 = \'" & r("学期") & "\' And 学生姓名 = \'"& e.Form.Controls("学生姓名").Text & "\' And 缴费项目 = \'餐费\'") = 0 Then
r("午餐") = ""
Else
r("午餐") = "√"
End If
Dim fdr As DataRow = DataTables("缴费信息").find("学期 = \'" & r("学期") & "\' And 学生姓名 = \'"& e.Form.Controls("学生姓名").Text & "\' and 缴费项目 = \'车费\' and 接送地点 is not null")
If fdr IsNot Nothing Then
r("接送地点") = fdr("接送地点")
End If
fdr = DataTables("问题学生").find("学期 = \'" & r("学期") & "\' And 学生姓名 = \'"& e.Form.Controls("学生姓名").Text & "\'")
If fdr IsNot Nothing Then
r("违纪原因") = fdr("违规原因")
End If
Next
-- 发布时间：2015/10/26 11:44:00
--
谢谢！
-- 发布时间：2015/10/26 22:29:00
--
For Each r As Row In t.Rows
If DataTables("缴费信息").Compute("Count(学生姓名)","学期 = \'" & r("学期") & "\' And 学生姓名 = \'"& e.Form.Controls("学生姓名").Text & "\' And 缴费项目 = \'餐费\'") = 0 Then
r("午餐") = ""
Else
r("午餐") = "√"
End If
Dim fdr As DataRow = DataTables("缴费信息").find("学期 = \'" & r("学期") & "\' And 学生姓名 = \'"& e.form.Controls("学生姓名").Text & "\' and 缴费项目 = \'车费\' and 接送地点 is not null")
If fdr IsNot Nothing Then
r("接送地点") = fdr("接送地点")
End If
fdr = DataTables("问题学生").find("学期 = \'" & r("学期") & "\' And 学生姓名 = \'"& e.Form.Controls("学生姓名").Text & "\'")
If fdr IsNot Nothing Then
r("违纪原因") = fdr("违规原因")
‘可不可以查询表，缴费信息和退费信息
fdr = DataTables("缴费信息").Select(" Select 学期,学生姓名,b.发票号 * {缴费信息} a Inner JOIN {退费信息}
b ON b.发票号 = a.发票号").find("学期 = \'" & r("学期") & "\'and 缴费项目 = \'学费\' and 学生姓名 = \'"& e.form.Controls("学生姓名").Text & "\'")
If fdr IsNot Nothing Then
r("发票号") = fdr("发票号")
End If
Next
-- 发布时间：2015/10/26 22:42:00
--
呃，分别查缴费信息和退费信息不就好了？类似2楼的方法。
-- 发布时间：2015/10/26 23:04:00
--
因为退费信息表没有学期和学生姓名列，是通过发票号关联
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目17.zip |
-- 发布时间：2015/10/26 23:17:00
--
这样查
fdr = DataTables("缴费信息").find("学期 = \'" & r("学期") & "\'and 缴费项目 = \'学费\' and 学生姓名 = \'"& e.form.Controls("学生姓名").Text & "\'")
If fdr IsNot Nothing Then
r("发票号") = fdr("发票号")
fdr = DataTables("退费信息").find("发票号 = \'" & fdr("发票号") & "\'")
If fdr IsNot Nothing Then
End If
-- 发布时间：2015/10/26 23:31:00
--
出现这种提示
此主题相关图片如下：qq截图20151026232922.png
-- 发布时间：2015/10/26 23:51:00
--
谢谢老师，好休息了，太辛苦了。
-- 发布时间：2015/10/27 9:30:00
--
7楼的代码不会报错。