摘要: Dim d As Object Sub main() Set d = CreateObject("scripting.dictionary") With Sheet1 .Range("c1").CurrentRegion = "" ar = .Range("a1").CurrentRegion Fo 阅读全文
posted @ 2023-03-08 15:13 依云科技 阅读(27) 评论(0) 推荐(0)
摘要: Dim o As New cClassSqlHelperForTableDB Sub test() sql1 = "select 合同编号,sum(实收金额) as 实收金额 from [财务实收信息$] where 实收状态='已确认' group by 合同编号" sql2 = "select 阅读全文
posted @ 2023-02-20 17:12 依云科技 阅读(30) 评论(0) 推荐(0)
摘要: Sub test() Set d = CreateObject("scripting.dictionary") With Sheet1 ar = .Range("a1").CurrentRegion For x = 2 To UBound(ar) s = ar(x, 1) & "," & ar(x, 阅读全文
posted @ 2023-02-20 17:06 依云科技 阅读(98) 评论(0) 推荐(0)
摘要: Public max_price As Double Dim sj, jg(), m%, n%, k& Sub main() Application.ScreenUpdating = False Call initComb '组合初始化 Dim coll As New Collection max_ 阅读全文
posted @ 2023-02-20 17:04 依云科技 阅读(71) 评论(0) 推荐(0)
摘要: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim arr As Variant, TargetRow As Integer, ProName As String, d As Object Set d = CreateOb 阅读全文
posted @ 2023-02-20 17:02 依云科技 阅读(37) 评论(0) 推荐(0)
摘要: create view view_jin_xiao_cun2 as SELECT a.jiezhuan_prod_code as prod_code,a.jiezhuan_prod_name as prod_name, IFNULL(b.jiezhuan_count,0) as qichu_coun 阅读全文
posted @ 2023-02-04 17:04 依云科技 阅读(88) 评论(0) 推荐(0)
摘要: SELECT a.jiezhuan_prod_code as 商品代码,a.jiezhuan_prod_name as 商品名称, IFNULL(b.jiezhuan_count,0) as 期初数量,IFNULL(b.jiezhuan_money,0) as 期初金额, IFNULL(c.入库数量 阅读全文
posted @ 2023-02-04 14:09 依云科技 阅读(42) 评论(0) 推荐(0)
摘要: package 数据结构和算法; public class d31_动态规划_打家劫舍III { public static void main(String[] args) { // TODO 自动生成的方法存根 TreeNode a= new TreeNode(3); TreeNode b= n 阅读全文
posted @ 2022-12-11 13:48 依云科技 阅读(22) 评论(0) 推荐(0)
摘要: '示例 1: '输入: [7,1,5,3,6,4] '输出:5 '解释:在第 2 天(股票价格 = 1)的时候买入,在第 5 天(股票价格 = 6)的时候卖出,最大利润 = 6-1 = 5 。注意利润不能是 7-1 = 6, 因为卖出价格需要大于买入价格;同时,你不能在买入前卖出股票。 ' '示例 阅读全文
posted @ 2022-12-11 09:23 依云科技 阅读(58) 评论(0) 推荐(0)
摘要: package 数据结构和算法; //输入:[0,0,null,0,null,0,null,null,0] //输出:2 //解释:需要至少两个摄像头来监视树的所有节点。 public class t24_贪心算法_监控二叉树 { public static void main(String[] a 阅读全文
posted @ 2022-12-10 17:26 依云科技 阅读(21) 评论(0) 推荐(0)