你好!!感謝大大的回覆^^~
我們要做的好像不是資料庫
而是VB2008~
我有自己努力把程式碼打出來，但根本不像樣= = 除錯之後一直怪怪的
我有做好控制項但好像沒辦法PO上來給大大看
我只能PO我打的程式碼了，請參閱 (但還沒完成QQ)
Public Class frmBooksOreder
Dim money(100) As Integer
Private Sub frmBooksOreder_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
loadcmbBooks()
End Sub
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
Dim cho As String = ""
Dim cup As Integer = Val(cmbCup.Text)
If (cmbBooks.SelectedIndex <> -1 And cmbCup.SelectedIndex > 0) Then
cho = cmbBooks.Text & "," & cmbBooks.SelectedIndex & "," & cmbCup.Text
lstItem.Items.Add(cho)
txtTotal.Text += cup
txtMoney.Text += cup * money(cmbBooks.SelectedIndex)
btnAdd.Enabled = False
clearItems()
If lstItem.Items.Count > 0 Then btnSave.Enabled = True
End If
End Sub
End Class
我想要出的概念是在用書籍編號、書籍名稱的ComboBox 選取資料後
按下新增按鈕 然後在交易編號、租借數量(本)、總金額的textbox
以及 租書明細表的ListBox 分別都會出現該借閱書籍的資料
也許我的程式碼哩哩拉拉= = 但還是請前輩們多多指教~ 謝謝^^
|