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

 

posted @ 2019-03-11 17:15  K.R  阅读(769)  评论(0编辑  收藏  举报