Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于添加数据问题


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

主题：关于添加数据问题
帅哥哟，离线，有人找我吗？
裴保民
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		关于添加数据问题  发帖心情 Post By：2018/12/21 16:49:00 [显示全部帖子]

有一张商户数据表怎么实现复制一条数据？要实现复制后的数据商户名不能重复如果重复就将商户名加上一个后缀（1）关键是如果已经复制过一次或多次了再加后缀（1）还是重复了，怎么实现依次判断全商户名或商户名加后缀（1）（2）（3）等等直至不重复后就执行复制操作呢？

 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2018/12/21 17:07:00 [显示全部帖子]

第一条没复制前的数据商户名是原名没有后面的值（1）

 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2018/12/21 23:49:00 [显示全部帖子]

甜老师可能是我表达的不明白的原因，附表如下图 选定某一行后单击复制按钮后实现如下

 

（1）如果在原数据行第一次复制时（因为第一次添加数据时时不带区别符的，只有复制后的数据才带区别符的，以避免商户名重复。），将原数据行的“商户名称”字段尾部加上一个区别符如“（1）”、“（2）”、“（3）“等。以避免商户名重复。

（2）如果选中的行中的“商户名称”字段带有区别符时，如“（1）”就将“（1）”区别符替换为其他区别符如“（2）”，以避免商户名重复。

（3）“商户名称”命名规则是：不带区别符优先命名，其次是带区别符，区别符是从小到大来命名的，如（1）、（2）、（3）、（4）、（5）、（6）等等，必须连着号并且不重复命名规则。

 

 

 


图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20181221232353.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2018/12/22 9:19:00 [显示全部帖子]

那该用什么思路来实现其中一条数据时商户名是不能重复的呢？ 一个客户可能有好几个同名的商户名称但是添加时不知道该客户有几个商户，想实现再添加数据时来座椅循环判断只要查出第一次出现不重复的商户名称时就执行复制数据动作

我的思路是：先判断商户名称+（1）如果该数据存在，就执行判断断商户名称+（2）如果该数据存在，就执行判断断商户名称+（3）以此类推直至查到数据库中“商户名称”不重复时就执行复制动作并赋值该字段
[此贴子已经被作者于2018/12/22 9:29:58编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2018/12/22 9:48:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:批量入库.foxdb


不明白怎么实现这一功能
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2018/12/22 11:36:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:批量入库.foxdb

蓝老师经过测试出现一下问题：

（1）在表中添加一条记录时序号添加不上。显示为空值
（2）如果复制的数据行不是原始的行而是复制过的行时会出现"商户名"+（原号）+（原号加1）比如选择的商户名为“个体户张三(1)"时，复制后新名字是“个体户张三（1）（2）”而不是“个体户张三（2）

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

[此贴子已经被作者于2018/12/22 11:37:22编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2018/12/22 14:11:00 [显示全部帖子]

解决第（1）个问题时出问题，添加数据时还是和没设置DataRowAdding中的代码一样，序号仍然为空

 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2018/12/22 16:24:00 [显示全部帖子]

复制数据时能做一些判断吗？判断是否有（）符号如果有先删除再加入新（）最后保存可以吗？
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2018/12/25 19:52:00 [显示全部帖子]

Dim dr As DataRow = Tables("客户档案").DataTable.Find( "身份证 = e.DataRow("身份证号")'") 这句哪错了
[此贴子已经被作者于2018/12/25 19:52:21编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2018/12/25 20:58:00 [显示全部帖子]

在客户档案表的DataColChanged编写如下代码：想实现当客户档案表的身份证发生变化后如果符合条件后将其身份证赋值给“身份证验证”表中客户姓名和客户档案表中姓名一致的身份证尾号字段中，


If e.DataCol.name = "身份证" AndAlso (e.newvalue = Nothing OrElse e.newvalue.length <> 15 AndAlso e.newvalue.length <> 18) Then
    e.cancel = True
Else
 Dim dr As DataRow = Tables("身份证验证").Filter = "客户姓名 = '" & e.DataRow("姓名") & "'"
Tables("身份证验证").Current("身份证尾号") =dr("身份证")
End If

没反应看看那个地方错了
 回到顶部
总数 20 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05957 秒, 7 次数据查询