摘要:
Dim d As Object Sub main() Set d = CreateObject("scripting.dictionary") With Sheet1 .Range("c1").CurrentRegion = "" ar = .Range("a1").CurrentRegion Fo 阅读全文
摘要:
Dim o As New cClassSqlHelperForTableDB Sub test() sql1 = "select 合同编号,sum(实收金额) as 实收金额 from [财务实收信息$] where 实收状态='已确认' group by 合同编号" sql2 = "select 阅读全文
摘要:
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, 阅读全文
摘要:
Public max_price As Double Dim sj, jg(), m%, n%, k& Sub main() Application.ScreenUpdating = False Call initComb '组合初始化 Dim coll As New Collection max_ 阅读全文
摘要:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim arr As Variant, TargetRow As Integer, ProName As String, d As Object Set d = CreateOb 阅读全文
摘要:
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 阅读全文
摘要:
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.入库数量 阅读全文
摘要:
package 数据结构和算法; public class d31_动态规划_打家劫舍III { public static void main(String[] args) { // TODO 自动生成的方法存根 TreeNode a= new TreeNode(3); TreeNode b= n 阅读全文
摘要:
package 数据结构和算法; //输入:[0,0,null,0,null,0,null,null,0] //输出:2 //解释:需要至少两个摄像头来监视树的所有节点。 public class t24_贪心算法_监控二叉树 { public static void main(String[] a 阅读全文