Dim t1 As Table =  Tables("客户消费")
Dim t2 As Table =  Tables("经营支出管理")
Dim dend As Date = Date.Today
Dim dstart As String = e.Form.Controls("ComboBox3").value

Dim shour As WinForm.Label = e.Form.Controls("总收入")
Dim zhic As WinForm.Label = e.Form.Controls("总支出")
Dim yingl As WinForm.Label = e.Form.Controls("盈利状况")
Select Case   dstart
    Case "历史以来"
        t1.Filter =""
        t2.Filter =""
        Dim sum As Single
        sum = t1.Compute("sum(费用)")
        Dim sum1 As Single
        sum1 = t1.Compute("sum(提成)")
        Dim sum2 As Single
        sum2 = t2.Compute("sum(费用)")
        shour.text = sum
        zhic.text = sum1+sum2
        yingl.text = sum -sum1 -sum2

end select

我 用过计算  算 出 一个  “总支出”    一个  “总收入”

想用 这个值作为 x坐标 标示， Y坐标用 他们 各自的 计算结果     shour.text   zhic.text

不知道 能不能 做一个 柱状图 出来？

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