|
i want to append a column of a table in a dataset as a string with out any loops
Ravi
|
|
|
|
|
What? Are you saying that you want to do something like this:
Column1 Column2 Column3
A1 B1 C1
A2 B2 C2
A3 B3 C3
A4 B4 C4
String = C1C2C3C4
A loop would be the most efficient way to iterate through the datatable. What exactly are your asking?
And why does this smell like homework?
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
'Maybe it's example will help you
Dim ds As DataSet = New DataSet()
'If you have already a table use this method
Dim clm1 As DataColumn = ds.Tables("MyTable").Columns.Add("MyColumn", GetType(String))
'or if you want to create a new table with the column use the method below.
Dim clm2 As DataColumn = ds.Tables.Add.Columns.Add("MyColumn", GetType(String))
'The table take the default name like "Table1"
'I hope to helped you Ravi
|
|
|
|
|
This lab computes the amount of income tax that a person will have to pay, based on their salary
Whats wrong with this code? Is my calculations wrong?
Public Class FrmIncomeTax
Inherits System.Windows.Forms.Form
Private Sub FrmIncomeTax_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
Dim Salary As Integer
Dim Salary1 As Integer
Salary = lblResult.Text
Select Case Salary
Case Is <= 20000
Salary1 = Salary * 0.02
Case Is <= 50000
' 5% tax bracket
Salary1 = 400 + ((Salary - 20000) * 0.05)
Case Is <= 75000
' 10% tax bracket
Salary1 = 400 + ((Salary - 50000) * 0.1)
Case Is <= 297350
' 15% tax bracket
Salary1 = 400 + ((Salary - 75000) * 0.15)
Case Else
' 20% tax bracket
Salary1 = 400 + ((Salary - 100000) * 0.2)
End Select
txtSalary.Text = Salary1
End Sub
End Class ' FrmIncomeTax
|
|
|
|
|
This looks worringly similar to a homework posting a few weeks ago...
Here[^]
Why not try calculating it by hand on a bit of paper then work through the code and see why the results don't match, it's very, very obvious.
|
|
|
|
|
This is the exact code someone here on CodeProject wrote for you. Unfortunately for you, he didn't supply you with any documentation, did he? You're going to have to sort through this yourself and doublecheck the math being performed against the rules described in your assignment.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
The most amusing part is that a further post actually said that the calculation was wrong!
This homework must be realy late by now.
If you have knowledge, let others light their candles at it.
Margaret Fuller (1810 - 1850)
|
|
|
|
|
Shay, you didn't state the exact problem you're having? is it not calculating at all? what happens when you single step? I'm sure you walked through this using F11.
One small suggestion. The first assignment statement Salary = lblResult.Text will blow up if there's not a number in there. And you're assuming VB will do a cast from string to int for you. Always better to cInt the conversion, and wrap all the code in a Try..Catch.
good luck,
john
|
|
|
|
|
I want to write a program to control the output of a parallel port (ie operate individual pins) but the current dll I'm using doesn't want to work. I don't know if this is because i'm using xp or if the dll is dodgy. If anyone one knows a way around using dll's or has one that works pls help
|
|
|
|
|
There is absolutely no way of doing this without the help of a .DLL running in Ring 0. You'll have no direct contact with the hardware any other way.
I've been using the library at Logix4U (http://www.logix4u.net/[^]) without any problems for my projects.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thanks, got the inpout32.dll from logix4u, it looks great.
Now my next prblem along the way, is there a standard for the wiring of a parallel port (ie which colour goes to which port)? I've been looking all over and I'm beginning to think I'm going to have to test each and every wire...
|
|
|
|
|
For the color of the wires? No, there isn't. But the function of each pin on the DB-25 connector is.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi all, 
anybody having sample code for sending emails using Extended MAPI objects?? if so pls help me... its urgent... or give any sample code links...
Thanks in advance... 
Boomi.
|
|
|
|
|
Extended MAPI is referred to as MAPI 1.0 and is the FULL function library. CDO.DLL (Collaboration Data Objects) wraps a good chunk of the MAPI API, but not all of it. There is a second flavor of CDO called CDONTS. CDONTS is an SMTP implementation, not MAPI, and will render certain message contents as HTML.
Simple MAPI is a subset of 12 functions that implement just the basic functionality of MAPI.
Visual Basic 3 thru 6 and Outlook Express all supply objects that support Simple MAPI only!
In order to use the FULL functionality of the MAPI 1.0 specification, you'll have to P/Invoke the MAPI functions yourself, defining Declares and structures that are required by the MAPI API Library.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Try to check the information from here.[^]
A thousand mile of journey, begin with the first step.
APO-CEDC
Save Children Norway-Cambodia Office
|
|
|
|
|
How is the Product Version build and revision number value incremented? It doesn't seem to change when every build is done.
Any hints?
|
|
|
|
|
In your project's .config file, there is an AssemblyVersion attribute. If the string in that attribute tab has an asterisk in it, like "1.1.*", it will autoincrement the build and revision parts. By default, the build portion will be the number of days since Jan 1, 2000 and the revision portion will be the number of seconds since midnight divided by 2.
I highly recommend you DON'T use autoincrementing values. If your projects will have any COM interaction, letting the version number change every time you hit "Build" will play hell with applications using your components.
EDIT:
BTW: ProductVersion doesn't increment on it's own. You have to change it.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
If I want to adjust the height property of RptLine in the data report at run-time, what sholud i do if it's possible?
|
|
|
|
|
I've never used the DataReport objects, but from the documentation, it looks like you could just do something like:
RptLine.Height = someNewHeight
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I tried that Dave told me, but it's not work. May be I adjust at wrong time.
What time i should do it?
|
|
|
|
|
ok, i am writing a program for a class. it is supposed to be set up in a jeopardy type fashion. i am trying to get it so that whenever the user clicks on the button, then a form will pop-up refering to an excel spreadsheet to fill in the question to the appropriate text box and the answers to the correct text boxes also. i have the main form and then 1 form that is for the true/false questions and another form for the multiple choice questions. any help would be great. if you would like to see the program to better understand what i am talking about, please e-mail me. thanks
matthew davis
|
|
|
|
|
Help with what? You haven't said anything abbout what your problem is...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
making the forms get information from an excel spreadsheet and then put the info in the right text box
matthew davis
|
|
|
|
|
Matt,
a) You've got a bit of work ahead of you.
b) you're in the wrong forum, this one is for VB.NET
c) anyway, here's a class and some code I used to read and write to Excel files.
----
Option Explicit
Public sFileName As String
Dim sCurrentWorksheet As String
Dim bExcelWasRunning As Boolean
Public oExcel As Object
'Sub EnterValue()
' Worksheets("Sheet1").Cells(6, 1).Value = 10
'End Sub
'The Cells property works well for looping through a range of cells, because you can substitute variables for the index numbers, as shown in the following example.'
'Sub CycleThrough()
' Dim counter As Integer
' For counter = 1 To 20
' Worksheets("Sheet1").Cells(counter, 3).Value = counter
' Next counter
'End Sub
Public Function Init(ByVal asExcelFileName As String) ' , ByVal asCurrentWorksheet) as boolean
' Get handle to currently loaded instance of Excel if there is one.
Init = False
bExcelWasRunning = False
Err.Clear
On Error Resume Next
Set oExcel = CreateObject("Excel.Application")
If Err.number <> 0 Then
MsgBox ("Could not start up Excel. [E9810180901]")
Exit Function
End If
On Error GoTo OpenError
If asExcelFileName = "" Then
Dim xlWb As Object
Dim xlWs As Object
Set xlWb = oExcel.Workbooks.Add
Set xlWs = xlWb.Worksheets("Sheet1")
Else
sFileName = asExcelFileName
On Error GoTo OpenError
oExcel.Workbooks.Open asExcelFileName
On Error GoTo 0
Err.Clear
End If
Init = True
Exit Function
OpenError:
MsgBox ("Error while opening the Excel file: " & asExcelFileName & " " & vbCrLf & vbCrLf & Err.Description)
Init = False
End Function
Public Sub destroy()
' Shut down word if we loaded it ourselves, otherwise don't shut down an app we did not load.
If Not bExcelWasRunning Then oExcel.Quit
End Sub
----
----
' some mainline code that uses the class above.
dim objExcel as clsExcel
Set objExcel = New clsExcel
Call objExcel.Init(txtExcelInputFile.Text) ' open the file...like c:\mydirectory\SomeExcelFile.xls
Dim s As String
On Error Resume Next
s = objExcel.sFileName
If Err.number = 91 Then
MsgBox ("Please use File / Open Excel Input File Menu to connect to the Excel file you want to import.")
Exit Sub
End If
On Error Resume Next
With objExcel.oExcel.Worksheets(SheetID) '("Sheet1")
foo = .cells(1,5)
etc...
---------
Finally, you need to be careful pulling cell values from the spreadsheet.
The cell could be empty, not contain the datatype you think should be there,
or worse yet, may contain a formula.
Here's a wrapper function I wrote for pulling out what is suppose to be date-type data
Private Function GetDateField(ByVal sFieldName as string , ByVal iRow As Integer, Optional bReq As Variant) As String
Dim nCol As Integer
Dim s As String
Dim dt As Date
' bReq: is this field Required? if yes, and the data in the cell is missing, put out an error message.
If IsMissing(bReq) Then bReq = False
GetDateField = ""
' pass in the "name" of a field, look up in colInfo array within the application,
' obtain the column that data is in. Example: CityName is mapped to column 14, Salary to col 20, etc)
nCol = ColInfo(sFieldName)
If nCol = 0 Then
If bReq Then
' send error to the log file. the value is missing from the Cell, and it was a required field.
Call AppendError("Row=" & iRow & ", column " & quote(quote(ColInfo(nField, 1))) & _
" is missing from input Excel file. Please correct.")
End If
Exit Function
End If
s = Trim(objExcel.oExcel.Worksheets(SheetID).Cells(iRow, nCol).Value)
If s = "" Then
If bReq Then
Call AppendError("Row=" & iRow & " Column=" & nCol & ", Field " & quote(quote(ColInfo(nField, 1))) & _
" Field is empty. Please correct.")
End If
Exit Function
End If
On Error Resume Next
dt = CDate(s)
If Err.number <> 0 Then
' can't convert the date to a date, we're in trouble.
Call AppendError("Row=" & iRow & " Column=" & nCol & ", Field " & quote(quote(ColInfo(nField, 1))) & _
" Field is invalid: " & quote(s) & ". Please correct.")
Exit Function
End If
On Error GoTo 0
GetDateField = Format(s, "mm/dd/yyyy")
End Function
|
|
|
|
|
Hi, I use a TAB control in my VB.NET Project. I create three tab.
1. tbpSearchCat<br />
2. tbpSearchArt1<br />
3. tbpSearchArt2
But when I close my project and open the project again, my TAB control change the tab order to:
1. tbpSearchArt1<br />
2. tbpSearchArt2<br />
3. tbpSearchCat
I know it change because it sort the tab via the name of the tab (tbpSearchArt1 come before tbpSearchArt2, and tbpSearchArt2 come before tbpSearchCat) I don't want to make it sort like that. I want to keep it remain as I create it. Can any one help me??
A thousand mile of journey, begin with the first step.
APO-CEDC
Save Children Norway-Cambodia Office
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
