[VB.NET]一些小问题！！！！急急。在线等
发布时间：2020-12-16 23:47:01 所属栏目：大数据 来源：网络整理
导读：一些小问题！！！！急急。在线等 If Me.DataGridView1.RowCount 0 Then Dim NewfrmWaiting As New frmWaiting | frmWaiting未定义类型 是什么意思？ NewfrmWaiting.Show( "正在导出数据,请稍候...... ") Try Dim datav As New DataView datav = m_DataTable.
|
一些小问题！！！！急急。在线等 If Me.DataGridView1.RowCount > 0 Then Dim NewfrmWaiting As New frmWaiting | frmWaiting未定义类型 是什么意思？ NewfrmWaiting.Show( "正在导出数据,请稍候...... ") Try Dim datav As New DataView datav = m_DataTable.DefaultView | m_DataTable 未声明名称是什么意思？应该是什么类型？ Dim i,j As Integer Dim rows As Integer = datav.Table.Rows.Count Dim cols As Integer = datav.Table.Columns.Count Dim DataArray(rows - 1,cols - 1) As String Dim myExcel As Excel.Application = New Excel.Application | Excel.Application 未定义类型 是什么意思啊，VB2005中不能用“Excel.Application“么？ For i = 0 To rows - 1 For j = 0 To cols - 1 If datav.Table.Rows(i).Item(j) Is System.DBNull.Value Then Else DataArray(i,j) = datav.Table.Rows(i).Item(j) End If Next Next myExcel.Application.Workbooks.Add(True) myExcel.Visible = True For j = 0 To cols - 1 myExcel.Cells(1,j + 1) = datav.Table.Columns(j).ColumnName Next myExcel.Range( "A2 ").Resize(rows,cols).Value = DataArray Catch exp As Exception MessageBox.Show( "数据导出失败!请查看是否已经安装了Excel ",Me.Text,MessageBoxButtons.OK,MessageBoxIcon.Warning) Finally NewfrmWaiting.Close() End Try Else MessageBox.Show( "没有数据! ",MessageBoxIcon.Information) End If Excel.Application 未定义类型 frmWaiting未定义类型 m_DataTable 未声明名称 上面的这段程序是小弟从网上下的，一调式有如上几个错误！请各位老大帮小弟解决一下，小弟刚接触VB2005不长时间！谢谢了！ __________________________________________________________________________ frmWaiting是个窗体 m_datatable 是该是个datatable __________________________________________________________________________ 应该怎么改呢？ 把frmWaiting 该为from? m_datatable 怎么改啊？ Excel.Application 这个呢？老大，帮帮忙啊！！ __________________________________________________________________________ 有没有人能回答啊？ __________________________________________________________________________ 怎么那么象我写的代码?????!!!!!!!!!!! __________________________________________________________________________ NewfrmWaiting 是窗体 Excel.Application 这个需要添加引用,需要Office2003的支持 m_DataTable 这个我记得是传参传进来的一个DT __________________________________________________________________________ （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |