主题：备注

此主题相关图片如下：查询.jpg

Dim Filter As String = "1=1"
With e.Form.Controls("开始时间")
    If .Value IsNot Nothing Then
        Filter = Filter & " and 日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("客户名称")
    If .Value IsNot Nothing Then
        Filter = Filter & " and 客户名称 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("结束时间")
    If .Value IsNot Nothing Then
        Filter = Filter & " and 日期 <= #" & .Value & "#"
    End If
End With
If Filter > "" Then
    Tables("应收查询").Filter = Filter.replace("客户名称", "托运单位")
    Tables("已扣款查询").Filter = Filter.replace("客户名称", "欠款人")
    Tables("应付查询").Filter = Filter.replace("客户名称", "承运单位")
    Tables("已收款查询").Filter = Filter.replace("客户名称", "交款单位")
End If

Dim dt As DataTable = DataTables("总查询表")
dt.DataRows.Clear
Dim tbs() As String = {"应收查询", "已扣款查询", "应付查询", "已收款查询"}
Dim jes() As String = {"应收查询表", "已扣款查询表", "应付查询表", "已收款查询表"}
Dim xms() As String = {"托运单位", "欠款人", "承运单位", "交款单位"}
For i As Integer = 0 To tbs.length-1
    Dim tb = tbs(i)
    For Each xm As String In DataTables(tb).GetValues(xms(i), Tables(tb).Filter & " And " & xms(i) & " Is not null")
        Dim fdr As DataRow = dt.Find("客户名称 = '" & xm & "'")
        If fdr Is Nothing Then
            fdr = dt.AddNew
            fdr("客户名称") = xm
        End If
        If fdr.Isnull(jes(i) & "金额") Then fdr(jes(i) & "金额") = 0
    Next
Next

 

Tables("总查询表").Sort = "客户名称"

 

合计金额 列 是表达式列 等于 应收+已扣款—应付—已收款    能不能每次查询的时候 在合计金额列 列名后边备注一下 出现正数是客户欠我的 出现负数是我欠客户的

例如 最后一个 陈伟明  出现负数  就在合计金额 列名后边 备注一下 欠陈伟明XXX元  出现正数 就备注 XX客户 欠我 XXX元

增加一个备注列做备注不就行了

我是 有一个查询按钮  代码就是查询按钮的代码  筛选每一个 客户 进行查询  要是增加备注列  这样每次查询的时候 客户名能区分开么

 

增加备注列和 客户名能不能分开有关系么？

此主题相关图片如下：6363333.jpg

我的意思 是 说   当我查询 一个客户时 如果合计金额列数值 大于等于0  就在合计金额列名后面出现提示（XXX欠运费）

如果合计金额列数值小于0时  同理 列名后边出现（欠XXX运费）

改列标题：http://www.foxtable.com/webhelp/scr/1275.htm