
一些小问题!!!!急急。在线等
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( "没有数据! ", Me.Text, MessageBoxButtons.OK, 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
__________________________________________________________________________