我们项目管理有两个工作薄,一个里面有多个表,每天建一个,记录当天项目,另一个工作薄,有多个表,其中一个是所有项目汇总. 以前都是第一个工作薄一个表做完,再复制粘贴到第二个工作薄的汇总表中. 写了个VBA宏完成这个工作. Sub CopyToOtherBook() ' ' copyToOtheBook Macro ' 宏由 cuianzhu 录制,时间: 2013-6-18 ' ' Dim fname As String Dim maxLine As Integer Dim maxLineS As
sql之将一个表中的数据注入另一个表中 需求:现有两张表t1,t2,现需要将t2的数据通过XZQHBM相同对应放入t1表中 t1: t2: 思路:left join 语句: select * from t1 left join t2 on t2.XZQHBM=t1.XZQHBM order by t1.XZQHBM 返回: 查询结果中会将两个表的XZQHBM都查出来,在*处过滤即可 研究不易,转载请标明出处.
功能如题, Informix从一个表更新多选数据到另一个表 例如, 要更新tab01的几个字段数据, 这些数据来自tab02, tab01和tab02之间通过id关联 参考语句: update tab01 set (sex,birthday,addr,tele) = ((select case when sex='男' then 1 else 0 end,age,addr,tele from tab02 where tab02.id=tab01.id)) WHERE exists (select
这一段在找新的工作,今天面试时,要做一套题,其中遇到这么一句话,从一个表中拷贝所有的数据到另一个表中的sql是什么? 原来我很少用到,也没注意过这个问题,面试后我上网查查,回来自己亲手写了写,测试了下,确实有的.现在我记录下. 这个语句是:insert into A select * from B;这个语句根据需要变化,字段一定要一致: 另一种是MySQL复制表结构及数据到新表:CREATE TABLE 新表 SELECT * FROM 旧表;例子sql语句:CREATE TABLE new_t
因为工作的原因,需要用到VBA,碰到读图片和写图片: Sub Macro01() '从工作表中保存图片 Application.ScreenUpdating = False Dim pth, shp, n pth = ThisWorkbook.Path & "\导出图片\" For Each shp In ActiveSheet.Shapes Then n = n + shp.Copy , , shp.Width, shp.Height).Chart .Parent.Selec
(一)who简介:没错,就是startActivityForResult()方法,这个方法用来在活动被销毁的时候返回数据给上一个方法.参数说明: startActivityForResult(intent, 1) 第一个参数是intent,第二个参数是请求码,用于判断数据的来源.(二)what现在有两个activity,activityA和activityB,activityA想activityB发送请求,让actiivtyB返回数据.代码如下: public class ActivityA e
有的时候,我们需要在java中对集合中的数据进行分组运算.例如:Bill对象有money(float)和type(String)属性,现有个集合List<Bill>,需要按照Bill的type属性进行分组,计算money的总和.有以下两种思路: 思路一: 先计算集合中所有的type情况,然后对于每一种type去遍历集合计算money的和.伪代码如下: Map<String,String> typeMap = new HashMap<String,String>(); f
excel vba代码: Sub makeTxt() For i = 1 To 1088'从第1行到1088行(最后一行) On Error Resume Next'出现错误时继续运行脚本 Open "d:\" & Cells(i, 1) & ".txt" For Append As #1'新建文本文档到D盘下,并命名为句柄1,文本文档的文件为excel表格中的第一列中的内容 Print #1, Cells(i, 2)'写入excel表格中的第二列到