台灣最大程式設計社群網站
線上人數
2031
 
會員總數:244570
討論主題:188711
歡迎您免費加入會員
討論區列表 >> VB6 >> 固定間格的語法
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
固定間格的語法
價值 : 50 QP  點閱數:2644 回應數:17

樓主

老人
門外漢
0 9
214 45
發送站內信

我有一個學校專題的作業,而我負責的部份是搜尋的功能。
我將搜尋到的資料顯示在一個TextBox裡面

顯示畫面如下
大門張三2008/9/31上午11:33:50

程式碼如下
Text.Text = Text.Text & MyRec("名稱").Value & MyRec("姓名").Value & MyRec("時間").Value & vbCrLf

請問有什麼方法可以讓顯示出來的資料自動產生固定的間格
(老師是跟我說有一個語法可以做到)

"我當初是用很多空白鍵= ="

本篇文章發表於2008-11-02 21:30
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
回應

Jones
捐贈 VP 給 Jones 檢舉此回應
加上vbTab看看:
Text.Text = Text.Text & MyRec("名稱").Value & vbTab & MyRec("姓名").Value & vbTab & MyRec("時間").Value & vbCrLf
本篇文章回覆於2008-11-02 21:49
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
作者回應

老人
檢舉此回應
感謝大大
成功了
本篇文章回覆於2008-11-02 22:30
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
作者回應

老人
檢舉此回應
大大
我剛剛發現一個問題

顯示畫面如下
大門 李四 2008/10/31 下午 02:13:11
3F會議室 李四 2008/10/31 下午 02:26:31

因為字數的不同
好像無法排整齊耶
有辦法解決這個問題嗎??
本篇文章回覆於2008-11-02 22:58
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
回應

阿戊
檢舉此回應
可以試試依資料庫欄位中的長度定位...


本篇文章回覆於2008-11-03 00:04
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
5樓
回應

jbuty
捐贈 VP 給 jbuty 檢舉此回應
你要不要用table排比較整齊@@
本篇文章回覆於2008-11-03 15:35
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
6樓
作者回應

老人
檢舉此回應
抱歉,這禮拜期中考,一直沒空寫專題

4樓and5樓兩位大大的語法我剛剛試了一下

4樓大大的語法出現"這不是運算式"的錯誤

5樓大大的好像沒有排耶
而且也沒有空格出來
本篇文章回覆於2008-11-05 20:07
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
7樓
回應

阿戊
檢舉此回應
你用的是什麼資料庫...以及連線的方式???
本篇文章回覆於2008-11-05 21:27
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
8樓
作者回應

老人
檢舉此回應
我是用ACCESS

連線方式??
本篇文章回覆於2008-11-05 23:39
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
9樓
回應

阿戊
檢舉此回應
阿戊說的也是Access(實測也是用Access)...只是是用ADODB.recordset去連...DefinedSize應該都通用...吧!
至於你說的 "這不是運算式"...應該不是完整錯誤訊息...也不是屬性或方法不對...感覺倒像是泥漏打了什麼...(猜的~)
本篇文章回覆於2008-11-06 00:40
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
10樓
作者回應

老人
檢舉此回應
剛剛又試了一次
發現錯誤好像不是運算式(抱歉)

執行錯誤階段"3265"
在所要求的名稱或序數的相關集合物件中找不到此項目
本篇文章回覆於2008-11-07 00:00
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
11樓
回應

阿戊
檢舉此回應
所以才需要你提供連線的方式...(不是每種方式都有提供.DefinedSize)
或是...
你就直接找找用ADODB的方法(網上或版上應該有一拖拉庫~)...就有DefinedSize可知欄位原本定義的欄位大小了~(內容不可能會大於欄位大小的!就算全被填滿還是對得齊!)
本篇文章回覆於2008-11-07 00:27
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
12樓
作者回應

老人
檢舉此回應
阿戊大大
真的很抱歉
因為專題報告的時間快到了
所以老師要求我們趕快把功能做出來
不要再搞這種小問題了
有間格就好了
本篇文章回覆於2008-11-07 15:05
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
13樓
回應

阿戊
檢舉此回應
不然你就是直接給它長度:
Text.Text = Text.Text & Format(MyRec("名稱"), "!@@@@@@@@@@")) & " " & Format(MyRec("姓名"), "!@@@@@@@@@@")) & " " & Format(MyRec("時間"), "!@@@@@@@@@@") & vbcrlf

這樣就是每欄都是以10為定位長度了~需要多長就打幾個@在堶惕Y可!
本篇文章回覆於2008-11-07 16:07
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
14樓
回應

阿戊
檢舉此回應
時間欄位可以改成這樣:
Format(MyRec("時間"), "YYYY/MM/DD HH:NN:SS")
本篇文章回覆於2008-11-07 16:09
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
15樓
回應

阿戊
檢舉此回應
出來的結果就會變成:
大門    李四    2008/10/31 14:13:11
3F會議室 李四    2008/10/31 14:26:31
本篇文章回覆於2008-11-07 16:11
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   

回覆
如要回應,請先登入.