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

String= m_BillInterface.GetFieldValue("字段名", -1, Enu_ValueType_FFLD)

-1为表索引，-1是表头，一个单据体一个索引

设置单据值

m_BillInterface.SetFieldValue "FText1", FNumber（填写的值）

这里的“FText” 并不是字段名，而是BOS表单设计中的

执行SQL语句

strSql = "select * from icmo"\sql语句
dim rs as ADODB.recordset
rs.CursorLocation = adUseClient
Set rs = m_BillInterface.K3Lib.GetData(strSql)
        If rs("FID") = 1000 Then
            MsgBox rsTemp("FID").Value, vbCritical, "金蝶提示"
            rs.Close
            Exit Sub
        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  //完毕后需要关闭数据集