Foxtable(狐表)用户栏目专家坐堂 → Datatable和Table,addnew会有很大区别吗


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

主题:Datatable和Table,addnew会有很大区别吗

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


加好友 发短信
等级:幼狐 帖子:168 积分:1956 威望:0 精华:0 注册:2015/5/8 1:17:00
Datatable和Table,addnew会有很大区别吗  发帖心情 Post By:2017/2/20 10:59:00 [只看该作者]

流水账,计算余额,保存按钮打代码时,打成Table().addnew,结果余额不会自动计算,要重置一下。后来发现代码时写在DataColChanged,只有DataTale才会有效。

但帮助文档,建议用table的addnew,想问一下Datatable和Table,addnew会有很大区别吗?因为很多代码都是写在DataColChanged,必须要用到Datatable。

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/20 11:08:00 [只看该作者]

不理解你的意思。

 

Table的add,会把焦点移动到新增的行。datatable的add,就是新增一行,焦点不会变化。

 

举例说明你要做什么。


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


加好友 发短信
等级:三尾狐 帖子:770 积分:7813 威望:0 精华:0 注册:2014/4/21 15:16:00
  发帖心情 Post By:2017/2/20 11:09:00 [只看该作者]

在主表中新增数据这两个没有区别,但是在副本表中新增就不会触发DataColChanged事件


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


加好友 发短信
等级:幼狐 帖子:168 积分:1956 威望:0 精华:0 注册:2015/5/8 1:17:00
  发帖心情 Post By:2017/2/20 11:49:00 [只看该作者]

确实是副本表,在界面上做一个“保存”按钮,新增加一行,把其他按钮的内容填进去。但现在发现余额不会自动计算

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/20 11:57:00 [只看该作者]

 只要修改了列的值,都肯定会触发datacolchanged事件,你可以加入msgbox弹出e.newvalue的值看一下。

 

 具体问做实例说明。


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


加好友 发短信
等级:幼狐 帖子:168 积分:1956 威望:0 精华:0 注册:2015/5/8 1:17:00
  发帖心情 Post By:2017/2/20 14:53:00 [只看该作者]

我直接复制高效流水账,但代码似乎不适用,同时加两行(借和贷),余额时有,时没



图片点击可在新窗口打开查看此主题相关图片如下:226.gif
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:会计凭证.table


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/20 15:27:00 [只看该作者]

要先给日期列赋值

 

Dim dr1 As DataRow = DataTables("借贷表").AddNew
dr1("日期") = e.Form.Controls("DateTimePicker1").text
dr1("科目") = e.Form.Controls("ComboBox2").text
dr1("减") = e.Form.Controls("NumericComboBox1").text

Dim dr2 As DataRow = DataTables("借贷表").AddNew
dr2("日期") = e.Form.Controls("DateTimePicker1").text
dr2("科目") = e.Form.Controls("ComboBox1").text
dr2("增") = e.Form.Controls("NumericComboBox1").text


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


加好友 发短信
等级:幼狐 帖子:168 积分:1956 威望:0 精华:0 注册:2015/5/8 1:17:00
  发帖心情 Post By:2017/2/20 16:55:00 [只看该作者]

受教了,对着代码想半天,原来只是先后顺序的问题,这些细节,以后一定注意

 回到顶部