You can read the row value into a variable(F("rowval")) and see if it is
not ""(empty/blank) if it is blank you are at the end of the rows.
Some Pseudo code:
Sub MyRowCount
Dim RowCount As Integer
Dim Y As Integer
Dim sHasValue As String
RowCount = 0
'MsgBox sStartingRow
For Y =0 To 10000
sHasValue = View(Row:=Y, Col:=1, Length:=5) --> this is the first
row in the list. Your Col and Row vals might be different.
If Trim(sHasValue) <> "" Then
Else
'Do something as u are at the last empty row.
Exit for
End If
Next Y
F("RowCount") = RowCount
End Sub
Ranjit M Bendapudi
Meditech Service Center
CSC
5209 Linbar Dr., Nashville, TN 37211
P: +1-615.662-7775 |direct: +1- 615.493.9070 |[email protected] |
www.csc.com
This is a PRIVATE message. If you are not the intended recipient, please
delete without copying and kindly advise us by e-mail of the mistake in
delivery.
NOTE: Regardless of content, this e-mail shall not operate to bind CSC to
any order or other contract unless pursuant to explicit written agreement
or government initiative expressly permitting the use of e-mail for such
purpose.
[email protected]
08/20/2009 11:07 AM
Please respond to
[email protected]
To
[email protected]
cc
Subject
[talkbws] Shifting row in Meditech
Group,
I am writing a script for Meditech Client Server 5.6 PP
It goes to the bottom of a list and adds a new entry. How do I let the row
position be variable. When I record the data station enter it is on Row 15
but the next entry may be on row 20. (it depends how long that list is)
-Kevin
---
To post a message to this list, send mail to: [email protected]
You are currently subscribed as: [email protected]
Unsubscribe in the customer center on our website:
http://www.bostonworkstation.com/customer_center/virtual_user_group_talk.aspx
---
To post a message to this list, send mail to: [email protected]
You are currently subscribed as: [email protected]
Unsubscribe in the customer center on our website:
http://www.bostonworkstation.com/customer_center/virtual_user_group_talk.aspx
