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:
@@ -10,7 +10,7 @@ Public RowNumber As Long ' 行号
|
||||
Public Module As String ' 模块
|
||||
Public code As String ' 代号
|
||||
Public Name As String ' 名称
|
||||
Public quantity As Double ' 数量
|
||||
Public Quantity As Double ' 数量
|
||||
Public SelectCondition As String ' 选择条件
|
||||
Public Remark As String ' 备注
|
||||
Public category As String ' 类别
|
||||
@@ -44,7 +44,7 @@ Public Sub LoadFromRow(ws As Worksheet, row As Long)
|
||||
Me.Module = CStr(ws.Cells(row, 2).value) ' B列: 模块
|
||||
Me.code = CStr(ws.Cells(row, 3).value) ' C列: 代号
|
||||
Me.Name = CStr(ws.Cells(row, 4).value) ' D列: 名称
|
||||
Me.quantity = CDbl(ws.Cells(row, 5).value) ' E列: 数量
|
||||
Me.Quantity = CDbl(ws.Cells(row, 5).value) ' E列: 数量
|
||||
Me.SelectCondition = CStr(ws.Cells(row, 6).value) ' F列: 选择条件
|
||||
Me.Remark = CStr(ws.Cells(row, 7).value) ' G列: 备注
|
||||
Me.category = CStr(ws.Cells(row, 8).value) ' H列: 类别
|
||||
|
||||
Reference in New Issue
Block a user