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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 老师帮忙看下是什么情况

共有2150人关注过本帖树形打印复制链接主题：老师帮忙看下是什么情况

xjc620

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

等级：四尾狐帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00

老师帮忙看下是什么情况 发帖心情

Post By：2015/5/17 13:41:00 [只看该作者]

AfterEdit事件

Dim Result1 As DialogResult

If e.Col.Name = "收入金额_二保" Then

Result1 = MessageBox.Show("是否要提醒业务开单", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result1 = DialogResult.Yes Then

Dim Cols1() As String = {"日期","车号","收入金额_二保"}

Dim Cols2() As String = {"打款日期","车号","业务类型_二保"}

Dim dr2 As DataRow = DataTables("待办业务").AddNew()

For i As Integer = 0 To Cols1.Length -1

dr2(Cols2(i))= Tables("收入").Current(Cols1(i))

End If

当把数据复制到待办业务表里后，一点保存后，最后一行数据又被复制两行。怎么回事

sloyy

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

等级：九尾狐帖子：2193 积分：13908 威望：0 精华：2 注册：2012/2/25 10:59:00

Post By：2015/5/17 13:58:00 [只看该作者]

为什么要放在 AfterEdit事件里面?

大红袍

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

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/17 14:00:00 [只看该作者]

你应该用find函数先查找是否存在某行数据，不存在，才添加

主题：老师帮忙看下是什么情况