以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口text控件显示流水账余额  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94788)

--  作者:szsmall
--  发布时间:2017/1/2 12:21:00
--  窗口text控件显示流水账余额
想做一个窗口,上面text控件能显示余额。思路是找到最新的一行,直接引用这行的余额。


图片点击可在新窗口打开查看此主题相关图片如下:000.jpg
图片点击可在新窗口打开查看

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:流水账.table



[此贴子已经被作者于2017/1/2 12:24:17编辑过]

--  作者:y2287958
--  发布时间:2017/1/2 12:50:00
--  
直接绑定不就完了吗
--  作者:szsmall
--  发布时间:2017/1/2 14:00:00
--  
直接绑定,会根据行的变动而变。现在是要锁定在最新一行。之前想着sum(收入)-sum(支出),看了帮助,那样效率不高,尤其是数据大的时候。就想着高效流水账,但下面的代码,又不正确。

Dim t As WinForm.TextBox = Forms("testing").Controls("TextBox1")
Dim r As DataRow
r = DataTables("例子一").Find("[_SortKey] > " & e.DataRow("[_SortKey]"),"[_SortKey] desc")
If r Is Nothing Then
    t.text = r("余额")
End If

--  作者:y2287958
--  发布时间:2017/1/2 15:15:00
--  
绑定后设置文本框的DataFormat事件:e.Text = Tables("例子一").Rows(Tables("例子一").Rows.Count-1)("余额")

方法多多,结合实际情况而定