Foxtable(狐表)用户栏目专家坐堂 → [求助]


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

主题:[求助]

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


加好友 发短信
等级:婴狐 帖子:42 积分:391 威望:0 精华:0 注册:2016/7/25 17:51:00
[求助]  发帖心情 Post By:2016/10/18 16:43:00 [只看该作者]

.NET Framework 版本:2.0.50727.8689
Foxtable 版本:2016.7.29.1
错误所在事件:项目,AfterOpenProject
详细错误信息:
已添加了具有相同键的项。

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


加好友 发短信
等级:超级版主 帖子:107304 积分:545781 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/18 16:57:00 [只看该作者]

错误所在事件:项目,AfterOpenProject

代码放出来

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


加好友 发短信
等级:婴狐 帖子:42 积分:391 威望:0 精华:0 注册:2016/7/25 17:51:00
  发帖心情 Post By:2016/10/18 17:01:00 [只看该作者]

代码怎么发不了呢?


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


加好友 发短信
等级:超级版主 帖子:107304 积分:545781 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/18 17:11:00 [只看该作者]


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


加好友 发短信
等级:婴狐 帖子:42 积分:391 威望:0 精华:0 注册:2016/7/25 17:51:00
  发帖心情 Post By:2016/10/18 17:20:00 [只看该作者]

Dim dtb03 As DataTable
Dim dtc02 As DataTable
Dim cmdb03 As New SQLCommand
Dim cmdc02 As New SQLCommand
cmdb03.C
cmdc02.C
cmdb03.CommandText = "Select 前缀, Max(项目财务ID) As 项目财务ID Fr om {B03_项目信息} Group By 前缀"
cmdc02.CommandText = "Select 前缀, Max(收据ID) As 收据ID Fr om {C02_业务收支} Group By 前缀"
dtb03 = cmdb03.ExecuteReader
dtc02 = cmdc02.ExecuteReader
b03bhs.Clear()
For Each drb03 As DataRow In dtb03.DataRows
    Dim qz1 As String = drb03("前缀") '编号前缀
    Dim bh1 As String =  drb03("项目财务ID")
    Dim id1 As Integer
    If bh1.Length = 12 Then
        bh1 = bh1.SubString(7)
        If Integer.TryParse(bh1,id1) Then
            b03bhs.Add(qz1, id1)
        End If
    End If
Next
c02bhs.Clear()
For Each drc02 As DataRow In dtc02.DataRows
    Dim qz2 As String = drc02("前缀") '编号前缀
    Dim bh2 As String =  drc02("收据ID")
    Dim id2 As Integer
    If bh2.Length = 12 Then
        bh2 = bh2.SubString(7)
        If Integer.TryParse(bh2,id2) Then
            b03bhs.Add(qz2, id2)
        End If
    End If
Next

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


加好友 发短信
等级:超级版主 帖子:107304 积分:545781 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/18 17:34:00 [只看该作者]

表{B03_项目信息}和 {C02_业务收支} 有重复的前缀

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


加好友 发短信
等级:婴狐 帖子:42 积分:391 威望:0 精华:0 注册:2016/7/25 17:51:00
  发帖心情 Post By:2016/10/18 18:05:00 [只看该作者]

是不是改了列名就可以了?


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


加好友 发短信
等级:婴狐 帖子:42 积分:391 威望:0 精华:0 注册:2016/7/25 17:51:00
  发帖心情 Post By:2016/10/18 18:06:00 [只看该作者]

我把列名改过,还是同样的报错。


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


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

跟列名没有关系的,是这2列里面存储的数据有重复项

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


加好友 发短信
等级:婴狐 帖子:42 积分:391 威望:0 精华:0 注册:2016/7/25 17:51:00
  发帖心情 Post By:2016/10/18 20:18:00 [只看该作者]

改成下面这样,还是同样的报错:
Dim dtb03 As DataTable
Dim dtc02 As DataTable
Dim cmdb03 As New SQLCommand
Dim cmdc02 As New SQLCommand
cmdb03.C
cmdc02.C
cmdb03.CommandText = "Select 前缀B03, Max(项目财务ID) As 项目财务ID Fr om {B03_项目信息} Group By 前缀B03"
cmdc02.CommandText = "Select 前缀C02, Max(收据ID) As 收据ID Fr om {C02_业务收支} Group By 前缀C02"
dtb03 = cmdb03.ExecuteReader
dtc02 = cmdc02.ExecuteReader
b03bhs.Clear()
For Each drb03 As DataRow In dtb03.DataRows
    Dim qz1 As String = drb03("前缀B03") '编号前缀
    Dim bh1 As String =  drb03("项目财务ID")
    Dim id1 As Integer
    If bh1.Length = 12 Then
        bh1 = bh1.SubString(7)
        If Integer.TryParse(bh1,id1) Then
            b03bhs.Add(qz1, id1)
        End If
    End If
Next
c02bhs.Clear()
For Each drc02 As DataRow In dtc02.DataRows
    Dim qz2 As String = drc02("前缀C02") '编号前缀
    Dim bh2 As String =  drc02("收据ID")
    Dim id2 As Integer
    If bh2.Length = 12 Then
        bh2 = bh2.SubString(7)
        If Integer.TryParse(bh2,id2) Then
            b03bhs.Add(qz2, id2)
        End If
    End If
Next

 回到顶部
总数 13 1 2 下一页