摘要: Private Sub m_BillTransfer_LoadBillEnd(ByVal ShowType As Long) 'TODO: 请在此处添加代码响应事件 LoadBillEnd With m_BillTransfer.BillForm.tlbTool.Buttons .Add .Coun 阅读全文
posted @ 2022-06-20 17:04 奮鬥的小蝸牛 阅读(478) 评论(0) 推荐(0)
摘要: 金蝶KIS旗舰版7.0开发自动生成采购申请时,使用m_BillTransfer.SetGridText 循环插入数据时第一行数据能插入成功后,一直提示下标越界问题。 需要使用m_BillTransfer.BillForm.insertrow,代码如下 Do While Not rs.EOF Call 阅读全文
posted @ 2022-06-20 16:53 奮鬥的小蝸牛 阅读(503) 评论(0) 推荐(0)
摘要: 金蝶KIS旗舰版7.0开发使用ADODB.Recordset.open读取SQL server返回数据集时,RecordCount的值一直是-1,open参数CursorType和LockType试了一遍都不行,最后使用 Do While Not rs.EOF .......... rs.MoveN 阅读全文
posted @ 2022-06-20 16:42 奮鬥的小蝸牛 阅读(102) 评论(0) 推荐(0)