网格控件添加数据

Dim sItemClass As String
Dim sItemClassDesc As String

bLockGenButton = True
grdInput.removeAll

Do While Not rsM.EOF

sItemClass = GetItemClass(Trim(rsM!SF_D1_ITEMNO_C & ""), sItemClassDesc)

sAddItem = sAddItem & Trim(rsM!SF_D1_CUSTPONO_C & "") & vbTab
sAddItem = sAddItem & Trim(rsM!SF_D1_POLINENO_C & "") & vbTab
sAddItem = sAddItem & Trim(rsM!SF_D1_CUSTOMERITEMNO_C & "") & vbTab
sAddItem = sAddItem & Trim(rsM!SF_D1_ITEMNO_C & "") & vbTab
sAddItem = sAddItem & Trim(IIf(Key = 1, rsM!ITM_M_ITEMDESCE_NV & "", rsM!ITM_M_ITEMDESCC_NV & "")) & vbTab


'sAddItem = sAddItem & Trim(rsM!ITM_M_UDF8_NV & "") & vbTab 'Trim(IIf(Key = 1, rsM!SYS_PAR_VALUEE_NV & "", rsM!SYS_PAR_VALUEC_NV & "")) & vbTab

sAddItem = sAddItem & sItemClassDesc & vbTab

sAddItem = sAddItem & MFGMainShow.MFGFormatNumber(Val(rsM!SF_D1_QTYONHAND_N & "")) & vbTab
sAddItem = sAddItem & MFGMainShow.MFGFormatDate(rsM!SF_D1_REQUIREDDATE_D & "") & vbTab
sAddItem = sAddItem & MFGMainShow.MFGFormatNumber(Val(rsM!SF_D1_REQUIREDQTY_N & "")) & vbTab

' sAddItem = sAddItem & Trim(IIf(Key = 1, rsM!ITM_DD_CAT1DESCE_NV & "", rsM!ITM_DD_CAT1DESCC_NV & "")) & vbTab

sAddItem = sAddItem & IIf(Key = 1, rsM!forecastClassE & "", rsM!forecastClassC & "") & vbTab 'Item Class


'modify on 06-09-29
If nType = 3 Then
sAddItem = sAddItem & "-1" & vbTab
bLockGenButton = False
Else
sAddItem = sAddItem & rsM!SF_D1_SELECTED_B & vbTab
If bLockGenButton And (Trim(rsM!SF_D1_SELECTED_B & "") = False Or Trim(rsM!SF_D1_FONO_C & "") <> "") Then
bLockGenButton = False
End If
End If


sAddItem = sAddItem & "" & vbTab 'rsM!ITM_M_ITEMCLASS_NC & "" & vbTab
sAddItem = sAddItem & rsM!SF_D1_FORECASTTYPE_C & "" & vbTab

'add on 06-09-26
sAddItem = sAddItem & rsM!SF_D1_REQUIREDDATE2_D & "" & vbTab

sAddItem = sAddItem & rsM!SF_D1_BUYER_NV & "" & vbTab
sAddItem = sAddItem & rsM!SF_D1_BUYERCONTACT_NV & "" & vbTab
sAddItem = sAddItem & "" & vbTab
sAddItem = sAddItem & rsM!SF_D1_REMARK_NV & "" & vbTab
sAddItem = sAddItem & rsM!SF_D1_CUMULATIVEQTY_N & "" & vbTab

sAddItem = sAddItem & MFGMainShow.MFGFormatDate(rsM!SF_D1_CUMULATIVEDATEFROM_D & "") & vbTab
sAddItem = sAddItem & MFGMainShow.MFGFormatDate(rsM!SF_D1_CUMULATIVEDATETO_D & "") & vbTab

sAddItem = sAddItem & rsM!SF_D1_FONO_C & "" & vbTab

sAddItem = sAddItem & GetUOMDesc(Trim(rsM!SF_D1_ITEMUOM_C & "")) & vbTab
sAddItem = sAddItem & Trim(rsM!SF_D1_ITEMUOM_C & "") & vbTab

sAddItem = sAddItem & MFGMainShow.MFGFormatNumber(Trim(rsM!SF_D1_CUSTWH_N & "")) & vbTab

sAddItem = sAddItem & Trim(rsM!SF_D1_LOCAION_C & "") & vbTab
sAddItem = sAddItem & Trim(rsM!SF_D1_LASTDNNO_C & "") & vbTab
sAddItem = sAddItem & MFGMainShow.MFGFormatDate(rsM!SF_D1_LASTDNDATE_D & "") & vbTab
sAddItem = sAddItem & MFGMainShow.MFGFormatNumber(rsM!SF_D1_LASTDNQTY_N & "") & vbTab
sAddItem = sAddItem & GetUOMDesc(Trim(rsM!SF_D1_LASTDNQTYUOM_C & "")) & vbTab
sAddItem = sAddItem & Trim(rsM!SF_D1_LASTDNQTYUOM_C & "") & vbTab

If lblStatus.Tag = "1" Or lblStatus.Tag = "" Then
sAddItem = sAddItem & "" & vbTab
Else
sAddItem = sAddItem & rsM!SF_D1_SELECTED_B & vbTab 'GenStatus
End If

sAddItem = sAddItem & Trim(rsM!SF_D1_SEQNO_N & "") & vbTab

grdInput.AddItem sAddItem '表格中插入数据

rsM.MoveNext
sAddItem = ""
Loop