获取单据值
String= m_BillInterface.GetFieldValue("字段名", -1, Enu_ValueType_FFLD)
–这里的-1为表索引,-1是表头,一个单据体一个索引
设置单据值
m_BillInterface.SetFieldValue "FText", strICMONumber(填写的值)
–这里的“FText” 并不是字段名,而是
存储数据集
strSql = "EXEC STKD_P_Position"\\sql语句rsTemp.CursorLocation = adUseClientSet rsTemp = m_BillInterface.K3Lib.GetData(strSql)If rsTemp("FID") = 1000 ThenMsgBox rsTemp("FID").Value, vbCritical, "金蝶提示"rsTemp.CloseExit SubEnd If\\rsTemp("FID") 列值
遍历数据集,然后逐行插入
rsTemp.MoveFirstFor i = 1 To rsTemp.RecordCountm_BillInterface.InsertNewRowAndFill 4, i, "FText2", rsTemp("FName").Value//这里来的4 是索引第四个单据体,i 暂时未知何意rsTemp.MoveNextNext irsTemp.Close //完毕后需要关闭数据集
找不到插件错误:
或者是插件没注册:
处理方法:cmd-regsvr32 插件绝对地址