-
lzc_466232108
2008-01-08
-
我是游戏开发的初学者,有对DIRECTX 3D,有资深技术的欢迎指导.QQ:466232108
-
snowgym
2008-01-08
-
datagrid 导出到 EXCEL <br/> <br/> <br/> Private Sub Command1_Click() <br/> Dim i As Integer <br/> Dim j As Integer <br/> Dim xlApp As New Excel.Application <br/> Dim xlBook As New Excel.Workbook <br/> Dim xlSheet As New Excel.Worksheet <br/> Set xlApp = CreateObject("Excel.Application") <br/> xlApp.Visible = True <br/> Set xlBook = xlApp.Workbooks.add <br/> On Error Resume Next <br/> Set xlBook = xlApp.Workbooks.Open("d:\text2.xls") <br/> Set xlSheet = xlBook.Worksheets(1) <br/> For j = 0 To mgrid.Columns.Count - 1 <br/> xlSheet.Cells(1, j + 1) = mgrid.Columns.Item(j).Caption <br/> Next j <br/> xlSheet.Cells(6, 1) = "i" <br/> Adodc1.Recordset.MoveFirst <br/> For i = 0 To Adodc1.Recordset.RecordCount - 1 <br/> mgrid.Row = i <br/> For j = 0 To mgrid.Columns.Count - 1 <br/> mgrid.Col = j <br/> 'MsgBox DataGrid1.Text <br/> <br/> If IsNull(mgrid.Text) = False Then <br/> xlSheet.Cells(i + 2, j + 1) = mgrid.Text <br/> End If <br/> Next j <br/> Next i <br/> <br/> End Sub<br/>为什么导出的记录不全呢,请高手门指点
-
刘颖
2008-01-08
-
对数据库感兴趣~~嘿嘿,初来乍到~~say hello~
-
付某
2008-01-08
-
我是做mtk平台的开发的,对图形处理感兴趣<br/>
-
许鹏飞
2008-01-07
-
哪里可以下载ILS服务程序?我的2003 sever 中找不到这项服务,但是搭建局域网NetMeeting服务器还必须得用<br/> 我的QQ:394782086 email: iexupengfei@163.com
-
lsj2003_1027
2008-01-07
-
助我学c++啊,谢过!
-
xinyanmiss
2008-01-07
-
熟悉VB编程,希望大家多多交流
-
王king
2008-01-07
-
朋友加我
-
wen084098240
2008-01-06
-
大家好....我正在迷惘中...有谁可以指导下我.
-
辛星
2008-01-06
-
记录用户名密码自动登陆别人的网站<br/>有创业机会,希望有志者共参与! <br/>本人现在深圳,有缘当面详聊 <br/>QQ:249548285 MSN:xing126@126.com