MCGS 无限配方数据存储及U盘导入导出-第三集

​

数据的修改

通过在物料条形码中输入数据，然后点击表格右侧的修改图标，对条形码数据库的数据修改

DIM changeCodeNum AS STRING

DIM readLength AS INTEGER
DIM readTime AS INTEGER
DIM readMaxTime AS INTEGER
DIM readIndex AS INTEGER
DIM readString AS STRING
DIM readBuffer AS STRING
DIM readFileSize AS INTEGER
DIM wlDBCodeNUM AS INTEGER
DIM wlDBCodeNUMString AS STRING
DIM wlCodeSplitArray(5) AS STRING
DIM writeString AS STRING


changeCodeNum = 物料条形码数据库.物料条形码数据库表格.GetCellText(1,1)

IF changeCodeNum <> "" THEN

  readIndex=0
  readTime=0
  readFileSize=0
  readMaxTime=800

  readFileSize = !GetFileSize("$MCGS_DIR_USER/test/writeStr.csv")
  !FileWriteByStr("$MCGS_DIR_USER/test/writeBuffer.csv","",FILE_TRUNC,TEXT_UTF8)
  IF readFileSize > 0 THEN
    WHILE 1
      readIndex=readIndex+readLength
      readLength = !FileReadByStr("$MCGS_DIR_USER/test/writeStr.csv",readIndex,0,readBuffer,TEXT_UTF8)

      !SplitString(readBuffer,wlCodeSplitArray,",")
      wlDBCodeNUMString = wlCodeSplitArray[1]

      IF wlDBCodeNUMString = changeCodeNum THEN
        strResultRef = wlCodeSplitArray[2]
        writeString = wlDBCodeNUMString + "," + WLDBChangeCode + "\n"
        U盘状态 = "修改物料条形码号："+ wlDBCodeNUMString
      ELSE
        writeString = readBuffer
      ENDIF

      !FileWriteByStr("$MCGS_DIR_USER/test/writeBuffer.csv",writeString,FILE_APPEND,TEXT_UTF8)
    
      readTime=readTime+1
      IF readTime = readMaxTime THEN
        BREAK
      ENDIF
      IF readLength < 1 THEN
        BREAK
      ENDIF
    ENDWHILE
  ENDIF

  !FileCopy("$MCGS_DIR_USER/test/writeBuffer.csv","$MCGS_DIR_USER/test/writeStr.csv")
  !FileDelete("$MCGS_DIR_USER/test/writeBuffer.csv")
ELSE
  U盘状态 = "修改物料序号错误"
ENDIF

如果是第二行需改按钮只需要把代码中的行号改一下

changeCodeNum = 物料条形码数据库.物料条形码数据库表格.GetCellText(2,1)