【转】K/3 KIS BOS 插件入门

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  //完毕后需要关闭数据集