Dim Result As DialogResult
Result = MessageBox.Show("是否要执行此操作", "提示", MessageBoxButtons.YesNo)
If Result = DialogResult.No Then
Return
Else
Dim t1 As Table = Tables("A")
Dim mdbm As String
If InputValue(mdbm, "编码输入","可以输入多个编码,用逗号进行分隔如:1001,1005,1008") Then
Dim Parts() As String = mdbm.Split(",")
If t1.Current Is Nothing Then Return
If t1.TopPosition < 0 Then Return '如果选定区域不包括数据行
Dim it As Win.Data.ITable = SYS.Tables(t1.Name)
For i As Integer = it.TopRow To it.BottomRow
Dim r As Win.Data.IRow = it.Rows(i)
If r.Visible = False Then Continue For
If r.IsNull("月份")= True Then Continue For
For Each nm As String In Parts
Dim dr1 As Row = t1.AddNew
For Each c As Col In t1.Cols
If c.name = "任务一_完成率" orelse c.name = "名称" Then Continue For
dr1(c.name) = r(c.name)
'messagebox.show(r(c.name))
dr1("编码") = nm
dr1("取值结果") = nothing
dr1("计算结果") = nothing
Next
Next
Next
End If
End If
MessageBox.Show("执行完毕,请检查是否有错误!", "提示")