主题：[求助]动态生成查询表

表《支付下拉窗口》行是《预算单信息维护表》与《往来申请单信息维护》行相加表

求助《预算单信息维护表》/《往来申请单信息维护》增加或减少一行，表《支付下拉窗口》相应会增加或减少一行，自动的，不要按钮

 以编号为准，相同编号的直接增加金额，不同编号的新增一行

《预算单信息维护表》/《往来申请单信息维护》datacolchanged事件

编号相同时，金额增加的代码怎么添加

编号相同时，删除其中一个，合并表中金额减少

运算下来，金额会改变成最后一次的新金额，不会累加

上传实例说明

《预算单信息维护》DataColChangde中代码如下

Dim yr As DataRow
yr = DataTables("预算单信息维护").Find("[预算单编号] = '" & e.DataRow("预算单编号") & "'")  '在预算单信息维护中查找选中的编号
If yr IsNot Nothing Then '如果编号存在
Dim dr As DataRow = DataTables("支付下拉窗口").Find("[编号] = '" & e.DataRow("预算单编号") & "'")
    dr("金额") = dr("金额")  + e.DataRow("申请_金额") '则支付下拉窗口中金额列加上新的值
Else
    Select Case e.DataCol.name
        Case "预算单编号"
            If e.newvalue > ""
                Dim dr As DataRow = DataTables("支付下拉窗口").find("编号='" & e.newvalue  & "'")
                If dr Is Nothing Then
                    dr = DataTables("支付下拉窗口").addnew
                    dr("编号") = e.newvalue
                End If
                Dim Cols1() As String = {"业务日期","申请_用途","申请_金额"}
                Dim Cols2() As String = {"业务日期","用途","金额"}
                For i As Integer = 0 To Cols1.Length -1
                    dr(Cols2(i)) = e.DataRow(Cols1(i))
                Next
            End If
        Case "申请_用途"
            If e.DataRow.isnull("预算单编号") = False
                Dim dr As DataRow = DataTables("支付下拉窗口").find("编号='" & e.DataRow("预算单编号")  & "'")
                If dr Is Nothing Then
                    dr = DataTables("支付下拉窗口").addnew
                    dr("编号") = e.DataRow("预算单编号")
                End If
                dr("用途") = e.DataRow("申请_用途")
            End If
        Case "业务日期"
            If e.DataRow.isnull("预算单编号") = False
                Dim dr As DataRow = DataTables("支付下拉窗口").find("编号='" & e.DataRow("预算单编号")  & "'")
                If dr Is Nothing Then
                    dr = DataTables("支付下拉窗口").addnew
                    dr("编号") = e.DataRow("预算单编号")
                End If
                dr("业务日期") = e.DataRow("业务日期")
            End If
        Case "申请_金额"
            If e.DataRow.isnull("预算单编号") = False
                Dim dr As DataRow = DataTables("支付下拉窗口").find("编号='" & e.DataRow("预算单编号")  & "'")
                If dr Is Nothing Then
                    dr = DataTables("支付下拉窗口").addnew
                    dr("编号") = e.DataRow("预算单编号")
                End If
                dr("金额") = e.DataRow("申请_金额")
            End If
    End Select
End If

 

 运行后出现如下错误：

 

此主题相关图片如下：微信截图_20200205092436.png

 

 

 

想达到的效果是：在《预算单信息维护》中查找是否存在相同的预算单编号，如果存在就在“支付下拉窗口”中相同编号行直接增加金额，如果不存在就在“支付下拉窗口”中新增，同时达到非关联表数据联动效果

达到如下效果：

此主题相关图片如下：微信截图_20200205093655.png

 

没法关联，因为有个表C，想要达到和表A一样的效果，及表B来源于A和C。没法关联，A和C不存在关联

如果2个表没有任何可关联的数据是不可能通过程序处理的。

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

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

 

 

求“支付下拉”表能动态添加“预算申请单”和“往来申请"