datagrid导出数据

 1 //导出excel
 2     public function touzi_doExport() {
 3         $search=$_POST['search'];  //接受前端传过来的数据
 4  8         $this->success(U('Tongji/touzi_doExport_action',$search));  //传值
 9     }
10 
11 public function touzi_doExport_action() {
12         $search=$_GET;  //接收数据
13 $where=array(); 14 $starttime=$search['starttime']; 15 $endtime=$search['endtime']; 16 unset($search['starttime']); 17 unset($search['endtime']); 18 $jxstarttime=$search['jxstarttime']; 19 $jxendtime=$search['jxendtime']; 20 unset($search['jxstarttime']); 21 unset($search['jxendtime']); 22 if (session('roleid')==8) {//理财经理 23 $search['managerid']=session('userid'); 24 } else { 25 $ids=A('Index')->public_checkBranchid($search['branchid']); 26 if ($ids) { 27 $where[]="Users.branchid IN (".implode(",",$ids).")"; 28 unset($search['branchid']); 29 } 30 } 31 foreach ($search as $k=>$v){//迭代获取 32 if(!$v) continue; 33 $where[] = "{$k} = '{$v}'"; 34 } 35 if ($starttime) { 36 $where[] = "Tenderlist.dateline >= ".$starttime; 37 if ($endtime) { 38 $endtime=strtotime("+1 day",$endtime); 39 $where[] = "Tenderlist.dateline <= ".$endtime; 40 } 41 } 42 if ($jxstarttime) { 43 $where[] = "Loanlist.startpaytime >= ".$jxstarttime; 44 if ($jxendtime) { 45 //$jxendtime=strtotime("+1 day",$jxendtime); 46 $where[] = "Loanlist.startpaytime <= ".$jxendtime; 47 } 48 } 49 $where[] = "Loanlist.status!='failed'"; 50 $where=implode(" and ", $where); 51 52 $tenderlist=D('Tenderlist2View'); 53 $list=$tenderlist->where($where)->select(); 54 if ($list) { 55 foreach ($list as $key=>$val) { 56 if ($val['adminrealname']) { 57 $list[$key]['adminrealname']=$val['adminrealname']."(".$val['adminname'].")"; 58 } else { 59 $list[$key]['adminrealname']='无'; 60 } 61 if ($val['isfailed']) { 62 $list[$key]['isfailed']='是'; 63 } else { 64 $list[$key]['isfailed']='否'; 65 } 66 //$list[$key]['crediturl']=getGrade(totalCredit($val)); 67 $list[$key]['money']=moneyTrans($list[$key]['money']); 68 $list[$key]['paiedmoney']=moneyTrans($list[$key]['paiedmoney']); 69 $list[$key]['earnmoney']=moneyTrans($list[$key]['earnmoney']); 70 $list[$key]['dateline']=date('Y-m-d H:i:s',$list[$key]['dateline']); 71 $list[$key]['startpaytime']=date('Y-m-d H:i:s',$list[$key]['startpaytime']); 72 $list[$key]['lasttime']=date('Y-m-d H:i:s',strtotime("+".$val['loanterm']." month",$val['startpaytime'])); 73 } 74 }

      //本方法以上所有步骤,都是为了从数据库获得数据:
$list
     //以下两行,固定方式,语法。输出。
75 $list=keysortExcel($list,array('loanid','loanname','branchname','nickname','adminrealname','loanterm','money','paiedmoney','earnmoney','status','isfailed','dateline','startpaytime','lasttime')); 76 exportexcel($list,array('标的ID','贷款名称','所属地区','投标用户','理财经理','借款期限','投标金额','已偿还金额','已赚取金额','投标方式','是否流标','投标日期','计息日期','截止日期'),'投资业务统计-'.time()); 77 }

前台传入数据:

 1 function doExportt(id)
 2 {
 3     var id = id;    
 4     $.post('<{:U('Tongji/index_edit_doExport')}>',{id:id}, function(res){
 5             if(!res.status){
 6                 $.messager.alert('提示信息', res.info, 'error');
 7             }else{
 8                  window.open(res.info,'_blank');
 9             }
10     }, 'json');
11 }

其中,{id:id},是 post 传过去的数据

转载于:https://www.cnblogs.com/wanlibingfeng/p/6401806.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
要将VB6.0中的DataGrid中的数据导出,可以使用以下步骤: 1. 将DataGrid控件的DataSource设置为一个已经绑定的数据源(例如,一个ADO Recordset)。 2. 创建一个新的Excel工作簿对象,使用Excel对象库中的Workbook和Worksheet对象。 3. 在工作表中循环遍历数据源中的每一行,并将数据写入工作表中相应的单元格中。可以使用Excel的Range对象来定位单元格。 4. 最后,保存Excel文件并关闭工作簿对象。 下面是一个简单的示例代码: ``` Private Sub ExportToExcel() Dim rs As ADODB.Recordset Set rs = DataGrid1.DataSource Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) '写入表头 Dim i As Integer For i = 0 To rs.Fields.Count - 1 xlSheet.Cells(1, i + 1).Value = rs.Fields(i).Name Next '写入数据 Dim row As Integer row = 2 rs.MoveFirst Do Until rs.EOF For i = 0 To rs.Fields.Count - 1 xlSheet.Cells(row, i + 1).Value = rs.Fields(i).Value Next row = row + 1 rs.MoveNext Loop '格式化工作表 xlSheet.Columns.AutoFit '保存文件并关闭Excel对象 xlBook.SaveAs "C:\data.xls" xlBook.Close xlApp.Quit Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing End Sub ``` 此示例代码将DataGrid1中的数据导出为一个名为“data.xls”的Excel文件。请注意,此代码依赖于Microsoft Excel对象库,因此必须在项目中添加对该库的引用。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值