Dim dt2 As DataTable = DataTables("部门损益总账")
Dim kms As List(of String())
kms = dt2.GetValues("所属单位|科目编号|科目名称|部门名称")
Dim min As Date = dt2.Compute("min(所属日期)")
Dim max As Date = dt2.Compute("max(所属日期)")
Dim sd As Date = min
Do While Format(sd, "yyyyMM") <= Format(max, "yyyyMM")
For i As Integer = 0 To kms.Count - 1
Dim s = String.Format("所属单位='{0}' and 科目编号='{1}' and 科目名称='{2}' and 部门名称='{3}' and 所属日期=#{4}#",kms(i)(0),kms(i)(1),kms(i)(2),kms(i)(3),sd)
If dt2.Find(s) Is Nothing Then
msgbox(s)
Dim ndr As DataRow = dt2.AddNew
ndr("所属单位") = kms(i)(0)
ndr("科目编号") = kms(i)(1)
ndr("科目名称") = kms(i)(2)
ndr("部门名称") = kms(i)(3)
ndr("所属日期") = sd
End If
Next
sd = sd.AddMonths(1)
Loop