raniel1314

Posts

Reputation

Joined 13 Years Ago

Last Seen 13 Years Ago

0 Reputation Points

Unknown Quality Score

No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.

0 Endorsements

1 Contribution

Ranked #107.40K

Discussions / Questions x 1

~243 People Reached

Favorite Forums

Software Development x 1

Favorite Tags

visual-basic-6 x 1

[split] Insert problem

13 Years Ago 13 Years Ago

[CODE] Option Explicit Dim rs As ADODB.Recordset Dim savePurpose As String Private Sub getData() Call EnableEntryControls(False) lvRec.ListItems.Clear Set rs = GetRecordset("Select * from tblDocSched") If Not rs.EOF Then 'records exists Call SearchMode(True) While Not rs.EOF lvRec.ListItems.Add , , rs.Fields("PhysicianNo").Value lvRec.ListItems(lvRec.ListItems.Count).ListSubItems.Add , , rs.Fields("PhysicianName").Value lvRec.ListItems(lvRec.ListItems.Count).ListSubItems.Add , , _ IIf(IsNull(rs.Fields("Department").Value), "", rs.Fields("Department").Value) …

Software Development visual-basic-6

243