标题：这段代码怎么改

Dim dr1 As DataRow = e.DataRow
Dim dr2 As DataRow = DataTables("还款表").AddNew
Dim Cols1() As String = {"单据号","记账单位"}
Dim Cols2() As String = {"单据号","还款单位"}
For i As Integer = 0 To Cols1.Length -1
     dr2(Cols2(i)) = dr1(Cols1(i))
Next
我这一段是从还款明细增加单据号和记账单2列到还款表中的，如果单据号和记账单位都一样，只显示一次怎么写

Dim dr1 As DataRow = e.DataRow
If DataTables("还款表").Find("单据号 = '" & dr1("单据号") & "' And 记账单位 = '" & dr1("记账单位") & "'") Is  Nothing Then
    Dim dr2 As DataRow = DataTables("还款表").AddNew
    Dim Cols1() As String = {"单据号","记账单位"}
    Dim Cols2() As String = {"单据号","还款单位"}
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
End If

狐爸，我用这一段写进去，还款明细表增加东西了，还款表什么也没有了

和这段代码无关的，这里只是将数据复制到还款明细表，并未对还款表进行任何操作。

 

提问最好配合简单的例子

 

我把例子上传了，我想要的效果是基本表中添加一个内容，然后在还款表中显示出单据号和还款单位，并且单据号和还款单位重复的话只显示一次，比如还款单位是‘物业’单据号是“1”，在基本表中可能有3个还款单位是物业，而单据号是：2个单据号是1,1个单据号是5。在还款表中显示的是，单据号1，还款单位物业，单据号5，还款单位物业

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

下面的话是什么意思:

 

在基本表中可能有3个还款单位是物业，而单据号是：2个单据号是1,1个单据号是5。在还款表中显示的是，单据号1，还款单位物业，单据号5

 

你说得不清不楚的，同样的还款单位，基本表有三个单据号，两个1，一个5，为什么还款表只显示一个5？ 为什么是5，规则是设么？

还款表显示的是，单据号1，物业单位，

                      单据号5，物业单位

我让还款表和基本表按单据号产生关联

抱歉，我无法理解你的问题，建议看看帮助文件使用指南中《关联表》和《表达式》这两章吧。

我要的最后效果，现在问题是还款表我输入单据号1，还款单位需要手写。我想要的是在基本表填写了数据，还款表直接就出现单据号1，还款单位物业了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

既然已经建立了关联，那么用表达式列即可：

http://www.foxtable.com/help/topics/0106.htm

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table