以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]急请求帮助  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=69081)
--  作者：ybmjy
--  发布时间：2015/5/29 20:24:00
--  [求助]急请求帮助

在表B中，如果变化的是班级列，如何在收费内容中写入一个多值字段，此多值字段来源于表A，且年级＝表B中的年级，班级＝表B中的班级

写入内容样式为：生活费200，住宿费300，保险费100

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table
--  作者：sloyy
--  发布时间：2015/5/29 20:32:00
--  
对于你这样设计数据库,我只能说 呵呵
--  作者：ybmjy
--  发布时间：2015/5/29 20:34:00
--  

If e.DataCol.Name = "所属班级" Then
    Dim drs As List(of DataRow) = DataTables("表A").Select("[年级] = \'" & e.DataRow("年级") & "\' and [班级] = \'" & e.DataRow("班级") & "\'")
    For Each dr As DataRow In drs
        e.DataRow("收费内容") = dr("收费名称")&dr("收费标准")
    Next
End If

 

以上代码只能写入一个数据生活费300，不知何故
--  作者：ybmjy
--  发布时间：2015/5/29 20:37:00
--  
以下是引用sloyy在2015/5/29 20:32:00的发言：
对于你这样设计数据库,我只能说 呵呵

因为各年级或班级收费标准有可能不统一，请教当如何设置这个数据库？
--  作者：ybmjy
--  发布时间：2015/5/29 20:38:00
--  
才疏学浅，请大师们指教
--  作者：ybmjy
--  发布时间：2015/5/29 22:20:00
--  

自已顶，高手些不在

 
--  作者：狐狸爸爸
--  发布时间：2015/5/30 8:19:00
--  
If e.DataCol.Name = "班级" OrElse e.DataCol.name = "年级" Then
    Dim drs As List(of DataRow) = DataTables("表A").Select("[年级] = \'" & e.DataRow("年级") & "\' and [班级] = \'" & e.DataRow("班级") & "\'")
    Dim v As String = ""
    For Each dr As DataRow In drs
        v = v & ("收费名称")&dr("收费标准") & ","
    Next
    e.DataRow("收费内容") = v.Trim(",")
End If