String= m_BillInterface.GetFieldValue("字段名", -1, Enu_ValueType_FFLD)
-1为表索引，-1是表头，一个单据体一个索引
设置单据值
m_BillInterface.SetFieldValue "FText1", FNumber（填写的值）
这里的“FText” 并不是字段名，而是BOS表单设计中的
执行SQL语句
1 strSql = "select * from icmo"\\sql语句 2 dim rs as ADODB.recordset 3 rs.CursorLocation = adUseClient 4 Set rs = m_BillInterface.K3Lib.GetData(strSql) 5 If rs("FID") = 1000 Then 6 MsgBox rsTemp("FID").Value, vbCritical, "金蝶提示" 7 rs.Close 8 Exit Sub 9 End If
遍历查询出来的数据集rs，然后逐行插入
rs.MoveFirst For i = 1 To rs.RecordCount m_BillInterface.InsertNewRowAndFill 4, i, "FText2", rs("FName").Value //这里来的4 是索引第四个单据体，i 是? rs.MoveNext Next i rs.Close //完毕后需要关闭数据集
原文：https://www.cnblogs.com/K-R-/p/10511844.html