主题：[求助]SQLtable重复数据删除&数据填充

 已上传，看附件，测试有效。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:sqltable重复数据删除.table

谢谢你，我是要根据样品编号跟依据两列来合并数据的，就是当样品编号跟检测依据一样的时候，将检测项目合在一起，就
此主题相关图片如下：未命名.jpg

像这样子：

 回复楼上，弄好了。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:sqltable重复数据删除.table

你好，麻烦你再帮我看看这个哪里出问题了，在点击右边按钮”查看流转记录表“的时候会弹出

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:fqt检测信息管理系统试用版v0.5.zip

个错误提示，请问是哪里出问题了！？

还有个其他问题请问，我在主窗口的新增业务，左下角的表”委托信息.样品信息“ '填充' 数据的时候，样品出入库登记表里的数据就不会实时的更新,如果一格一格的输入就不会出现这个问题，在填充完数据之后重置列也可以解决，请问下还有其他办法来解决这个填充无法实时更新数据的问题吗？

 先说第一个问题，错误是因为没有给字符串初始值。

 Dim merge As String = ""

 第二个问题，看了很久，还是没有看明白是什么意思……

嗯，提示的问题没有了，可是弹出来的记录表比来源表少了第一条数据！

 嗯嗯，欠考虑，下面是最后的代码

Forms("检测流程流转记录表").open()
Dim bh As String = e.Form.Controls("TextBox12").Text
Dim t As Table = Tables("检测流程流转记录表_Table1")
t.Fill("select * from {检测流程流转记录表} where 委托编号 = '" & bh & "' order by 样品编号, 检测依据","FQTlxh", True)
t.SetColVisibleWidth("样品编号|70|样品名称|70|样品数量|60|检测项目|220|检测依据|150|检测部门|60|制表人|60|制表时间|70|发表时间|70|要求完成时间|70")
t.AllowEdit = True

Dim merge As String = ""
For i As Integer = 1 To t.Rows.Count - 1
    merge = merge & "," & t.Rows(i)("检测项目")
    t.Rows(i)("检测项目") = Nothing
    If t.Rows(i-1)("样品编号") <> t.Rows(i)("样品编号") OrElse t.Rows(i-1)("检测依据") <> t.Rows(i)("检测依据") Then
        merge = merge.Trim(",")
        t.Rows(i-1)("检测项目") = merge
        merge = ""
    End If
Next
merge = merge.Trim(",")
t.Rows(t.Rows.Count - 1)("检测项目") = merge

t.Filter = "检测项目 is not null"

太感谢你了~