史萊姆論壇

返回   史萊姆論壇 > 專業主討論區 > 程式語言討論區
忘記密碼?
論壇說明

歡迎您來到『史萊姆論壇』 ^___^

您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的!

請點擊這裡:『註冊成為我們的一份子!』

Google 提供的廣告


 
 
主題工具 顯示模式
舊 2010-01-10, 10:06 PM   #4 (permalink)
註冊會員
榮譽勳章

勳章總數
UID - 335293
在線等級: 級別:0 | 在線時長:1小時 | 升級還需:4小時
註冊日期: 2010-01-05
文章: 2
精華: 0
現金: 3 金幣
資產: 3 金幣
預設

你好!!感謝大大的回覆^^~
我們要做的好像不是資料庫
而是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 分別都會出現該借閱書籍的資料

也許我的程式碼哩哩拉拉= = 但還是請前輩們多多指教~ 謝謝^^
冬瓜茶加珍珠 目前離線  
送花文章: 0, 收花文章: 0 篇, 收花: 0 次
回覆時引用此帖
 



發表規則
不可以發文
不可以回覆主題
不可以上傳附加檔案
不可以編輯您的文章

論壇啟用 BB 語法
論壇啟用 表情符號
論壇啟用 [IMG] 語法
論壇禁用 HTML 語法
Trackbacks are 禁用
Pingbacks are 禁用
Refbacks are 禁用

相似的主題
主題 主題作者 討論區 回覆 最後發表
WINXP 啟動失敗~ 求教各位前輩們~ rayho 軟體應用問題討論區 2 2003-01-29 09:50 AM
各位前輩何處找到聰明包牌法軟體? www168 一般電腦疑難討論區 0 2002-12-23 08:56 AM
各位前輩何處找到聰明包牌法軟體? www168 一般電腦疑難討論區 0 2002-12-23 08:51 AM


所有時間均為台北時間。現在的時間是 01:35 PM


Powered by vBulletin® 版本 3.6.8
版權所有 ©2000 - 2025, Jelsoft Enterprises Ltd.


SEO by vBSEO 3.6.1