Foxtable(狐表)用户栏目专家坐堂 → 动态显示


  共有2604人关注过本帖树形打印复制链接

主题:动态显示

帅哥哟,离线,有人找我吗?
shanmao
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:248 积分:1985 威望:0 精华:0 注册:2014/5/13 10:53:00
动态显示  发帖心情 Post By:2014/6/2 15:10:00 [只看该作者]

我想收入表窗口_Table1 中金额列在收支统计_Table1中的收入金额列显示出来,并且能够随着收入表窗口_Table1的改变而改变。
但是下面这个代码实现不了,除非把 pdr = DataTables("收入表窗口_Table1").find("del = 1 and 银行卡号= " & tr("卡号"))改成
 pdr = DataTables("收入表").find("del = 1 and 银行卡号= " & tr("卡号"))就能够显示。但是并不是动态。不能够随着收入表窗口_Table1改变而改变。怎么做才能让它动态显示呢?

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140602150047.png
图片点击可在新窗口打开查看

DataTables("收支统计_table1").DataCols.Add("收入金额",Gettype(String))
DataTables("收支统计_table1").DataCols.Add("支出金额",Gettype(String))
DataTables("收支统计_table1").DataCols.Add("盈余金额",Gettype(String))
DataTables("收支统计_table1").LoadFilter = "del = 1"
DataTables("收支统计_table1").Load

Dim pdr As DataRow
Dim tr As Row
For Each tr In Tables("收支统计_Table1").Rows
    pdr = DataTables("收入表窗口_Table1").find("del = 1 and 银行卡号= " & tr("卡号"))
    If pdr IsNot Nothing Then
        tr("收入金额") = pdr("金额")
    End If
Next

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/6/3 10:03:00 [只看该作者]

你这个只是一次性的,动态显示,你要在DataColChanged事件写代码的。

 

"收入表窗口_Table1"的Datacolchanged事件:

 

if e.col.name = "金额" then

   dim dr as datarow = DataTables("收支统计_table1").Find("del = 1 and 银行卡号= " & e.datarow("卡号") & "'")

   if dr isnot nothing then

       dr("金额") = e.datarow("金额")

   end if

end if


 回到顶部