feat: add Access data integration and total queue number column
- Add new AccessDataModule for fetching data from Access database based on total queue number - Add CommandButton3_Click handler in Sheet9 for Access data fetch - Add support for new "总排号" (Total Queue Number) column at column A - Adjust all column indices to accommodate the new column (shifted by +1) - Standardize code style: Collection, Count, Quantity, ProductModel, Description - Fix inventory check result to write to correct column (F instead of E) Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
@@ -86,7 +86,7 @@ Public Function Parse(modelString As String) As Boolean
|
||||
Exit Function
|
||||
|
||||
ErrorHandler:
|
||||
pErrorMessage = "解析异常: " & Err.description
|
||||
pErrorMessage = "解析异常: " & Err.Description
|
||||
Parse = False
|
||||
End Function
|
||||
|
||||
@@ -179,7 +179,7 @@ Private Function ParseHeader() As Boolean
|
||||
Exit Function
|
||||
|
||||
ErrorHandler:
|
||||
pErrorMessage = "解析表头异常: " & Err.description
|
||||
pErrorMessage = "解析表头异常: " & Err.Description
|
||||
ParseHeader = False
|
||||
End Function
|
||||
|
||||
@@ -221,7 +221,7 @@ Private Function ExtractConnectionAndMaterial(code As String, _
|
||||
Exit Function
|
||||
|
||||
ErrorHandler:
|
||||
pErrorMessage = "提取过程连接和材质异常: " & Err.description
|
||||
pErrorMessage = "提取过程连接和材质异常: " & Err.Description
|
||||
ExtractConnectionAndMaterial = False
|
||||
End Function
|
||||
|
||||
|
||||
Reference in New Issue
Block a user