史萊姆論壇

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

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

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

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

Google 提供的廣告


發文 回覆
 
主題工具 顯示模式
舊 2006-06-14, 07:26 PM   #1
saltv2 帥哥
註冊會員
榮譽勳章
UID - 20474
在線等級: 級別:15 | 在線時長:318小時 | 升級還需:2小時級別:15 | 在線時長:318小時 | 升級還需:2小時級別:15 | 在線時長:318小時 | 升級還需:2小時級別:15 | 在線時長:318小時 | 升級還需:2小時級別:15 | 在線時長:318小時 | 升級還需:2小時
註冊日期: 2003-01-01
VIP期限: 2007-10
住址: 浩瀚宇宙
文章: 135
精華: 0
現金: 1120 金幣
資產: 5120 金幣
預設 程式 - 請問VB+DB問題

我們期未要交一個作業,現在卡在一個地方,
請各位先進先看下圖
http://weli.myweb.hinet.net/vbp.JPG

我的問題卡在
如果我點選圖中的資料庫欄位(Data Grid),然後下面的text會顯示姓名(這裡目前沒問題)
問題是,我如何把性別顯示於Option欄位裡呢??
姓名的話可以使用類以以下的code....text1.text = adodc1.recordset.fields("name")
因為姓名欄位是字串,所以直接從資料庫裡讀出字串即可
但是
但性別那種option欄位我就不會玩了
因為性別是字串,但是option欄位我不知他的運作方式是如何,所以我不會設
但又一定要用option這咚咚
可否請大大教我一下
目前卡在這裡而己..
謝謝各位先進...
saltv2 目前離線  
送花文章: 5, 收花文章: 4 篇, 收花: 6 次
回覆時引用此帖
舊 2006-06-14, 09:48 PM   #2 (permalink)
管理版主
 
mini 的頭像
榮譽勳章
UID - 4144
在線等級: 級別:96 | 在線時長:9694小時 | 升級還需:103小時級別:96 | 在線時長:9694小時 | 升級還需:103小時級別:96 | 在線時長:9694小時 | 升級還需:103小時級別:96 | 在線時長:9694小時 | 升級還需:103小時級別:96 | 在線時長:9694小時 | 升級還需:103小時級別:96 | 在線時長:9694小時 | 升級還需:103小時
註冊日期: 2002-12-07
文章: 13261
精華: 0
現金: 26261 金幣
資產: 3024071 金幣
預設

option
是很單純的元件
可以直接
If Option1 Then

也可以明確使用
If Option1.Value Then

您的程式碼應用可以試試
語法:
If adodc1.recordset.fields("sex") = "男" Then
 Option1.Value = True '男
Else
 Option2.Value = True '女
EndIf
mini 目前離線  
送花文章: 2001, 收花文章: 7962 篇, 收花: 26757 次
回覆時引用此帖
舊 2006-06-15, 11:42 PM   #3 (permalink)
長老會員
榮譽勳章
UID - 11733
在線等級: 級別:17 | 在線時長:390小時 | 升級還需:6小時級別:17 | 在線時長:390小時 | 升級還需:6小時級別:17 | 在線時長:390小時 | 升級還需:6小時級別:17 | 在線時長:390小時 | 升級還需:6小時級別:17 | 在線時長:390小時 | 升級還需:6小時級別:17 | 在線時長:390小時 | 升級還需:6小時級別:17 | 在線時長:390小時 | 升級還需:6小時
註冊日期: 2002-12-14
文章: 11
精華: 0
現金: 15509 金幣
資產: 20509 金幣
預設

引用:
作者: mini
option
是很單純的元件
可以直接
If Option1 Then

也可以明確使用
If Option1.Value Then

您的程式碼應用可以試試
[code]
If adodc1.recordset.fields("sex") = "男...
直接引用Datagrid裡的資料就可以了
Private Sub DataGrid1_Click()
DataGrid1.Col = 2
Text1.Text = DataGrid1.Text
DataGrid1.Col = 3
if DataGrid1.Text = "男" then
Option1(0).Value = True
else
Option1(1).Value = True
end if
End Sub
august 目前離線  
送花文章: 4, 收花文章: 0 篇, 收花: 0 次
回覆時引用此帖
發文 回覆



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

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


所有時間均為台北時間。現在的時間是 02:25 PM


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


SEO by vBSEO 3.6.1