主题：[求助]请帮忙看看这段代码

请帮我看看这段代码, 提示：编译错误：没有为类型"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

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

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