Foxtable(狐表)用户栏目专家坐堂 → 有点晕了,求助


  共有4065人关注过本帖树形打印复制链接

主题:有点晕了,求助

帅哥哟,离线,有人找我吗?
唐尸三摆手
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:928 积分:7769 威望:0 精华:13 注册:2008/9/1 11:58:00
  发帖心情 Post By: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

 回到顶部