新增文章

文章标题分类内容

Private Sub aFill()

Dim oHeads As K3ClassEvents.BillHeads:   Set oHeads = m_BillInterface.BillHeads
    Dim oHead As K3ClassEvents.BillHead:     Set oHead = oHeads(1)
    
    Dim oEntrys As K3ClassEvents.BillEntrys: Set oEntrys = m_BillInterface.BillEntrys
    Dim oEntry As K3ClassEvents.BillEntry:   Set oEntry = oEntrys(1)
    
    
    Dim oFields As K3ClassEvents.BOSFields:  Set oFields = oHead.BOSFields
    Dim oField As K3ClassEvents.BOSField:    Set oField = oFields("FNOTE")  '【FNOTE 备注】
    
    With oField
        .Value = "单元格被锁定了"   '修改值
        .FieldLock = True           '锁定字段
    End With
    
    
    Set oFields = oEntry.BOSFields:  Set oField = oFields("FBase4")  '【FBase4 物料】
    With oField
        .Number = "1.01.001"    '修改值
    End With
    
    Set oHeads = Nothing
    Set oHead = Nothing
    Set oEntrys = Nothing
    Set oEntry = Nothing
    Set oFields = Nothing
    Set oField = Nothing
    
    m_BillInterface.SetFieldValue "FQty", 20, 1  '第1行 FQty = 20
    
    m_BillInterface.InsertNewRowAndFill 2, 2, "FPrice", 6.35  '在 page2 第2行之前 插入行 FPrice = 6.35
    
    m_BillInterface.InsertNewRowAndFill 2, 1, "FBase4", "1.01.100-0088-002", "FQty", 40, "FPrice", 2.65   '在 page2 第1行之前 插入行
        
End Sub