| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何实现在窗体内显示上次卡上余额？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118797) |
|
| -- 作者：time -- 发布时间：2018/5/11 10:59:00 -- 如何实现在窗体内显示上次卡上余额？ 有一个会员消费流水账，内设日期、会员充值金额、会员消费金额、会员卡号、全部余额、会员余额、单号、摘要等列. 现在窗体内设：本次消费日期、会员卡号、本次消费金额、本次卡上余额、本次消费单号等内容。 现在请教：如何实现在窗体内显示上次卡上余额？注意不是显示所在行的上一行，而是显示所在行的关于该会员上次消费或者充值后的余额。请教如何用代码表示？
|
|
| -- 作者：有点甜 -- 发布时间：2018/5/11 11:14:00 -- Dim cr As Row = Tables("表A").Current Dim fdr As DataRow = DataTables("表A").Find("会员卡号 = \'" & cr("会员卡号") & "\' and _Identify < " & cr("_Identify"), "_Identify desc") If fdr IsNot Nothing Then msgbox(fdr("余额")) Else msgbox("没找到") End If |
|
| -- 作者：time -- 发布时间：2018/5/11 16:20:00 -- 感谢您的答复！ 上列代码在我选择不同的行后，会弹窗提示该行的余额结果，却是不是我期望达到的效果。 我把上列代码用在按钮触发方式，点击按钮可以显示我所希望的效果，可就是不能用Label显示。请指教！ 属性 Label 要求在Label读取并呈现： 所在行的关于该会员上次消费或者充值后的余额 请教下列代码如何编制： DataFormat 从绑定字段(列)或变量中读取数据的时候执行。 [此贴子已经被作者于2018/5/11 16:28:59编辑过]
|
|
| -- 作者：有点甜 -- 发布时间：2018/5/11 18:21:00 -- DataFormat事件
Dim cr As Row = Tables("表A").Current Dim fdr As DataRow = DataTables("表A").Find("会员卡号 = \'" & cr("会员卡号") & "\' and _Identify < " & cr("_Identify"), "_Identify desc") If fdr IsNot Nothing Then e.Text = fdr("余额") Else e.Text = "没找到" End If |
|
| -- 作者：time -- 发布时间：2018/5/12 21:44:00 --
|
|
| -- 作者：有点甜 -- 发布时间：2018/5/13 10:41:00 -- Dim cr As Row = Tables("表A").Current Dim fdr As DataRow = DataTables("表A").Find("会员卡号 = \'" & cr("会员卡号") & "\' and _Identify < " & cr("_Identify"), "_Identify desc") If fdr IsNot Nothing Then msgbox(format(fdr("余额"), "0.00") & "元") Else msgbox("没找到") End If |