学步园

Const ProcName = "Command1_Click"
Dim objXLSRS As ADODB.Recordset
Dim strXLSSQL As String
Dim i As Long
Dim strSplit() As String
Dim strPLU As String
Dim strAmt As String
Dim strQty As String
Dim strLineData As String
Dim lngFreeFile As Long
Dim strInvNo As String
Dim strLastInvNo As String
Dim strCSVFile As String
Dim strDlvy As String
Dim strHeaderFile As String
Dim strBuyerID As String
Dim strPKLineData As String
Dim strPKFile As String
Dim objFSO As New FileSystemObject
Dim strShortFilename As String
Dim strWebID As String
Dim lngClientID As Long
Dim strInvAmt As String
Dim strInvStatus As String
Dim strFilePath As String
Dim strArray(50) As String
Dim j As Integer
Dim strFillLine As String
Dim strMSSQL As String
Dim objMSRS As ADODB.Recordset
Dim blnRet As Boolean
Dim blnCheckDup As Boolean
On Error GoTo ErrHandler
            CommonDialog1.ShowOpen
            strFilePath = CommonDialog1.FileName
            Set objMSRS = New ADODB.Recordset
            Set objXLSRS = New ADODB.Recordset
              OpenXLSConn strFilePath
              strXLSSQL = "Select * From [Items$]"
              objXLSRS.CursorLocation = adUseClient
              objXLSRS.Open strXLSSQL, objXLSConn, adOpenStatic
               CreateSQLConn
               While Not objXLSRS.EOF
               strMSSQL = "Select * From tblItemmas Where PLU = '" & Trim(objXLSRS(0)) & "'"
               objMSRS.CursorLocation = adUseClient
               objMSRS.Open strMSSQL, objSQLConn, 1, 3
              
              If Not objMSRS.EOF And Not objMSRS.BOF Then
             blnCheckDup = True
             Else
             objMSRS.AddNew
             End If
               
                  objMSRS("PLU") = Trim(NullToValue(objXLSRS(0), ""))
                  objMSRS("Desci") = NullToValue(objXLSRS(1), "")
                  objMSRS("LongDesci") = NullToValue(objXLSRS(2), "")
                  objMSRS("Group0") = NullToValue(objXLSRS(3), "")
                  objMSRS("Group1") = NullToValue(objXLSRS(4), "")
                  objMSRS("Group2") = NullToValue(objXLSRS(5), "")
                  objMSRS("SuppCode") = NullToValue(objXLSRS(6), "")
                  objMSRS("Weight") = NullToValue(objXLSRS(43), "")
                  objMSRS("Volumne") = NullToValue(objXLSRS(40), "")
                  objMSRS("ExtCS") = NullToValue(objXLSRS(41), "")
                  objMSRS("ExtInfo2") = NullToValue(objXLSRS(12), "")
'=============================增加货品资料 czf 2013 10 23============================================
                    objMSRS("PLong") = NullToValue(objXLSRS(14), "")
                    objMSRS("TaxName") = NullToValue(objXLSRS(21), "")
                    objMSRS("PWidth") = NullToValue(objXLSRS(15), "")
                    objMSRS("PHeight") = NullToValue(objXLSRS(16), "")
                    objMSRS("PVolume") = NullToValue(objXLSRS(17), "")
                    objMSRS("OldPlu") = NullToValue(objXLSRS(18), "")
                    objMSRS("Pcs") = NullToValue(objXLSRS(19), "")
                    objMSRS("TaxCode") = NullToValue(objXLSRS(20), "")
                    objMSRS("BrandOfCountry") = NullToValue(objXLSRS(22), "")
                    objMSRS("Place") = NullToValue(objXLSRS(23), "")
                    objMSRS("Status") = NullToValue(objXLSRS(24), "")
                    objMSRS("LowPrice") = NullToValue(objXLSRS(25), "")
                    objMSRS("Customs") = NullToValue(objXLSRS(39), "")
                    objMSRS("ImageCode") = NullToValue(objXLSRS(28), "")
                    objMSRS("Introduction") = NullToValue(objXLSRS(29), "")
                    objMSRS("Tariff") = NullToValue(objXLSRS(30), "")
                    objMSRS("Vat") = NullToValue(objXLSRS(31), "")
                    objMSRS("OtherCost") = NullToValue(objXLSRS(32), "")
                    objMSRS("ImportCost") = NullToValue(objXLSRS(33), "")
                    objMSRS("Category") = NullToValue(objXLSRS(34), "")
                    objMSRS("SubCategory") = NullToValue(objXLSRS(35), "")
                    objMSRS("SubSubCategory") = NullToValue(objXLSRS(36), "")
                    objMSRS("Currency") = NullToValue(objXLSRS(37), "")
                    objMSRS("CurrencyWS") = NullToValue(objXLSRS(38), "")
                    objMSRS("UpdateBy") = gbUID
 '=============================增加货品资料结束 czf 2013 10 23============================================
                    objMSRS("UpdateDate") = Now
                    objMSRS.Update
                    objMSRS.Close
                    objXLSRS.MoveNext
                    Wend
                    CloseSQLConn
                    Set objXLSRS = Nothing
                    CloseXLSConn