I got this to work with
$Revision:: $
instead of
$Revision: $
as in the SourceSafe documentation.
This is due to a Word doc being a binary file, and SourceSafe changing the size of the file.
Using a double colon, and as many spaces as you require for the max size you would expect, should...
Just a slight mod to dragon's code...
<CFSET date1 = "01 Jan 2000">
<CFSET date2 = "01 Jan 2001">
<Cfoutput>
<Cfset numMonths = DateDiff("m", date1, date2)>
<cfloop index="a" from = "1" to ="#numMonths#">...
Here is the code I used in the MSFlexGrid control
Private Sub grdParts_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim lngCount As Long
Dim lngRow As Long
For lngCount = 1 To grdParts.Rows
If grdParts.RowIsVisible(lngCount) = True Then...
AS krisbrixon's reply, but replace the single quotes as follows
where EventDate >= ###currentdate## 12:00:00 AM#
and EventDate <= ###currentdate## 11:59:59 PM#
You could do it in Query Analyser using a temporary table
-- First select only unique records
SELECT DISTINCT *
INTO #TempTable
FROM YourTableName
-- Empty your original table
TRUNCATE TABLE YourTableName
-- Repopulate it
INSERT INTO YourTableName
SELECT * FROM #TempTable
--Delete the temp...
Not the best bit of code, but I believe it works ....
Dim strValue As String
Dim strDecimal As String
Dim intValue As String
strValue = CLng(Text1.Text * 1000)
intValue = Fix(Text1.Text)
Select Case CInt(Right(strValue, 3))
Case 0...
Heres a bit of VB code
Note: there is no error checking
Dim strValue As String
strValue = CInt(Text1.Text * 100)
Select Case Left(strValue, 1)
Case 1, 2, 3, 4
Mid(strValue, Len(strValue) - 1, 1) = "5"
Case 5, 6, 7, 8, 9...
The best way is to create some dynamic VBScript.
You will have to edit the field names but should at least get you started....
<CFQUERY datasource="XXXXXXXXX" NAME="CarTypeDD">
SELECT Car_id, Car_Description, Car_Make, Car_Model, Car_Year
FROM Pubs.dbo.Car_Info...
Use the ItemData Property to hold the YardID
Loop through the Objects
Combo1.AddItem Object.Yard
Combo1.ItemData(Combo1.NewIndex) = Object.YardID
Private Sub Combo1_OnClick()
Msgbox Combo1.ItemData(Combo1.ListIndex)
End Sub
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.