Re: Calculating intervals using Dates - Visual Basic Discussion Boards

paas16-Jul-08 6:59

16-Jul-08 6:59

When you are adding new rows with an object array, you don't have to execute the NewRow() method before doing the Add. I'm also not sure why you would be setting your datagrid's datasource while still inside the for loop, or why you are adding columns to dt2 while inside the for loop. Maybe I'm just not seeing the forest for the trees. Anyways, one suggestion would be for you to change your code to something like the following and see if that resolves your issue. I'm not sure it will, but it's a thought.

Dim dr As DataRow
Dim dt As New DataTable

dt = objDataSet.Tables(0)

Dim dt2 As New DataTable
dt2.Columns.Add("IC Roll")
dt2.Columns.Add("F2")
dt2.Columns.Add("F3")

For Each dr In dt.Rows
 For i As Integer = 0 To dt.Columns.Count - 1
 
  If dr(i).ToString = TextBox1.Text Then
    Dim arData() As Object = {dr(0), dr(1), dr(2)} 
    dt2.Rows.Add(arData)
    Exit For
  End If
 Next
Next
dt2.AcceptChanges()
DataGrid2.DataSource = dt2

Calculating intervals using Dates

KrisnNala16-Jul-08 5:41

KrisnNala

16-Jul-08 5:41

Hi

Hope you can help. I've got data saved in SQL DataTable in 1 column is the date an invoice was sent. 2nd column is a Bit(Boolean). This tells me whether the invoice has been paid.

I want to work it so that on form load, a msgbox tells the User to send a reminder for a particular invoice.

The code I'm using works fine for 1st 2 rows and then misses out all other rows.

Any ideas please? Confused | :confused:

Dim CurrentDate As Date
Dim ReminderDate As Date
Dim InvoiceDate As Date
Dim msgbxReminder As MsgBoxResult
CurrentDate = Date.Now.Date
InvoiceDate = Me.DachelDataSet.Invoices.Rows(Me.InvoicesBindingSource.Position).Item("InvoiceDate")
ReminderDate = DateAdd(DateInterval.Month, 1, InvoiceDate)
For Each dr As DataRow In Me.DachelDataSet.Invoices.Rows
If dr("Cleared") Is System.Convert.DBNull Then
If CurrentDate = ReminderDate Then
msgbxReminder = MsgBox("The Invoice for" & " " & CurrentClient & " " & "which is Invoice Number " & " " & CurrentInvoiceID & " " & "is 1 month overdue.")
End If
End If
Next

Thanks all Wink | ;)

Kris MCP

Re: Calculating intervals using Dates

Luc Pattyn16-Jul-08 6:20

Luc Pattyn

16-Jul-08 6:20

Hi,

I think there are at least two flaws:

1.
you should not compare for equality if CurrentDate=ReminderDate, since doing so
you might miss a reminder; you need to use an inequality.

2.
The reminder date depends on the order, so it MUST be calculated inside the ForEach loop,
using data pertaining to the current row.

Hope this helps.

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

Voting for dummies? No thanks. Dead | X|

Re: Calculating intervals using Dates

KrisnNala16-Jul-08 7:21

KrisnNala

16-Jul-08 7:21

Hi Luc,

Thanks for that, I can see what you're saying.

By having the reminder date outside the ForEach loop, it's not being read on each loop.

I've changed the code to

For Each dr As DataRow In Me.DachelDataSet.Invoices.Rows
ReminderDate = DateAdd(DateInterval.Month, 1, InvoiceDate)
If dr("Cleared") Is System.Convert.DBNull And ReminderDate = DateAdd(DateInterval.Month, 1, InvoiceDate) Then
If CurrentDate <> ReminderDate Then
Else
msgbxReminder = MsgBox("The Invoice for" & " " & CurrentClient & " " & "which is Invoice Number " & " " & CurrentInvoiceID & " " & "is 1 month overdue.")
End If
End If
Next
End Sub

However, still getting stuck on 2nd row of table.

Have I misunderstood something? Unsure | :~

Thanks alot

Kris MCP

Re: Calculating intervals using Dates

Luc Pattyn16-Jul-08 7:24

Luc Pattyn

16-Jul-08 7:24

KrisnNala wrote:
If CurrentDate <> ReminderDate

you made it worse!

equals is not good, since that only fores on one specific day, and your code may not run every day.
You need greater-equal.

And is InvoiceDate really the same for every order??? Try to focus a bit.

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

Voting for dummies? No thanks. Dead | X|

Re: Calculating intervals using Dates

KrisnNala16-Jul-08 7:34

KrisnNala

16-Jul-08 7:34

Hi Luc

Sorry getting tired but got to get the contract done.

You say use greater equals? Do you mean >=?

No InvoiceDate is definately not the same, although it can be.

Thanks for your help.

Confused | :confused:

Kris MCP

Re: Calculating intervals using Dates

Guffa16-Jul-08 10:18

Guffa

16-Jul-08 10:18

KrisnNala wrote:
ReminderDate = DateAdd(DateInterval.Month, 1, InvoiceDate)
If dr("Cleared") Is System.Convert.DBNull And ReminderDate = DateAdd(DateInterval.Month, 1, InvoiceDate) Then

The second half of the condition will always be true. You just set the variable to the same value that you are comparing it to.

KrisnNala wrote:
If CurrentDate <> ReminderDate Then
Else

That is the exact same thing as an equality comparison.

What happens if the program is not run every single day? If the reminder date happens to be on the weekend, then on monday it will not be equal any more.

Use ReminderDate <= CurrentDate to get all invoices that has passed the reminder date.

Despite everything, the person most likely to be fooling you next is yourself.

Re: Calculating intervals using Dates

Guffa16-Jul-08 10:18

Guffa

16-Jul-08 10:18

KrisnNala wrote:
InvoiceDate = Me.DachelDataSet.Invoices.Rows(Me.InvoicesBindingSource.Position).Item("InvoiceDate")

You have to get the invoice date inside the loop, otherwise you will use the same invoice date for all records.

Despite everything, the person most likely to be fooling you next is yourself.

Re: Calculating intervals using Dates

KrisnNala16-Jul-08 22:39

KrisnNala

16-Jul-08 22:39

Hi Guff

Thanks alot for your help. Still have a problem that it's not moving through each row of the table. I know it's something really stupid I'm missing but getting annoyed with my self.

Code is now

Dim CurrentDate As Date
Dim ReminderDate As Date
Dim InvoiceDate As Date
Dim msgbxReminder As MsgBoxResult
CurrentDate = Date.Now.Date
For Each dr As DataRow In Me.DachelDataSet.Invoices.Rows
If dr("Cleared") Is System.Convert.DBNull Then
InvoiceDate = Me.DachelDataSet.Invoices.Rows(Me.InvoicesBindingSource.Position).Item("InvoiceDate")
ReminderDate = DateAdd(DateInterval.Month, 1, InvoiceDate)
If ReminderDate <= CurrentDate Then
msgbxReminder = MsgBox("The Invoice for" & " " & CurrentClient & " " & "which is Invoice Number " & " " & CurrentInvoiceID & " " & "is 1 month overdue.")
End If
End If
Next

Thanks Alot Confused | :confused:

Kris MCP

Re: Calculating intervals using Dates

Guffa17-Jul-08 1:15

Guffa

17-Jul-08 1:15

You still read the invoice date from the same data row eventhough you do it inside the loop. Read the invoice date from the data row dr instead.

Despite everything, the person most likely to be fooling you next is yourself.

Re: Calculating intervals using Dates

KrisnNala17-Jul-08 4:13

KrisnNala

17-Jul-08 4:13

Hi Guffa

Thanks alot for your help. All sorted. Big Grin | :-D

Kris MCP

How to compile solution with mutliple project types properly?

Jon_Boy16-Jul-08 4:09

Jon_Boy

16-Jul-08 4:09

I have a solution with a couple projects in VB and CS with the following structure:

Solution: Utils.Net
VB proj: Utilities
CS proj: Utilities.Print

Is there a way to compile the entire solution into 1 .dll called utilities.dll. Is it possible to add all source files into one project and compile that project into a single .dll?

Re: How to compile solution with mutliple project types properly?

Paul Conrad16-Jul-08 4:32

Paul Conrad

16-Jul-08 4:32

Each project should be able to compile individually. Do you have Utilities.Print reference to the utilities.dll that should be generated in the VB Project called Utilities? If so, everything ought to fall right in place.

"The clue train passed his station without stopping." - John Simmons / outlaw programmer

"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon

Re: How to compile solution with mutliple project types properly?

Jon_Boy16-Jul-08 6:15

Jon_Boy

16-Jul-08 6:15

That's what I figured. I thought rather than have a utilities.dll and a utilitiesprint.dll (or referencing the Print class from the utils class), that they could be combined into a single .dll. Not a big deal, just curious if it could be done.

Re: How to compile solution with mutliple project types properly?

darkelv16-Jul-08 15:58

darkelv

16-Jul-08 15:58

Maybe you can look into ILMerge for that.

referencing ocx file

swapg16-Jul-08 3:41

swapg

16-Jul-08 3:41

I have an .ocx file made in vb 6.0 which i wanna use in vb.net 2.0
Could anyone plz tell me how to do that.
I have referenced it buti am not able to use the user-control which it contains. Confused | :confused:

Re: referencing ocx file

Paul Conrad16-Jul-08 4:33

Paul Conrad

16-Jul-08 4:33

Do you have a code example of how you are trying to accomplish this?

"The clue train passed his station without stopping." - John Simmons / outlaw programmer

"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon

Re: referencing ocx file

swapg16-Jul-08 21:29

swapg

16-Jul-08 21:29

I have referenced it by:

Right-clicking the project--->add reference--->browse---> add.

It got added in my project but I am unable to usethe usercontrolthat it contains. How can I do this?

DataGridView

Riaz Ahmed16-Jul-08 1:43

Riaz Ahmed

16-Jul-08 1:43

I want my grid to resize when form is resized but i want to use just anchor and dock properties of the grid.
i.e.
resolution 800,600
grid.location = covering 25% of the bottom part on the form remains
25% when it is maximized

Riaz Ahmed
0300-2668545
Software Engineer
DCCTechnologies
riaz.ahmed@dcc.com.pk

Re: DataGridView

~V~16-Jul-08 2:21

~V~

16-Jul-08 2:21

If u wanna full size of grid as form then u can try this

grid.Dock =DockStyle.Fill

Hope it will help U

Unless u don't give ur hundred percent whatever u r doning till there is no result of ur work...

Re: DataGridView

Jon_Boy16-Jul-08 3:43

Jon_Boy

16-Jul-08 3:43

If I'm understanding you correctly, the anchor property should accomplish this. Try clicking the different anchor points to see how the grid changes accordingly.

Split textbox.text

stepdeb16-Jul-08 1:41

stepdeb

16-Jul-08 1:41

Can you pls help me in showing me how to slpit text after " " and show the text in messageboxes. Thank you.

txtNameSuname.Text = txtNameSurname.Text & txtSurname.Text & txtSurname & " " 'Enters a letter, number and space in Algorthim textbox

End Sub

Re: Split textbox.text

jzonthemtn16-Jul-08 1:55

jzonthemtn

16-Jul-08 1:55