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