第一个问题：Datatables("xxx").DataRows.Clear
第二个问题：排除重复行，修改一下sql语句；或者是用find方法。（下面使用find方法）
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT * From {库存明细} a Where 工程简称 = '" & QJDM工程简称 & "' And 工程简称 = Order By 录入时间 Desc"
Dim Cols1() As String = {"工程简称","材料类别","二级类别","材料名称","品牌","型号","规格","色号","单位","单价","库存数量","录入时间"}
Dim Cols2() As String = {"工程简称","材料类别","二级类别","材料名称","品牌","型号","规格","色号","单位","单价","库存数量","录入时间"}
dt = cmd.ExecuteReader()
For Each dr1 As DataRow In dt.DataRows
if DataTables("实时库存").Find("工程简称 = '" & dr1("工程简称") & "' And 材料类别 = '" & dr1("材料类别") & "'") Is nothing Then
Dim dr2 As DataRow = DataTables("实时库存").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
End If
Next
[此贴子已经被作者于2012-12-24 16:04:52编辑过]
加好友 
发短信
Post By：2012/12/24 15:06:00 [显示全部帖子]
