Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
p.Maximum = 1000 '设置最大值
p.Minimum = 0 '设置最小值
p.Value = 0 '设置当前值
代码段1
p.Value = 10
Application.doevents
Dim cmd As New SQLCommand
Dim dte As DataTable
DataTables("Orderlist").datarows.clear
cmd.C
Dim Cols1s() As String = {"Fshortname","FHeadSelfS0150","FNumber","F_105","FEntrySelfS0168","FAdviceConsignDate","FStockQtyOnlyForShow","FEntrySelfS0176","FInterID","FEntryID","Fauxqty","FName1","FEntrySelfS0173","FEntrySelfS0177","FEntrySelfS0179","FDate1","FAuxTaxPrice","FAllAmount","Fnumber1","FEntrySelfS0170","FEntrySelfS0169","FcommitQty","FHeadSelfS0149","Fnumber2"}
Dim Cols2s() As String = {"Endcustomer","CustomerPO","PartNo","Part","Pickupdate","ETD","stock","pos","InerId","EnterID","OrderQty","shippingterms","requestETA","confirmedETA","ETA","Orderdate","UnitPrice","OrderVolume","Currency","Project","Remark","FcommitQty","GSSAGPO","DeliveryAddress"}
cmd.CommandText = "Se lect {t_ICItemCore}.FNumber,{t_Organization}.FName,[F_105],FShortName,FHeadSelfS0150,{SEOrder}.FInterID,{SEOrderEntry}.*,{t_SubMessage}.FName,{SEOrder}.FDate,{t_Currency}.FNumber,{t_Item_3005}.*,FHeadSelfS0149 From (((((({SEOrderEntry} Inner JOIN {SEOrder} ON {SEOrder}.[FInterID] = {SEOrderEntry}.[FInterID]) Inner JOIN {t_ICItemCore} ON {t_ICItemCore}.[FItemID] = {SEOrderEntry}.[FItemID]) Inner JOIN {t_Organization} ON {t_Organization}.[FItemID] = {SEOrder}.[FHeadSelfS0151]) Inner JOIN {t_ICItemCustom} ON {t_ICItemCustom}.[FItemID] = {t_ICItemCore}.[FItemID]) Inner JOIN {t_SubMessage} ON {t_SubMessage}.[FInterID] = {SEOrderEntry}.[FEntrySelfS0175]) Inner JOIN {t_Currency} ON {t_Currency}.[FCurrencyID] = {SEOrder}.[FCurrencyID]) Left JOIN {t_Item_3005} ON {t_Item_3005}.[FItemID] = {SEOrderEntry}.[FEntrySelfS0178] Where Fcancellation = 0 and FMrpclosed = 0"
dte = cmd.ExecuteReader()
代码段2
p.Value = 200
Application.doevents
For Each dr1 As DataRow In dte.DataRows
Dim dr2 As DataRow = DataTables("Orderlist").AddNew()
For i As Integer = 0 To Cols1s.Length -1
dr2(Cols2s(i)) = dr1(Cols1s(i))
dr2 ("company") = "Manuf"
dr2("批号") ="M"& dr2("InerID") & "_" & dr2("EnterId")
Next
Next
cmd.C
Dim Cols111() As String = {"FFullNumber","FQty"}
Dim Cols222() As String = {"FFullNumber","FQty"}
cmd.CommandText ="Se lect FFullNumber,FName,FQty,FBillNo,FStatus From ({ICStockBillEntry} Inner JOIN {t_Item} ON {t_Item}.[FItemID] = {ICStockBillEntry}.[FItemID]) Inner JOIN {ICStockBill} ON {ICStockBill}.[FInterID] = {ICStockBillEntry}.[FInterID] Where {ICStockBill}.[FBillNo] like '%WIN%'and fstatus = 0"
dt = cmd.ExecuteReader()
For Each dr1 As DataRow In dt.DataRows
Dim dr2 As DataRow = DataTables("TempStock").AddNew()
For i As Integer = 0 To Cols111.Length -1
dr2(Cols222(i)) = dr1(Cols111(i))
Next
Next
Tables("TempStock").ResumeRedraw()
'DataTables.save
代码段3
.........................
加好友 
发短信
Post By：2019/8/8 9:27:00 [显示全部帖子]
