以下是引用HP002在2013-8-8 9:13:00的发言:
@有点甜,两个条件的没有问题,一个条件的怎么设计代码呢。 比如按【物料代码】汇总入库数量。这个按钮代码怎么设计
呵呵,同学,你会和并两个条件,不会合并一个条件?
If MainTable.Name = "备料跟踪登记表" Then
Dim dt_beiliao As DataTable = DataTables("备料跟踪登记表")
Dim dt_ruku As DataTable = DataTables("每日入库")
Dim datas As List(Of String) = dt_ruku.GetUniqueValues("", "物料代码")
For Each data As String In datas
Dim filter As String = "物料代码 = '" & data & "'"
Dim fdr As DataRow = dt_beiliao.Find(filter)
If fdr Is Nothing Then
fdr = dt_beiliao.AddNew
fdr("物料代码") = data
End If
fdr("入库数量") = dt_ruku.Compute("sum(入库数量)", filter)
Next
End If