dt = cmd.ExecuteReadertbd.removefor("")
'进度条相关设置-------------------------------------------------------------------↓
Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
p.Maximum = dt.DataRows.Count '设置最大值
p.Minimum = 0 '设置最小值
'查询到的数据赋值----------------------------------------------------------------
For each dr as datarow in dt.DataRows
Dim tbdr As DataRow = tbd.addnew
For Each tbc As DataCol In tbd.DataCols
tbdr(tbc.Name) = dtr(tbc.Name)
Next
'tbdr.Save
If i Mod 100 = 0 Then
p.Value = i '当前值为已经完成的行数
End If
Next
'设置数值列数字格式-------------DataTables("单位成本")如果是主表，直接在列属性设置即可，完全没有必要使用代码设置-----------------------------------------------------↓
For Each tbc1 As DataCol In tbd.DataCols
If tbc1.IsNumeric Then
tbc1.SetFormat("0.0")
End If
Next
……
加好友 
发短信
Post By：2020/7/7 21:58:00 [显示全部帖子]
