bos插件开发

  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)