以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=44498)

--  作者:shenhq
--  发布时间:2014/1/2 12:55:00
--  [求助]

新手求助:

有两个表:会员表、会员参加活动表,并设计了一个导入窗体,已经可以将会员导入“会员参加活动表”,

可是如何才能让已经导入 “会员参加活动表”的会员不重复呢?因为每次活动会员不能出现两次。

 

或者怎样才能在打开导入窗体时的会员表过滤掉已经导入的会员?

 

 

 


--  作者:Bin
--  发布时间:2014/1/2 14:24:00
--  
http://www.foxtable.com/help/topics/2334.htm
--  作者:shenhq
--  发布时间:2014/1/2 16:31:00
--  

if DataTables("订单").Find("编号 = \'" & bh & "\'") Is Nothing

 

能这样用吗?:If Tables("订单").Find("编号 = \'" & bh & "\'") Is Nothing


--  作者:Bin
--  发布时间:2014/1/2 16:32:00
--  
可以的 

其实类似这些问题,你实践一下即可知道.

--  作者:shenhq
--  发布时间:2014/1/2 16:56:00
--  

思路是知道的,就是不知道用什么语法。

基础薄弱,记不住这么多的方法以、属性,试了几遍没成功,信心有点不足


--  作者:Bin
--  发布时间:2014/1/2 16:59:00
--  
If Tables("订单").Datatable.Find("编号 = \'" & bh & "\'") Is Nothing
--  作者:shenhq
--  发布时间:2014/1/2 18:04:00
--  

If Tables("报名导入_人员").rows.count > 0 Then
    For Each r1 As Row In Tables("报名导入_人员").GetCheckedRows    \'复选框选中的遍历
        Dim bh As Integer  = r1("_Identify")
        If Tables("活动.报名表").DataTable.find("id=\'" &  bh & "\'") Is Nothing Then
            Dim  r2 As Row = Tables("活动.报名表").AddNew
            r2("id") = r1("_Identify")
        End If
    Next
    e.Form.close
Else
    MessageBox.show("无人员可导入!")
End If

 

以上是可以行的,但是一个会员要参加多次活动,这样写就只要找到有过一次活动的就不能Addnew了,

直接Tables("活动.报名表").Find 又不行


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140102181314.jpg
图片点击可在新窗口打开查看

 

[此贴子已经被作者于2014-1-2 18:05:24编辑过]

--  作者:有点酸
--  发布时间:2014/1/2 22:13:00
--  

你同时根据id和活动名来查找,新增行业同时写上id和活动名,这样就唯一了,即可解决你的问题。

这种问题,编码不难,首先要理顺自己的业务逻辑