以文本方式查看主题

-  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=57546)
--  作者：jfmeng
--  发布时间：2014/9/26 13:49:00
--  [求助]请帮忙看看这段代码

请帮我看看这段代码, 提示：编译错误：没有为类型"DataCol" 和 "Integer" 定义运算符 "="。

谢谢

 

If e.DataRow.IsNull("学生姓名") Then
            e.DataRow("住读费") = Nothing
            e.DataRow("应收金额") = Nothing
            e.DataRow("搭餐费") = Nothing
            End If
      Dim dr  As  DataRow = e.DataRow

Select Case e.DataCol.Name
     Case "学费","资料费","班费","代收保险费"
     If DataTables("报名登记").DataCols("就读形式") = 1 And DataTables("报名登记").DataCols("同一家庭") = True Then
         dr("住读费") = dr(DataTables("学杂费参数").DataCols("优惠后住读费"))
End If
     If DataTables("报名登记").DataCols("就读形式") = 1 Then
         dr("住读费") = dr(DataTables("学杂费参数").DataCols("基准住读费"))
End If
     If DataTables("报名登记").DataCols("就读形式") = 3 And DataTables("报名登记").DataCols("教工亲属") = True Then
         dr("搭餐费") = dr(DataTables("学杂费参数").DataCols("优惠后搭餐费"))
End If
     If DataTables("报名登记").DataCols("就读形式")= 3 Then
         dr("搭餐费") = dr(DataTables("学杂费参数").DataCols("优惠后搭餐费"))
     End If
End  Select
--  作者：y2287958
--  发布时间：2014/9/26 13:52:00
--  
 DataTables("报名登记").DataCols("就读形式")返回的是列，而不是值
--  作者：jfmeng
--  发布时间：2014/9/26 13:59:00
--  
那请教引用 另外的表的某列值，代码怎么写？
--  作者：有点甜
--  发布时间：2014/9/26 14:34:00
--  
以下是引用jfmeng在2014-9-26 13:59:00的发言：
那请教引用 另外的表的某列值，代码怎么写？

 

跨表引用，先得去查找对应的行。

 

 http://www.foxtable.com/help/topics/1451.htm