Private Sub GridToExl_Click() On Error Resume Next If DataGrid1.Columns.Count = 0 Then MsgBox "抱歉,没有数据可供打印!", vbOKOnly, "提示" Exit Sub End If Set cnn = New ADODB.Connection cnn.Open Adodc1.ConnectionString '获取DataGrid数据源 Dim rss As New…
//导出excel public function touzi_doExport() { $search=$_POST['search']; //接受前端传过来的数据 $this->success(U('Tongji/touzi_doExport_action',$search)); //传值 } public function touzi_doExport_action() { $search=$_GET; //接收数据 $where=array(); $starttime=$search['…