Hi
I had many textboxes, check box, combo box, radio button, well...many objects in a tab control (let's called it Tab1)
I had to move all them in a new tab control (called tab2)
Since I moved them, all the events that I have for all of them doesn't occured. For example, if I had code in my...
Hi
I have a datagrid which I display all lines that I have for a job.
As my lines has revision also, I have to do a filter when I add a new revision for a specific row to see only the last revision in my datagrid.
for example I have the line
1 rev 0
1 rev 1
2 rev 0
2 rev 1
2 rev 2
I display...
Ooopss Sorry about that
Dim DRPUBLICVIEW As DataRowView
m_DataLayer.DvPool = m_DataLayer.DsPool.Tables("Pool_type").DefaultView
m_DataLayer.DvPool.RowFilter = mForm.sfilter
dr = m_DataLayer.DvPool.Item(NoSeq)
Me.DRPUBLICVIEW = dr
DRPUBLICVIEW.Item("OccupiedAF") and...
Hi
I have two lines:
DRPUBLICVIEW.Item("OccupiedAF") = Me.OccupiedAf.Text
DRPUBLICVIEW.Item("unOccupiedAF") = Me.UnoccupiedAF.Text
which both fields in my DrPublicView are Decimal.
In the both textbox I have the value 8.
on the second line it prompt me this error message: "There is no row at...
Hi Christiaan
I have a similar problem.
Here it is:
I execute this code:
Dim teste As String
teste = CType(actl3.Checked, Boolean) & " " & CType(Me.TempImperial, Boolean)
If CType(actl3.Checked, Boolean) <> CType(Me.TempImperial, Boolean) Then haschanges = 1
In the teste variable it put "True...
Hi
I compare this where ChkSpaceHeatingCoil is a checkbox in my form and where DRPUBLICVIEW.Item("Space_heating_coil") is a field that I have in my table that is declared as integer. When ChkSpaceHeatingCoil.Checked is set to True I put 1 in my record. Now this :
If...
I found how to resolve it:
Dim str1 As String
Dim str2 As String
str1 = Trim(dr.Item("Job_type"))
str2 = Trim(Me.JobType.SelectedValue)
If str1 <> str2 Then dr.Item("Job_type") = Me.JobType.SelectedValue
This is working.
No
I load my record. And, for the testing, i'm only trying to save (because if it has no change done I don't want to save it (create a new revision) but if it has changes I want to create a new revision). So as I didn't change anything between the Load record in my form and the save record. It...
yeah it's kind of that.
I want to create a new revision of a job only when changes has been done.
It detects the "haschange" properties as soon as I do an assignment even if both values are equal. This, I don't understand why...
that's why I put an if statement.
Hi
I have a problem. I would like to update a field in a dataset only when it's different to the value in the form.
I saw that it passed as if it was different. I put messages boxes to see if they were different but it seems like it's the same. Does somebody understand why it does this...
heheheh
Happy to see I'm not the only one!
I have another question...After that I think that I'm gonna be a pro with the "Mod".
I'm trying to take off everything after the decimal. So I would like to have an integer. But I can't convert it to the integer because it still have a value after the...
on the number 123.456
this return me 3:
Dim digit As Integer
digit = (chiffre * 1) Mod 10 Mod 10 - (((chiffre / 1) Mod 10) Mod 1)
MsgBox(digit)
this return me 0:
Dim digit As Integer
digit = (chiffre * 10) Mod 10 Mod 10 - (((chiffre / 10) Mod 10) Mod 1)
MsgBox(digit)
what if I would like to retrieve the first decimal.
For example.
123.456
I would like to retrieve 4
I tried with the minus sign but doesn't seems to work.
Thanks in advance
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.