[VB.NET]一些小问题!!!!急急。在线等

VB.NET源码-156个实用实例哦…… <script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
一些小问题!!!!急急。在线等
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
__________________________________________________________________________
  • 0
    点赞
  • 0
    收藏
  • 0
    评论

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

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

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值