[求助]新增删除代码问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]新增删除代码问题

共有5460人关注过本帖树形打印复制链接主题：[求助]新增删除代码问题

good131577

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

加好友

发短信

等级：幼狐帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00

代码可以了新增的2行保存在存款表里面行号为什么是带黄色的 发帖心情

Post By：2014/6/18 15:41:00 [显示全部帖子]

保存代码可以了~

但是

此主题相关图片如下：15.png

？跟之前的灰色不一样是没有完全保存好吗？

good131577

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

加好友

发短信

等级：幼狐帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00

Post By：2014/6/18 15:43:00 [显示全部帖子]

For Each dt As Row In Tables("新增表").Rows
    Dim dr As Row =Tables("存款表").AddNew
    dr("记账日")=dt("记账日")
    dr("交易时间")=dt("交易时间")
    dr("交易地点")=dt("交易地点")
    dr("支出")=dt("支出")
    dr("收入")=dt("收入")
    dr("账户余额")=dt("账户余额")
    dr("对方账号")=dt("对方账号")
    dr("对方户名")=dt("对方户名")
    dr("币种")=dt("币种")
    dr("摘要")=dt("摘要")
    dr("入款方式")=dt("入款方式")
    dr.Save
Next
Tables("新增表").DataTable.DeleteFor(Tables("新增表").Filter)

点击保存按钮运行这个代码不是已经保存到表格中去了吗

good131577

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

加好友

发短信

等级：幼狐帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00

原来是没上锁 发帖心情

Post By：2014/6/18 15:57:00 [显示全部帖子]

原来是没上锁缘故~ 知道了谢谢图片点击可在新窗口打开查看

good131577

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

加好友

发短信

等级：幼狐帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00

疑问~

Post By：2014/6/18 16:08:00 [显示全部帖子]

麻烦问一下

假设我在新增窗口增加5行然后填写数据要求填写的数据不能重复（如果交易日期交易时间对方户名三列值相等我就认为记录重复了弹出提示框说明记录重复不允许）

这种写代码写在哪个事件里面呢？具体怎么写啊？这个应该要填写的那一行跟上面的多行数据进行比较了吧

我是交易日期交易时间对方户名三列值相
图片点击可在新窗口打开查看

此主题相关图片如下：16.png

等就认为重复

good131577

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

加好友

发短信

等级：幼狐帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00

我仿照那个写了下不过没效果 发帖心情

Post By：2014/6/18 16:32:00 [显示全部帖子]

我仿照那个写了下代码不过貌似没效果

不会弹出提示框什么反应也没有~

代码如下：

Select Case e.DataCol.name

Case "交易时间","交易地点","对方户名"

Dim dr As DataRow = e.DataRow

If dr.IsNull("交易时间") = False AndAlso dr.IsNull("交易地点") = False AndAlso dr.IsNull("对方户名") = False Then

If e.DataTable.Compute("Count([_Identify])","交易时间 = '" & dr("交易时间") & "' And 交易地点 = '" & dr("交易地点") & "' And 对方户名 ='" & dr("对方户名") & "'") > 1 Then

MessageBox.Show("已经存在相同交易时间交易地点户名的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.DataRow(e.DataCol.Name) = e.OldValue '取消输入

End If

End Select

写在DataColChanged事件里面的代码有什么问题吗？？
图片点击可在新窗口打开查看

此主题相关图片如下：17.png

good131577

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

加好友

发短信

等级：幼狐帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00

疑问~

Post By：2014/6/18 16:49:00 [显示全部帖子]

麻烦看一下仿照系统给的代码写的新增表中不允许出现两行相同的记录（交易时间、交易地点、对方户名一样就认为数据重复了）如果重复了弹出提示框

可以数据相同不会弹出提示框什么反应也没有~
dvubb

此主题相关图片如下：17.png

代码如下：

Select Case e.DataCol.name

Case "交易时间","交易地点","对方户名"

Dim dr As DataRow = e.DataRow

If dr.IsNull("交易时间") = False AndAlso dr.IsNull("交易地点") = False AndAlso dr.IsNull("对方户名") = False Then

If e.DataTable.Compute("Count([_Identify])","交易时间 = '" & dr("交易时间") & "' And 交易地点 = '" & dr("交易地点") & "' And 对方户名 ='" & dr("对方户名") & "'") > 1 Then

MessageBox.Show("已经存在相同交易时间交易地点户名的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.DataRow(e.DataCol.Name) = e.OldValue '取消输入

End If

End Select

写在DataColChanged事件里面的代码有什么问题吗？？

good131577

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

加好友

发短信

等级：幼狐帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00

[求助]源码打包发了 发帖心情

Post By：2014/6/18 17:40:00 [显示全部帖子]

有点甜大哥麻烦看下吧~

外部数据源链接设置可能要改下改成你数据放置的目录

登录密码chsheng

对应的窗口是4000银行导入窗口

我的代码是写在增加表的dataColChanged代码里面的

good131577

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

加好友

发短信

等级：幼狐帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00

Post By：2014/6/18 17:44:00 [显示全部帖子]

源码发不了？？

good131577

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

加好友

发短信

等级：幼狐帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00

Post By：2014/6/18 17:51:00 [显示全部帖子]

能不能给个其他联系方式神马的？这个论坛源码上传100%就是不成功啊没东西

good131577

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

加好友

发短信

等级：幼狐帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00

源程序~

Post By：2014/6/18 19:09:00 [显示全部帖子]

这个没超过1M 应该可以了吧

窗口是4000银行卡

底下对应的表格是新增表~

在新增表中DataColChanged 代码写的重复行判断然后在新增表中有重复行完全没反应

密码 chsheng

外部数据库连接可能要改下改你放的目录位置

下载信息 [文件大小：下载次数： ]
点击浏览该文件:单机版 - 副本.rar

下一主题 >> << 上一主题

总数 23 上一页 1 2 3 下一页

主题：[求助]新增 删除代码问题

主题：[求助]新增删除代码问题