老师帮忙看看 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 老师帮忙看看

共有4392人关注过本帖树形打印复制链接主题：老师帮忙看看

xiaohuli

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：461 积分：3442 威望：0 精华：0 注册：2014/2/8 11:13:00

老师帮忙看看 发帖心情

Post By：2014/2/16 16:06:00 [只看该作者]

我想实现在在消费明细表中添加一条记录，相应的在消费表中自动添加一些记录，比如产品名称，消费编号，消费日期，销售积分等，如何写代码？

下面是我写的代码，可是貌似不对，请老师帮忙改改。

If e.DataCol.name="产品名称" AndAlso e. DataRow.isnull("产品名称")=False Then

Dim dr As DataRow = DataTables("会员消费表").addnew

dr("产品名称")=e.DataRow("产品名称")

dr("消费编号")=e.DataRow("消费编号")

dr("日期")=e.DataRow("消费日期")

dr("销售积分")=e.DataRow("销售积分")

End If

y2287958

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4752 积分：34568 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2014/2/16 19:22:00 [只看该作者]

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

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

参考一下，道理一样。

xiaohuli

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：461 积分：3442 威望：0 精华：0 注册：2014/2/8 11:13:00

[原创]

Post By：2014/2/17 9:12:00 [只看该作者]

我是想将产品名称，消费编号，消费日期，销售积分这些都自动添加进去，大侠，你可不可以帮我写个代码，谢谢你了。

Bin

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/2/17 9:18:00 [只看该作者]

只需要增加几句赋值代码即可,1楼你已经写出来了.

dr("产品名称")=e.DataRow("产品名称")

dr("消费编号")=e.DataRow("消费编号")

dr("日期")=e.DataRow("消费日期")

dr("销售积分")=e.DataRow("销售积分")

图片点击可在新窗口打开查看

看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。
三遍之后才开始做系统，先设计好表，想做什么功能，就做什么功能，遇到问题在帮助找答案，找不到的在论坛提问，不断遇到问题，不断解决问题，慢慢就熟悉了。
此外一定要先掌握《使用指南》，然后再看《开发指南》