以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  未找到类型“Table”的公共成员“DataTable”  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=125929)
--  作者：cyrollin
--  发布时间：2018/10/10 9:19:00
--  未找到类型“Table”的公共成员“DataTable”
运行这段代码，出现：未找到类型“Table”的公共成员“DataTable”。 怎么修改？

For Each dr As DataRow In DataTables("考勤表").Select("姓名 is not null")
    For i As Integer = 1 To dr.DataTable.DataCols.count-1
        dr(dr.DataTable.DataCols(i).name) = Nothing
    Next
     For Each cdr As DataRow In e.form.controls("Table_rest").DataTable.Select("休息人员=\'" & dr("姓名") & "\'")    
        For i As Integer = 1 To dr.DataTable.DataCols.count-1
            Dim dc = dr.DataTable.DataCols(i)
            If dc.caption = cdate(cdr("日期")).day Then
                dr(dc.name) = 1
            End If
        Next
    Next
Next
--  作者：有点甜
--  发布时间：2018/10/10 9:26:00
--  

改成

 

e.form.controls("Table_rest").Table.DataTable.Select("休息人员=\'" & dr("姓名") & "\'")