以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教个2表同步问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54819)
--  作者：gryy
--  发布时间：2014/8/5 12:12:00
--  请教个2表同步问题

如何把明细里各个项目的星期同步到统计里具体星期几里，如果有打√

，自己搞了下没达到效果，谢谢

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.foxdb
--  作者：有点甜
--  发布时间：2014/8/5 14:21:00
--  

做一个按钮，执行代码

 

DataTables("统计").DataRows.Clear
For Each dr As DataRow In DataTables("明细").Select("项目 is not null")
    Dim fdr As DataRow  \' = DataTables("统计").Find("项目 = \'" & dr("项目") & "\'")
    \'If fdr Is Nothing Then
        fdr =  DataTables("统计").AddNew
        fdr("项目") = dr("项目")
    \'End If
    If  DataTables("统计").DataCols.Contains(dr("星期")) Then
        fdr(dr("星期")) = "√"
    End If
Next
--  作者：gryy
--  发布时间：2014/8/5 15:41:00
--  

谢谢，换种方式解决了！