Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]客商表编码问题？


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

主题：[求助]客商表编码问题？
帅哥哟，离线，有人找我吗？
有点甜
 小大  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/1/6 16:10:00 [显示全部帖子]

以下是引用bigeng在2015-1-6 15:59:00的发言：
抱歉，甜版，我这人有点笨，请谅解！

 

那你就先去学基础

 

http://www.foxtable.com/help/topics/0207.htm

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/1/7 9:02:00 [显示全部帖子]

 代码写到DataCochanged事件。

 

 好好学一下基础啊。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/1/7 10:11:00 [显示全部帖子]

If e.DataCol.Name = "客商分类" Then
    Dim dr As DataRow = e.DataRow
    Dim bh As String
    Dim max As String
    Dim idx As Integer
    'If dr.RowState <> DataRowState.Added Then '如果不是新增行
    '    Return '那么返回
    'ElseIf dr.IsNull("客商分类") Then '如果没有输入日期
    '    e.Cancel = True '取消保存此行
    '    MessageBox.Show("必须输入客商分类!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    '    Return
    'End If
   
    If dr("客商分类") = "客户"
        bh = "KH"
        max = DataTables("客商信息表").Compute("Max(客商编码)","客商编码 like '" & bh & "%'")
        If max > "" Then '如果存在最大客户编码
            idx = CInt(max.Substring(bh.Length+1)) + 1 '获得最大客户编码的后三位顺序号,并加1
        Else
            idx = 1 '否则顺序号等于1
        End If
        e.DataRow("客商编码") = bh & Format(idx,"000")
    End If
   
    If dr("客商分类") = "供应商"
        bh = "GYS"
        max = DataTables("客商信息表").Compute("Max(客商编码)","客商编码 like '" & bh & "%'")
        If max > "" Then '如果存在最大供应商编码
            idx = CInt(max.Substring(bh.Length+1)) + 1 '获得最大供应商编码的后三位顺序号,并加1
        Else
            idx = 1 '否则顺序号等于1
        End If
        e.DataRow("客商编码") = bh & Format(idx,"000")
    End If
   
    If dr("客商分类") = "个人"
        bh = "GR"
        max = DataTables("客商信息表").Compute("Max(客商编码)","客商编码 like '" & bh & "%'")
        If max > "" Then '如果存在最大个人编码
            idx = CInt(max.Substring(bh.Length+2)) + 1 '获得最大销售单号的后三位顺序号,并加1
        Else
            idx = 1 '否则顺序号等于1
        End If
        e.DataRow("客商编码") = bh & Format(idx,"0000")
    End If
End If

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/1/7 15:51:00 [显示全部帖子]

 例子发上来。

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/1/7 18:15:00 [显示全部帖子]

 具体什么问题？

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/1/7 19:02:00 [显示全部帖子]

全部改成

 

idx = CInt(max.Substring(bh.Length)) + 1 '获得最大个人编码的后三位顺序号,并加1
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/1/8 9:31:00 [显示全部帖子]

 截图说明什么问题。

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/1/8 10:25:00 [显示全部帖子]

 发布后才不行？核对一下你的激活码。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/1/8 10:29:00 [显示全部帖子]

以下是引用bigeng在2015-1-8 10:28:00的发言：
发布以后局域网访问，xp系统访问能够正常显示，win7系统访问就是上面情况。

 

拷贝到自己的电脑上运行啊。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  40楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/1/8 10:35:00 [显示全部帖子]

以下是引用bigeng在2015-1-8 10:34:00的发言：
局域网中的电脑访问服务器，客户端xp系统能正常访问，客户端win7系统访问显示不全。

 

拷贝项目到自己的电脑上运行啊
 回到顶部
总数 46 上一页 1 2 3 4 5 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 5 次数据查询