Great DB With Table Full size windows APP

[scott93727]

Great DB Full application
Heres a really nice DB application i made with the table control, no DLL needed. Great for you DB creators that need a very nice DB app with just a exe file, for regular windows !!!!!!!

 

[johnpc]

I guess the data table is missing. Could you supply a small sample? Is there
something else wrong? I am getting an error message re: textFamily.

 

[agraham]

Uncheck Tools -> Check for unassigned/unused variables

 

[scott93727]

Corrected file

Great DB Full application
Heres a really nice DB application i made with the table control, no DLL needed. Great for you DB creators that need a very nice DB app with just a exe file, for regular windows !!!!!!!

See corrected file.

 

[scott93727]

DB Error

I guess the data table is missing. Could you supply a small sample? Is there
something else wrong? I am getting an error message re: textFamily.

See corected file below

 

[ffflll]

great:sign0087:

 

[derez]

Very nice

The use of goto should be avoided as much as possible (it is justified in the case of error recovery).
See the modified subs below:

Sub cmbType_SelectionChanged (Index, Value)
Select index
   Case 0
      label6.Text="Name"
      label7.Text="Address"
      label8.Text="City State"
      label9.Text="Phone"
      label10.Text="Notes"
      label13.Text="Email"
      label14.Text="WWW"
   Case 1
      label6.Text="Business"
      label7.Text="Address"
      label8.Text="City State"
      label9.Text="hours"
      label10.Text="Stock"
      label13.Text="Shipper"
      label14.Text="WWW"
   'table1.AddCol(cString,"Business",175)
   'table1.AddCol(cString,"Address",175)
   'table1.AddCol(cstring,"City State") 'Account Number must be unique.
   'table1.AddCol(cString,"Email",175)
   'table1.AddCol(cString,"Remarks",175)
   'table1.AddCol(cString,"WWW",175)
   'table1.AddCol(cString,"Work",175)
   'table1.AddCol(cstring,"Type",175)
   Case 2
      label6.Text="Retailer"
      label7.Text="Address"
      label8.Text="City State"
      label9.Text="WWW"
      label10.Text="Sale Items"
      label13.Text="Hours"
      label14.Text="Stock"
   Case 3
      label6.Text="Shipper"
      label7.Text="Address"
      label8.Text="City State"
      label9.Text="Phone"
      label10.Text="Frieght"
      label13.Text="Type"
      label14.Text="Hours"
   Case 4
      label6.Text="URL"
      label7.Text="Website"
      label8.Text="Type"
      label9.Text="Email"
      label10.Text="Remarks"
      label13.Text="Service"
      label14.Text="Active"
   Case 5
      label6.Text="Name"
      label7.Text="Email"
      label8.Text="Phone"
      label9.Text="Data"
      label10.Text="Remarks"
      label13.Text="Sex"
      label14.Text="WWW"
   Case 6
      label6.Text="Order"
      label7.Text="Amount"
      label8.Text="Price"
      label9.Text="Shipped"
      label10.Text="Stock"
      label13.Text="Company"
      label14.Text="Shipper"
   Case 7
      label6.Text="Stock"
      label7.Text="Item"
      label8.Text="Amount"
      label9.Text="Cost"
      label10.Text="Remarks"
      label13.Text="Discount"
      label14.Text="Suplier"
   Case 8
      label6.Text="Name"
      label7.Text="Bank"
      label8.Text="Amount"
      label9.Text="Payment"
      label10.Text="Balance"
      label13.Text="Due"
      label14.Text="Check"
End Select
End Sub

and this:

Sub Button17_Click 'rev
Cmbtype.SelectedIndex = typ - 1
typ = typ + 1
End Sub