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


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

主题:关于数据入库问题

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


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
  发帖心情 Post By:2017/10/4 15:56:00 [显示全部帖子]

我查了半天查不出来哪错了,麻烦看看哪的问题

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


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
  发帖心情 Post By:2017/10/4 18:02:00 [显示全部帖子]

看了好几遍也没看出我的代码哪有问题呀!

 回到顶部
帅哥哟,离线,有人找我吗?
peibaomin
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

 回到顶部