主题：关联表的表达式

借款余额的表达式

怎样实现子表的借款金额-充值金额 =借款余额 (同一次序) 但关联列 有重复值 但这重复值又得保留,表中也没有其他列是唯一值

(第一次)借款金额-(第一次充值金额)

(第二次)借款金额-(第二次充值金额)

 

此主题相关图片如下：2016-01-11_160341.jpg

我知道要唯一才行 换个思路在表事件或者按钮中用代码实现 count(第几次)得到多少行 再把充值金额相加 用(第几次)的借款金额减 得到(第几次)的借款余额  父子表依然用"充值次序"与"借款次序"关联  目的是单击第几次充值时能快速知道第几次借款的信息.行不?

 

 

控制主表关联列唯一容易 ,那子表的借款金额就只会减去这一行的充值金额 这就没达到要求

请教版主一个问题 这第几次怎样在后台自动得到,不用用文本框赋值

dt3.sqlCompute("sum借款金额)","[借款次序] =  '第几次'")- dt3.Compute("sum(充值金额)","[充值次序] =  '第几次'")

 

Dim r As Row = Tables("借款").Current
Dim dt As DataTable = DataTables("借款")
Dim dt1 As DataTable = DataTables("粤通卡充值记录")

r("借款余额")=dt.sqlCompute("sum(借款金额)","[借款次序] =  '" & r("借款次序") & "'")- dt1.Compute("sum(充值金额)","[充值次序] =  '" & r("充值次序") & "'")

 

调用目标发生异常

 

我想在表"粤通卡充值记录"点击充值次序 相应的显示借款明细.(所以我用充值次序与借款次序关联)

在借款表 表事件DataColChanged 中写

Dim r As Row = Tables("借款").Current
Dim dt As DataTable = DataTables("借款")
Dim dt1 As DataTable = DataTables("粤通卡充值记录")

r("借款余额")=dt.sqlCompute("(借款金额)","[借款次序] =  '" & r("借款次序") & "'")- dt1.Compute("sum(充值金额)","[充值次序] =  '" & r("借款次序") & "'")

但是在父表中更改某一次充值次序的金额后或者增加已有次序的充值金额,关联表的借款余额必须手动删除后才会取得新值.

 

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

点击浏览该文件:粤通卡充值.zip

版主 日期节点怎样限制到月份 我想像系统筛选树一样节点只显示到月,下面的代码要如何改

Dim Filter As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "所有记录" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[充值日期 YM] = '" & dr("充值日期 YM") & "'"
        Case 1
            Filter = "[充值日期 YM] = '" & dr("充值日期 YM") & "' And [充值次序] = '" & dr("充值次序") & "'"
        'Case 2
           ' Filter = "[项目] = '" & dr("项目") & "' And [城市] = '" & dr("城市") & "' And [地点] = '" & dr("地点") & "'"
    End Select
End If
Tables("粤通卡充值记录").Filter = Filter

Microsoft Jet 数据库引擎找不到输入表或查询 '~TMPCLP粤通卡充值记录'。 确定它是否存在，以及它的名称的拼写是否正确。

依照帮助改的,代码没动过,内部数据可以.外部数据报错.要改哪?