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

以下是引用lxhmax在2012-9-27 11:04:00的发言：
太感谢你了~

以下是引用lin_hailun在2012-9-27 11:41:00的发言：

呵呵，楼主，看了很久，还是未明白你要表达的，还有你想达到的。

因为逻辑较为复杂，楼主最好基于例子说明问题。还有就是最好截图。

我比较蠢。

其实就是跟据一条信息拆分数据~

你这么说我可就得找洞钻啦，是我的表述不够清楚，麻烦你了~谢谢啦！
此主题相关图片如下：1.jpg

此主题相关图片如下：2.jpg


此主题相关图片如下：3.jpg

 

以下是引用lin_hailun在2012-9-27 10:50:00的发言：
 嗯嗯，欠考虑，下面是最后的代码

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"

hailun~这段代码还是有点问题，就是实现的结果是，检测项目跟检测依据错了一行的位置，就是第一行的检测项目对应到了第二行的检测依据，第二行的对应到了第三行~麻烦你再看看~谢谢啦！