Joined
Last Seen
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
Ranked #107.41K
With rptSalesEnquiryChecklist Set .DataSource = ar .DataMember = "" With .Sections("Section7").Controls For i = 1 To .Count If TypeOf .Item(i) Is RptTextBox Then Select Case .Item(i).Name Case "txtAddress" .Item(i).DataMember = "" .Item(i).DataField = ar.Fields("Address").Name Case "txtSupplier_Company_Name" .Item(i).DataMember = "" .Item(i).DataField = ar.Fields("Supplier_Company_Name").Name Case "txtSupplier_Name" .Item(i).DataMember = "" .Item(i).DataField = ar.Fields("Supplier_Name").Name … |