VBA编程手记

1，字符串操作

mid(字符串,开始位置,字符个数)

left(字符串,instr(字符串,"结束标识"))

update 总表 set 市=Mid(配送地址,1,5) ,区县=Mid(配送地址,6,3),镇=left(Mid(配送地址,9,4),instr(Mid(配送地址,9,4),"镇")),详细地址=Mid(配送地址,8,20);

2，控件添加事件

Private Sub Command8_Click()
DoCmd.RunSQL "select count(*) as [2G用户数],sum([分摊前出账金额（元）]) as [2G收入]," _
           & "(select count(*) from [当月3G用户明细]) as [3G用户数],(select sum([分摊前出账金额（元）]) from [当月3G用户明细]) as [3G收入], " _
           & "(select count(*) from [当月4G用户明细]) as [4G用户数],(select sum([分摊前出账金额（元）]) from [当月4G用户明细]) as [4G收入]," _
           & "(select count(*) from [当月出账明细]) as [合计用户数],(select sum([分摊前出账金额（元）]) from [当月出账明细]) as [合计收入]into [当月汇总]" _
           & "from [当月2G用户明细]"        
End Sub

注：set子句中不能有子查询，所以直接在select中嵌入select设置字段值。