主题：关联表的表达式

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

在借款表 表事件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

参考

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

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

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