您的位置:首页 > 其它

bos插件开发

2009-04-15 17:32 183 查看
Dim WlDm As Integer
Dim WL As String
'*******************************
Dim JhyDm As Integer
Dim Jhy As String

On Error Resume Next
WlDm = m_BillInterface.GetFieldValue("FBase")
JhyDm = m_BillInterface.GetFieldValue("FBase1")
sqlStr = "update t_icitem set FPlanner='" & JhyDm & "' where fitemid='" & WlDm & "'"
m_BillInterface.K3Lib.UpdateData (sqlStr)
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: