繁體瀏覽工具設為首頁收藏本站
 找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
發表文章前請先閱讀相關版規搞笑、娛樂、精彩的影片讓你看你準備好成為出色的版主了嗎？
伊莉討論區 › 論壇 › 電腦資訊 › 電腦程式設計 › Visual Basic 語言 › 圖書借閱系統借還書語法疑問
三上悠亞cosplay偷拍催眠geadobe無碼 ge
我的弟子軟妹搖搖apns109鄉村火炮the p○d海龍
休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

(4月新番)[繁]為美好
(4月新番)[簡]怪異與
[超清繁中]霹靂英雄戰

(4月新番)[繁]狼與辛
[繁]怪異與少女與神隱
[繁]格林童話變奏曲02
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
返回列表發新帖

查看: 5295|回復: 4
打印上一主題下一主題

[求助]圖書借閱系統借還書語法疑問[複製鏈接]

tryit244178

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
155
積分
1287 點
潛水值
47865 米
樓主
發表於 2017-1-23 05:36 PM|顯示全部樓層
上傳頭像立即獲得 1 點積分。
本帖最後由 tryit244178 於 2017-2-4 01:51 PM 編輯

把你那串原始碼的第 2 行到第 5 行貼到增加的按鈕裡
然後把 TextBox2.Text = A.Offset(, 1) 改成
  1. A.Offset(, 3).Value = "書藉編號"
  2. A.Offset(, 4).Value = "書名"
  3. A.Offset(, 5).Value = "借出日期"
  4. A.Offset(, 6).Value = "應還日期"
複製代碼
註：等號後面自已改成相對應的TextBox

而刪除鈕則是改成
  1. A.Offset(, 3).Value = ""
  2. A.Offset(, 4).Value = ""
  3. A.Offset(, 5).Value = ""
  4. A.Offset(, 6).Value = ""
複製代碼




...
瀏覽完整內容，請先 註冊 或 登入會員
上傳頭像立即獲得 1 點積分。

使用道具檢舉

tryit244178

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
155
積分
1287 點
潛水值
47865 米
頭香
發表於 2017-1-24 02:36 AM|顯示全部樓層
上傳頭像立即獲得 1 點積分。
本帖最後由 tryit244178 於 2017-1-24 02:37 AM 編輯

Set A = .Columns("A").Find(13, lookat:=xlWhole)
因為A沒找到值
所以下一行的 A.Offset(, 3).Value = "書藉編號" 就會出錯。A是Nothing呀！

那麼你該加入的判斷式就在這，要判斷A是不是Nothing
  1. If A Is Nothing Then
  2.    Msgbox "資料輸入錯誤"
  3. Else
  4.    A.Offset(, 3).Value = "書藉編號"
  5.    A.Offset(, 4).Value = "書名"
  6.    .
  7.    .
  8.    .
  9. End If
複製代碼
...
瀏覽完整內容，請先 註冊 或 登入會員

點評

tryit244178 太久沒用VB的偵錯的功能，有點忘了怎麼用XD  發表於 2017-1-24 02:40 AM
伊莉影片

使用道具檢舉

tryit244178

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
155
積分
1287 點
潛水值
47865 米
3樓
發表於 2017-2-3 06:47 AM|顯示全部樓層
升級為尊貴會員或贊助會員，讓你擁有自由、暢通無阻、應有盡有及所有資源任你使用的無窮快感。
本帖最後由 tryit244178 於 2017-2-3 07:07 AM 編輯

你要拿姓名來比對？
那…直接用TextBox2.Text不就好了。口。？
(TextBox2應該是姓名的吧)
若瀏覽伊莉的時侯發生問題或不正常情況，請使用Internet Explorer(I.E)。

使用道具檢舉

tryit244178

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
155
積分
1287 點
潛水值
47865 米
4樓
發表於 2017-2-4 12:49 PM|顯示全部樓層
分享使你變得更實在，可以使其他人感到快樂，分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。
本帖最後由 tryit244178 於 2017-2-8 10:21 AM 編輯

要出現在工作表2的話，把下面的程式碼改成
  1.     With 工作表2
  2.         .Activate
  3.         If .Range("A2").Value = "" Then
  4.             .Range("A2").Value = TextBox1.Text
  5.             .Range("B2").Value = TextBox2.Text
  6.             .Range("C2").Value = TextBox3.Text
  7.             .Range("D2").Value = TextBox4.Text
  8.             .Range("E2").Value = TextBox5.Text
  9.         Else
  10.             .Range("A" & Range("A1").CurrentRegion.Rows.Count + 1).Select   ' 指定到空白行
  11.             ActiveCell.Offset(, 0).Value = TextBox1.Text
  12.             ActiveCell.Offset(, 1).Value = TextBox2.Text
  13.             ActiveCell.Offset(, 2).Value = TextBox3.Text
  14.             ActiveCell.Offset(, 3).Value = TextBox4.Text
  15.             ActiveCell.Offset(, 4).Value = TextBox5.Text
  16.         End If
  17.     End With
複製代碼
...
瀏覽完整內容，請先 註冊 或 登入會員
如果發覺自己無法使用一些功能或出現問題，請按重新整理一次，並待所有網頁內容完全載入後5秒才進行操作。

使用道具檢舉

tryit244178

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
155
積分
1287 點
潛水值
47865 米
5樓
發表於 2017-3-4 11:59 AM|顯示全部樓層
分享使你變得更實在，可以使其他人感到快樂，分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。
本帖最後由 tryit244178 於 2017-3-4 12:53 PM 編輯
zbc231 發表於 2017-3-2 01:32 AM
下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

再次請問，照上述的寫法，
如A1中沒有資料，
textbox1-5將會被填入a2,b2,c2,d2,e2中，
...
瀏覽完整內容，請先 註冊 或 登入會員





成為伊莉的版主，你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛，那種滿足感等著你來嚐嚐喔。

使用道具檢舉

返回列表發新帖
高級模式
BColorImageLinkQuoteCodeSmilies
您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

重要聲明：本討論區是以即時上載留言的方式運作，對所有留言的真實性、完整性及立場等，不負任何法律責任。而一切留言之言論只代表留言者個人意見，並非本網站之立場，用戶不應信賴內容，並應自行判斷內容之真實性。於有關情形下，用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。 由於本討論區受到「即時上載留言」運作方式所規限，故不能完全監察所有留言，若讀者發現有留言出現問題，請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言，同時亦有不刪除留言的權利。切勿上傳和撰寫 侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論，敬請自律。本網站保留一切法律權利。
回頂部