K3Wise 老单循环单据体

Private Function init()
For i = 0 To UBound(m_BillTransfer.HeadCtl)
If InStr(m_BillTransfer.HeadCtl(i).Caption, "销售金额合计") > 0 Then
XSJEHJIndex = i
End If
If InStr(m_BillTransfer.HeadCtl(i).Caption, "费用合计") > 0 Then
FYHJIndex = i
End If
If InStr(m_BillTransfer.HeadCtl(i).Caption, "成本金额合计") > 0 Then
CBJEHJIndex = i
End If
If InStr(m_BillTransfer.HeadCtl(i).Caption, "净利润") > 0 Then
JLRIndex = i
End If
If InStr(m_BillTransfer.HeadCtl(i).Caption, "客户订单编号") > 0 Then
KHDDBHIndex = i
End If
Next i
For i = 1 To UBound(m_BillTransfer.EntryCtl)
If m_BillTransfer.EntryCtl(i).HeadCaption = "产品代码" Then
WLBMIndex = i
End If
If m_BillTransfer.EntryCtl(i).HeadCaption = "辅助属性" Then
FZSXIndex = i
End If
If m_BillTransfer.EntryCtl(i).HeadCaption = "数量" Then
SLIndex = i
End If
If m_BillTransfer.EntryCtl(i).HeadCaption = "本位币" Then
JEIndex = i
End If
If m_BillTransfer.EntryCtl(i).HeadCaption = "成本单价" Then
CBDJIndex = i
End If
If m_BillTransfer.EntryCtl(i).HeadCaption = "成本金额" Then
CBJEIndex = i
End If
If m_BillTransfer.EntryCtl(i).HeadCaption = "毛利" Then
MLIndex = i
End If
Next i
End Function

Fbillno = m_BillTransfer.GetHeadText(KHDDBHIndex)
Fauxpro = m_BillTransfer.GetGridText(Row, FZSXIndex)

 

For Row = 1 To UBound(m_BillTransfer.EntryCtl(2).DInterID)
m_BillTransfer.SetGridText Row, ClassIndex, FLingLiaoNu
Next Row