摘要: Private Sub m_BillTransfer_BeforGridLookUp(ByVal Row As Long, ByVal Col As Long, ByVal nLookUpClsID As Long, Cancel As Boolean) If Col = groupNoIndex 阅读全文
posted @ 2020-01-13 14:25 allen1991 阅读(851) 评论(0) 推荐(0) 编辑
摘要: Private Function init()For i = 0 To UBound(m_BillTransfer.HeadCtl) If InStr(m_BillTransfer.HeadCtl(i).Caption, "销售金额合计") > 0 Then XSJEHJIndex = i End 阅读全文
posted @ 2020-01-13 14:23 allen1991 阅读(679) 评论(0) 推荐(0) 编辑