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


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

主题:关于添加数据问题

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


加好友 发短信
等级:超级版主 帖子:107323 积分:545876 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/22 9:04:00 [显示全部帖子]

建议增加一个辅助整数序号列,用作区别。因为作为字符串,2是比11大的,这样的话要取出最大值就很麻烦。

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


加好友 发短信
等级:超级版主 帖子:107323 积分:545876 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/22 9:42:00 [显示全部帖子]

增加一个辅助整数序号列,用作区别。

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


加好友 发短信
等级:超级版主 帖子:107323 积分:545876 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/22 10:09:00 [显示全部帖子]

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


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


加好友 发短信
等级:超级版主 帖子:107323 积分:545876 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/22 11:42:00 [显示全部帖子]

1、datarowadding事件
e.datarow("序号") = 0

2、这种无法控制,因为程序无法判断有括号的是是正常的名称还是重复的名称。不然就不用在名称列添加(1)(2)这种编号。需要区分的时候,直接判断序号即可

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


加好友 发短信
等级:超级版主 帖子:107323 积分:545876 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/22 15:05:00 [显示全部帖子]

代码改为
systemready = False
e.DataRow("序号") = 0
systemready = True

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


加好友 发短信
等级:超级版主 帖子:107323 积分:545876 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/25 20:26:00 [显示全部帖子]


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


加好友 发短信
等级:超级版主 帖子:107323 积分:545876 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/25 21:53:00 [显示全部帖子]

DataColChanging事件

If e.DataCol.name = "身份证" AndAlso e.newvalue.length <> 15 andalso e.newvalue.length <> 18 Then
    e.cancel = True
endif

DataColChanged事件
If e.DataCol.name = "身份证" Then
Dim dr As DataRow
        dr = 
DataTables("身份证验证").Find("[客户姓名] = '" & e.NewValue & "'")
        If
 dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
            dr
("身份证尾号") = e.DataRow("身份证"
        End
 If
endif

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


加好友 发短信
等级:超级版主 帖子:107323 积分:545876 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/25 22:49:00 [显示全部帖子]

上传具体实例说明

 回到顶部