Foxtable(狐表)用户栏目专家坐堂 → [求助]选择逻辑列自动编号


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

主题:[求助]选择逻辑列自动编号

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


加好友 发短信
等级:八尾狐 帖子:1838 积分:13006 威望:0 精华:0 注册:2013/6/10 9:23:00
[求助]选择逻辑列自动编号  发帖心情 Post By:2015/10/13 22:58:00 [显示全部帖子]


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

1.如果产品图号为空, 勾选有图否, 生成一个图号, 不需要这个图号, 手工删除,手工删除后有图否勾选自动取消
2.如果产品图号不为空, 或者手工输入图号后, 无论勾选与否, 图号不能添加自动编号

 

下面的代码如何更改

 

If e.DataCol.Name = "有图否" AndAlso e.DataRow("有图否") = True Then
    If e.DataRow("产品图号") IsNot Nothing = False Then
        e.cancel = True
    Else
        e.DataRow("产品图号") = "SMP" & Format(e.DataRow("_Identify"), "000000")
    End If
Else
    If e.DataRow("产品图号") IsNot Nothing = True Then
        e.DataRow("有图否") = False
        e.cancel = True
    End If
End If

[此贴子已经被作者于2015/10/13 23:06:36编辑过]

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


加好友 发短信
等级:八尾狐 帖子:1838 积分:13006 威望:0 精华:0 注册:2013/6/10 9:23:00
  发帖心情 Post By:2015/10/13 23:20:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:图号生成2.foxdb

代码不对, 勾选没有反应,老师打开附件测试看看


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


加好友 发短信
等级:八尾狐 帖子:1838 积分:13006 威望:0 精华:0 注册:2013/6/10 9:23:00
  发帖心情 Post By:2015/10/14 9:31:00 [显示全部帖子]

谢谢4楼的回复, 不过未达到目的,结果一样


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


加好友 发短信
等级:八尾狐 帖子:1838 积分:13006 威望:0 精华:0 注册:2013/6/10 9:23:00
  发帖心情 Post By:2015/10/14 10:11:00 [显示全部帖子]

比如最后一个PID000019, 我手工删除图号SMP00019, 手工输入一个特殊图号AAA, 然后再勾选有图否, 图号有变成了SMP00019, 我的要求是不能更改手工输入的图号


 回到顶部