|
Writing to excel is always a dog if you do it by cell, I have not tried writing an array but it would probably work.
Here is an idea, try copy paste - DataGridView Copy and Paste[^] you could construct the data structure to mimic the copy array, select a cell and paste the content. I have no idea how it will perform 
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
Thanks, I used an array and it works for my purposes (i.e. write to array, copy array to Excel). Only other solution I can think of is separate queries per column
|
|
|
|
|
Which version of Excel are you targetting? If it supports the .xlsx format, then you might want to open that file and see how Excel stores it's data. If you don't like the idea of mucking around in the file, then try finding a tool that let's you interact with the data without requiring Excel.
Try a few ideas in a console-app and time them 
Bastard Programmer from Hell 
If you can't read my code, try converting it here[^]
|
|
|
|
|
My Excel version supports xlsx. I will try a few options and report back once I have some results. Storing data in an array presents a significant time improvement though
|
|
|
|
|
Hi, Iam using VS2010, while generating RDLC report, Iam using IIf statement for calculations.
But I found a typical problem which is very different.
Because from the Code.Functions for calculation, simply it's working fine, when I give the
below command directly
=Code.AddMyNet(Sum(ReportItems!itm_value.Value))
But I wish to give like the below command, It's giving error "local report processing"
=IIf((ReportItems!Textbox15.Value ="CARRY FORWARDED "), Code.AddMyNet(Sum(ReportItems!itm_value.Value)), Nothing)
Actually Function AddMyNet() used to calculate the pagewise running value total.
And hence any guidances will be helpful
Thanks & Regards
Paramu
|
|
|
|
|
Hi All,
I am looking for expert advice on printing the pdf files at client machine.
I have created a sample project named ClientPrint as
Imports System.Drawing
Imports System.Drawing.Printing
Imports System.Runtime.InteropServices
Namespace ActiveX
Public Interface IActiveXPrintLib
Sub PrintFile(filePath As String)
End Interface
<ProgId("ActiveX.PrintFile")>
<ClassInterface(ClassInterfaceType.AutoDual)>
<ComVisible(True)>
Public Class ActiveXPrintLib
Implements IActiveXPrintLib
<ComVisible(True)>
Public Sub PrintFile(filePath As String) Implements IActiveXPrintLib.PrintFile
Dim AcroPdf As New AcroPDFLib.AcroPDF()
AcroPdf.LoadFile(filePath)
AcroPdf.printAll()
End Sub
End Class
End Namespace
I have created the dll and register the dll using regasm command on client machine.
Now at time of consuming the print method at client side using javascript as
<object id="myControl1" name="myControl1" classid="clsid:ActiveX.ActiveXPrintLib"> </object>
var axComponent = new ActiveXObject("ActiveX.ActiveXPrintLib");
alert(axComponent);
if (axComponent == null) {
alert('Probably not installed');
}
else {
yourAxComponent.PrintFile('<%= Page.ResolveUrl("~/PdfTemp/0d818b57-9384-4f52-ae89-8ef5868064b7.pdf") %>');
alert('yes');
}
I am getting the error that automation server can't create object, using IE I have enabled the active x and permisssions to download the activex. but it still gives me same error.
I am not sure whether my code is correct or not.
Any advice is really helpful.
Thanks in advance.
Sachin Mehndiratta
mehndi.sachin@gmail.com
|
|
|
|
|
Hello !
I have a login form .
When this login form is still open , i open my main form , and on the load event of main form i give the instruction to close the login form.
But i have a problem :
My idea is to close the login form when the main form is full loaded. ( On my main form i have some controls that should be filled from a database )
But when the login form is closed , my main form is not full loaded.Some controls are still filling with records , and after some second the form is full loaded.
I try to put the close command for the login form at the end of load event (or shown event ) of main form , but the result is the same and the login form is closed before the main form is full loaded.
What can i do ?
Thank you !
|
|
|
|
|
dilkonika wrote: My idea is to close the login form when the main form is full loaded.
Keep in mind that such won't work nicely with lazy-loading.
dilkonika wrote: What can i do ?
How do you load the data? Close the form when that's done.
(how do you know when you're done loading all records? You'd need to select the count before executing your query)
Bastard Programmer from Hell 
If you can't read my code, try converting it here[^]
|
|
|
|
|
I load all the data in form's load event.
At the end of this sub I put the close instruction for the login form.
But the login form is closed before the main form is full loading and after the login form is closed , the controls on main form need some time to finish loading.
|
|
|
|
|
dilkonika wrote: At the end of this sub I put the close instruction for the login form.
Can you post that code here?
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
It sounds as though the WM_PAINT messages for the main form are not being processed because, well, you're loading data and setting control values, hogging the UI (startup) thread, preventing it from processing the incoming window messages.
Those messages won't get processed, and hence, the main window painted, until the Load method is done executing.
Really, I think you're nit-picking over something that's inconsequential to the functionality of the application.
|
|
|
|
|
Do you have a solution ?
Because for me is important this thing.
|
|
|
|
|
Perhaps you better explain why having the login form stick around until after the main form grid is filled this is so important.
After 35 years of writing code, this has to be the most ridiculous requirement I've ever heard.
|
|
|
|
|
dilkonika wrote: Do you have a solution ?
Keep the loginform in front of the main-form. Don't have ANY long-running code in the constructor or the Load event of the mainform. Start a new thread when the form is shown to fetch the data, invoke when ready to display. You can additionally stop the painting if you don't want to paint while you're still updating, but that would leave a white background if the region is invalidated.
..quite an effort, with little reward.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
Guys,
This time am struck with the below scenario please assist.
Am copying few files to the below location using my script.
%AppData%\Mozilla\Firefox\Profiles\6zejl8ne.default\
i need to copy files inside 6zejl8ne.default folder.
But the issue is this folder name is not constant, folder name changes for every user.
for e.g:
user 1 will have: %AppData%\Mozilla\Firefox\Profiles\6zejl8ne.default\
user 2 will have: %AppData%\Mozilla\Firefox\Profiles\4qi4qup6.default\
please assist is ther anyway i have files to the above location.
My script:
appdata = objShell.ExpandEnvironmentStrings("%appdata%")
tmp = objShell.ExpandEnvironmentStrings("%Temp%")
Const OverwriteExisting = True
objFSO.CopyFile tmp & "\Files\*.xpi",appdata & "\Mozilla\Firefox\Profiles\6zejl8ne.default\extensions\" , OverwriteExisting
where, 6zejl8ne.default folder will change for every user.
is that we can assign that folder to constant so that i can run this script on every machine ?
Cheers,
|
|
|
|
|
OK, so how are you going to determine what the folder name is?
Because once you have the folder name, the rest is very simple string manipulation to build the path.
|
|
|
|
|
I have the following sttring arrays and I would like to use IEnumerator.moveNext in order to move to the next string. Here is my code below it always in position -1. I need to start at 0 until HighLeveBenefitHeader
Dim HighLeveBenefitHeader() As String = {"Health Center Information", "", "", "", "", ""}
Dim myHighLeveBenefitEnum As IEnumerator = HighLeveBenefitHeader.GetEnumerator()
'Add Header row
Dim HeaderHighLevelBenefit As Row = CreateTableHeaderRow(currentRow)
' Add Cells
For Each value As String In HighLeveBenefitHeader
CreateTextTableCell(HeaderHighLevelBenefit, myHighLeveBenefitEnum.MoveNext, value.ToString, currentRow, 182, True)
Next
sheetData.AppendChild(HeaderHighLevelBenefit)
|
|
|
|
|
The <a href="http://msdn.microsoft.com/en-us/library/system.collections.ienumerator.movenext.aspx">MoveNext</a>[<a href="http://msdn.microsoft.com/en-us/library/system.collections.ienumerator.movenext.aspx" target="_blank" title="New Window">^</a>] returns a boolean, not the current value of the enumerator. It does move to the next string, it just doesn't return it. MoveNext before you CreateTextTableCell and use the Current property to retrieve the string.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
if i have database contain list of Autocad Architectural elements
simple(like cornice) and
complex(like window,door,column)
and i received new design for cornice and i want to check if this new cornice is available in my database
there is any way to make the compare using programming languages ??
|
|
|
|
|
The only way to check, would be to compare every property of each object.
|
|
|
|
|
Hello !
I'm using vb.net with Entity framework.
I have this situation :
I have 2 tables related to each other : Table1(Id,vl1,vl2,vl3,vl4 ) and Table2 (id,nm1,nm2,nm3,Table1ID)
I'm creating a query step by step like this :
Query=From t in context.Table1 select t
If condition1 then query=query.Where(Function(t2) t2.vl1>10)
If condition2 then Query=query.Where(Function(t2) t2.vl2<4)
.....
Now , if Condition3 is true I want to select all records from Table1 where vl3=0 and I want to filter the nested table Table2 where nm1="x".
If condition3 then query=query.where(Function(t2) t2.vl3=0) ???????????????
How can I filter the table2 in my query ?
Thank you !
|
|
|
|
|
Hello friends, how is the day going? Please I need someone to show me the way forward of this problem. I wrote a 2d shooting game with vb6.0 which is working fine but there is something missing. I want the character to jump up on botton press and bounce on heating the ground before it stands firm. The formal code i used is not ok to my satisfaction the following is the code <code>if keycode = vbkeyup then
army.top = army.top + spd</code> where spd is a value. Please any help is welcome!
|
|
|
|
|
Otekpo Emmanuel wrote: there is something missing
Yes; an upgrade to VB.NET.
Give it a try, and if you get stuck post a new message here 
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
Hi all,
I have a dll that communicate with access control hardware which stores all transactions in its memory
unfortunately, all docs are in c# which I note able to manage since I know vb6 only
the main structure (Type as in vb6) has the following:
Public Structure sysReply
' Fields
<fieldoffset(0)> _
Public nsysNumber As Short
<fieldoffset(4)> _
Public nType As Integer
<marshalas(unmanagedtype.byvalarray, sizeconst:="&H400)," fieldoffset(8)=""> _
Public sBuffer As Char()
End Structur
the sbuffer array is the union of all events
what I understand that there is no union in vb6 but is UDT
so there is many UDT's thats is related to the sbuffer according to the nType in the sysReply structure
my question is how to deal with the above in vb6?
I did the following
Public type sysReply
nsysNumber As integer
nType as integer
sBuffer() As Byte
end type
public sReply as sysReply
there is other structures that is related to the nType
and use copymemory to copy the sysRply to every udt
like:
Dim bytcommstatus As sysReplyCommStatus
CopyMemory ByVal VarPtr(bytcommstatus), ByVal VarPtr(sReply), LenB(bytcommstatus)
With bytcommstatus
debug.print .status
debug.print .error_no
end with
I get get data but I face two problems
- data are not in same order as udt
- application crashes
can someone show me example?
regards
|
|
|
|
|
idegyptsys wrote: can someone show me example?
Not using VB6.
If you "know" VB6, then you can program in VB.NET - syntax is roughly the same. Put your C# code in a C# to VB.NET translator and it may look a bit more recognizable.
Bastard Programmer from Hell 
If you can't read my code, try converting it here[^]
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
