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]

Originally Posted by 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 !!!!!!!

See corrected file.

[scott93727]

Originally Posted by 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.

See corected file below

[ffflll]

great

[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