- 博客(4)
- 收藏
- 关注
原创 金蝶WISE弹出框显示单据并返回被选单据
'当单机头触发点击事件时,显示 ClassTypeID=200000005 的单据,并返回选中的单据信息Private Sub m_BillInterface_HeadCtlClick(ByVal ctl As Object, ByVal dctHead As KFO.IDictionary) Dim oDataSrv As Object Dim objLookup As Ob...
2018-09-15 15:19:19
1448
1
转载 金蝶K/3 查询SQL及单据显示
Private Sub viewContract(ByVal strContractID As String) Dim objLookup As Object Dim obj As Object Dim dFilter As KFO.Dictionary Dim rs As ADODB.Recordset Dim oDataSrv As Object ...
2018-09-14 11:00:44
3172
1
原创 金蝶K/3插件 - 单个单据显示
Private Sub viewBill(ByVal BillTYPE As Long, ByVal lBillID As Long)Dim oBj As ObjectDim oDataSrv As ObjectOn Error GoTo CatchSet oDataSrv = m_BillInterface.K3Lib.CreateK3Object("K3ClassTpl.Data...
2018-09-14 10:45:50
1887
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人