在這個ERP系統中要把表單頭和表單身在數據庫中分開保存注意在這個ERP系統中要把表單頭和表單身在數據庫中分開保存你問為什么？當然是讓數據庫的單個表數據量小一點C/S結構中數據流量小一點（數據庫我沒有做任何觸發器圖省事了）表單頭和表單身在數據庫中分開保存互相之間的聯系就是表單號字段下面繼續以13樓的form_dd做例子先說formdd_load的源程序Me.Left=(Screen.Width-Me.Width)/2Me.Top=(Screen.Height-Me.Height)/2‘這一段是讓你的程序窗口顯示在屏幕中間Text7.Visible=FalseCommand1.Enabled=FalseAdodc1.Visible=FalseAdodc2.Visible=FalseLabel14.Visible=FalseLabel21.Visible=FalseLabel22.Visible=FalseLabel15.Caption=userCommand13.Visible=FalseCommand5.Visible=FalseCombo2.Text=""Combo2.Visible=FalseDT1.Value=DateDT2.Value=Date+14 ’此處默認交貨期為訂單日延后14天Label16.Caption="CO"&Format(Now,"YYMMDD")&Format(Time,"HHMMSS")‘最偷懶的訂單號自動生成辦法是C0+年月日+時分秒呵呵呵呵Text4.Text=""Label11.Caption=""Label12.Caption=""Label18.Caption=""Label23.Caption=""Combo1.Text=""Adodc1.ConnectionString=db'把所有客戶添加到COMBO1ADODC來連接數據庫DB已經在公用模塊中聲明了Adodc1.RecordSource="select客戶名稱fromtb_kh"Adodc1.RefreshX=Adodc1.Recordset.RecordCountIfX>0ThenFori=1ToXCombo1.AddItem(Adodc1.Recordset.Fields("客戶名稱"))Ifi<XThenAdodc1.Recordset.MoveNextNextEndIfMS1.Row=1’給MSFLEXGRID控件初始化MS1.Col=1MS1.Cols=15MS1.ColWidth(0)=12*25*1.5'設置單元格格式,MS1.ColWidth(1)=12*25*4MS1.ColWidth(2)=12*25*5MS1.ColWidth(3)=12*25*4MS1.ColWidth(4)=12*25*3MS1.ColWidth(5)=12*25*2.5MS1.ColWidth(6)=12*25*2MS1.ColWidth(7)=12*25*3MS1.ColWidth(8)=12*25*3MS1.ColWidth(9)=12*25*3MS1.ColWidth(10)=12*25*2MS1.ColWidth(11)=12*25*2MS1.ColWidth(12)=12*25*2.5MS1.ColWidth(13)=12*25*2.5MS1.ColWidth(14)=12*25*10MS1.FixedRows=1:MS1.FixedCols=1MS1.TextMatrix(0,0)="序號"MS1.TextMatrix(0,1MS1.TextMatrix(0,2MS1.TextMatrix(0,3MS1.TextMatrix(0,4KW"MS1.TextMatrix(0,6,7mm"MS1.TextMatrix(0,8mm"MS1.TextMatrix(0,9)="包裝"MS1.TextMatrix(0,10)="數量"MS1.TextMatrix(0,11)="單位"MS1.TextMatrix(0,12)="單價"MS1.TextMatrix(0,13)="小計"MS1.TextMatrix(0,14)="序列號"Fori=1To10 呵呵給每一個MS110行MS1.TextMatrix(i,0)=iNextCombo2.Width=MS1.CellWidth 讓COMBO2MSFLEXDRIDCombo2.Left=MS1.CellLeft+MS1.Left=MS1.CellTop+Text7.Text=""'在msflexgrid上搞個TEXT奶奶的想了很久個破MSFLEXGRID只讀個毛SHITText7.WidthMS1.CellHeight

= MS1.CellWidth: Text7.Height =Text7.Left=MS