以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  有点晕了,求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=44104)
--  作者：blackzhu
--  发布时间：2013/12/23 11:26:00
--  有点晕了,求助
窗口有说明,代码帮我写在按钮中


 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1202.table
--  作者：Bin
--  发布时间：2013/12/23 11:44:00
--  
没看懂你的需求.
--  作者：lihe60
--  发布时间：2013/12/23 11:59:00
--  

没有看明白如何判断。
--  作者：逛逛
--  发布时间：2013/12/23 12:18:00
--  

是这样？

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1202.table
--  作者：唐尸三摆手
--  发布时间：2013/12/23 12:29:00
--  
Dim dr,mr,nr As DataRow
For Each dr In DataTables("表B").Select("")
    mr = DataTables("表C").Find("[第一列] = \'"& dr("第一列") &"\'")
    If mr Is Nothing Then
        \'Output.Show("表C" & dr("第一列") & "未找到")
        nr = DataTables("表A").AddNew
        nr("第一列") = dr("第一列")
        nr("第二列") = "未录入"
    Else
        If mr.IsNull("第二列") Then
            \'Output.Show("表C" & dr("第一列") & "是空值")
            nr = DataTables("表A").AddNew
            nr("第一列") = dr("第一列")
            nr("第二列") = "是空值"
        End If
    End If
Next
--  作者：blackzhu
--  发布时间：2013/12/23 13:33:00
--  
谢谢 我已经搞定了 逛逛 不太对,  唐兄的是和我写的一样的.