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


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

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


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/10/5 8:24:00 [只看该作者]

蓝老师我怎么修改呢?
[此贴子已经被作者于2017/10/5 8:33:27编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105926 积分：538693 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/10/5 9:20:00 [只看该作者]

先明确理清自己的逻辑，画个流程图搞清楚逻辑的走向。

重复的代码建议提取到函数中执行
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/10/5 11:04:00 [只看该作者]

一个下拉窗体（入库商户选择）
经过测试出现以下错误，调试好长时间也调试不好麻烦蓝老师给看看
一、"POS机绑定商户历史记录表"添加数据时本来“历史绑定商户ID”是自动编号的，现在为什么第一次、第三次、第五等奇数时能够编号，第二次、第四次、第六次等偶数时不能能够编号。

二、在商户资料表中绑定机具时出现一下问题:
1、 第一次绑定机具时 在"POS机绑定商户历史记录表"添加记录时“商户名称”、“客户姓名”不赋值，
2、如果选择其他商户选择已经绑定的机具时，在"POS机绑定商户历史记录表"添加记录时，添加的是一条解绑的数据不是绑定新的商户数据。

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

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




[此贴子已经被作者于2017/10/5 11:22:32编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105926 积分：538693 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/10/5 11:32:00 [只看该作者]

1、看不懂你的逻辑，业务逻辑的处理请自力更生。

2、商户资料表本来就没有“商户名称”、“客户姓名”的值

代码臃肿自己都搞不明白的：
1、减少一个事件能做的事情，减少代码量
2、清除这个事件所有代码，先完成一个功能测试没有问题，再添加另一个功能
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/10/5 11:40:00 [只看该作者]

除了这些其他功能都正常,
都是一环套一环没法改一改其他功能就不正常了,我正不知道修改哪里,麻烦您给看看该修改哪呢？
[此贴子已经被作者于2017/10/5 11:55:02编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
peibaomin
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：465 积分：3216 威望：0 精华：0 注册：2017/4/18 1:15:00 		  发帖心情 Post By：2017/10/5 15:05:00 [只看该作者]

一、我在 "POS机绑定商户历史记录表"的 DataRowAdded事件中写了如下代码：在运行时出现如下错误：
"POS机绑定商户历史记录表"添加数据时本来“历史绑定商户ID”是自动编号的，现在为什么第一次、第三次、第五等奇数时能够编号，第二次、第四次、第六次等偶数时不能能够编号。是哪的原因？
Dim dt As DataTable = DataTables("POS机绑定商户历史记录表")
Dim max  As  String
Dim idx  As  Integer
max = dt.Compute("Max(历史绑定商户ID)","历史绑定商户ID like 'LLK%'")
If max > ""  Then  '如果存在最大编号
    idx = CInt(max.SubString(6)) + 1  '获得最大编号的后三位顺序号,并加1
Else
    idx = 1  '否则顺序号等于1
End  If
For Each dr As DataRow In dt.Select("历史绑定商户ID is null")
    Dim str As String = "LSBDSH" & Format(idx,"000000")
    Dim fdr As DataRow = dt.find("历史绑定商户ID = '" & str & "'")
    If fdr Is Nothing
        dr("历史绑定商户ID") = str
    End If
    idx += 1
Next
 
 
 
 

图片点击可在新窗口打开查看此主题相关图片如下：3456.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2017/10/5 15:07:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
peibaomin
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：465 积分：3216 威望：0 精华：0 注册：2017/4/18 1:15:00 		  发帖心情 Post By：2017/10/5 15:13:00 [只看该作者]

别的问题已经解决谢谢蓝老师

 

就是还有以下问题没解决

 

一、我在 "POS机绑定商户历史记录表"的 DataRowAdded事件中写了如下代码：在运行时出现如下错误：
"POS机绑定商户历史记录表"添加数据时本来“历史绑定商户ID”是自动编号的，现在为什么第一次、第三次、第五等奇数时能够编号，第二次、第四次、第六次等偶数时不能能够编号。是哪的原因？
Dim dt As DataTable = DataTables("POS机绑定商户历史记录表")
Dim max  As  String
Dim idx  As  Integer
max = dt.Compute("Max(历史绑定商户ID)","历史绑定商户ID like 'LLK%'")
If max > ""  Then  '如果存在最大编号
    idx = CInt(max.SubString(6)) + 1  '获得最大编号的后三位顺序号,并加1
Else
    idx = 1  '否则顺序号等于1
End  If
For Each dr As DataRow In dt.Select("历史绑定商户ID is null")
    Dim str As String = "LSBDSH" & Format(idx,"000000")
    Dim fdr As DataRow = dt.find("历史绑定商户ID = '" & str & "'")
    If fdr Is Nothing
        dr("历史绑定商户ID") = str
    End If
    idx += 1
Next
 
 
 
 


图片点击可在新窗口打开查看此主题相关图片如下：3456.jpg
图片点击可在新窗口打开查看

 


 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:录像9.rar

[此贴子已经被作者于2017/10/5 15:22:56编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105926 积分：538693 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/10/5 15:28:00 [只看该作者]

历史绑定商户ID like 'LLK%'"   -- 这个是干嘛用的？


代码放到datarowadding事件

Dim max  As  String
Dim idx  As  Integer
max = e.DataTable.Compute("Max(历史绑定商户ID)")
If max > ""  Then  '如果存在最大编号
    idx = CInt(max.SubString(6)) + 1  '获得最大编号的后三位顺序号,并加1
Else
    idx = 1  '否则顺序号等于1
End  If

e.DataRow("历史绑定商户ID") = "LSBDSH" & Format(idx,"000000")
 回到顶部
总数 28 上一页 1 2 3
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05273 秒, 6 次数据查询