Bof或者Eof中有一个是真，或者当前的纪录已被删除，所需的操作要求一个当前的纪录？？这是什么意思？程序又错在哪里？要怎么改？
Function CopyRecordSetUpdatable(ByVal rs As ADODB.Recordset, ByVal mfg As MSHFlexGrid) As ADODB.Recordset
Dim rsReturn As ADODB.Recordset
Dim fld As ADODB.field
......
char jiu = (char)9;
char ba = (char)8;
如何得到jiu和ba连接在一起的字符串？
vb当中用jiu+ba就得到两个char组合的字符串。
c#当中我用jiu+ba不行，得到17了 ......
做成了一个工具，读取上百个ppt文件 然后获取里面的数据。使用的是ppt提供的com接口“CreateObject("PowerPoint.Application")”，利用.Presentations.Open方法不断打开ppt文件。
开始的时候速度还不错，可是到了后面越来越慢，有时ppt好像卡死在那边似的，过了很长时间才处理完成。换了几个机器都这样。有点� ......
20分的一大堆,40分的也不少.多几个人回答,这分就要一个一个数了.
还好吧,现在有40的了,以前都很多10′的呢
这是提问者的态度问题,他可能觉得这点分值得,态度好的我们可以多说几句,否则少说或不说.
不要说他没有多少可用分,只能说他还不够勤奋
up........................
引用
up................... ......
Dim XML As DOMDocument 'xml 对象
Dim XmLRoot As IXMLDOMElement 'xml根节点
Dim I As Integer
Set XML = New DOMDocument
If XML.Load("c:\TDDOWNLOAD\200901.XML") = False Then
MsgBox "打开xml出错！"
Exit Sub
End If
Set XmLRoot = XML.docum ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中。
Close #1 ' 关闭文件。
Dim i As Integer
Dim s As Boolean
Dim NeiRong As String
For i = 1 To ......
最新文章 :