第一个问题: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编辑过]