老單據如何插入多行值
阿新 • • 發佈:2019-01-27
While Not rs.EOF
'填充對應的行
With m_BillTransfer
'如果超過兩行以上的值,需要先用
.BillForm.InsertRow
'插入一行
.SetGridText LRow, dicFieldEntry("FItemID"), rs("FNumber")
.SetGridText LRow, dicFieldEntry("FAuxQtyMust"), Val(rs("FQty") & "")
.SetGridText LRow, dicFieldEntry("Fauxqty"), Val(rs("FQty") & "")
End With
LRow = LRow + 1
rs.moveNext
Wend
說明:
m_BillTransfer.BillForm.vsentrys.InsertRows 2, 1 "在第2行後插入1行
m_BillTransfer.BillForm.copyrow 2, 3 "把第2行資料複製到第3行
m_BillTransfer.BillForm.delRow 3"刪除第3行
幾個相關函式說明:
1. m_BillInterFace.BillForm.addrow 2, 3 : 從第2行開始, 增加3行;
2. m_BillInterFace.SetGridText(Row, Col , Value): 給第Row行, 第Col列賦值Value;
3. m_BillInterface.BillFrom.maxentry : 返回當前單據
另外,給查詢型別欄位賦值,請參考如下示例程式碼:
Dim EntryCtl As Variant
EntryCtl = m_BillTransfer.EntryCtl
EntryCtl(列序號).DInterID(行序號) = 內碼
EntryCtl(列序號).DNumber(行序號) = 程式碼
EntryCtl(列序號).DName(行序號) = 名稱
m_BillTransfer.EntryCtl = EntryCtl
m_BillTransfer.SetGridText 行序號, 列序號, 名稱