vb list1替換成text
1樓：網友
你是要兩個文字框不能輸入相同值嗎。
直接替換即可。
private sub command1_click()dim myval as long
if = then
msgbox "系統不允許重複輸入，請重新輸入"
exit sub
end if
end sub
己經用不著for迴圈了。
2樓：網友
沒看懂你意思啊。
private sub command1_click()for i = 1 to len(text2)if mid(text2, i, len(text1)) text1 then
msgbox "系統不允許重複輸入，請重新輸入"
goto re
end if
next i
vbcrlf &
re:end sub
是不是這樣？呵呵，沒轉過彎來，不好意思！應該可以了~
vb 中list1.additem text1.text &""&text2.text &""&text3.text&""&_是什麼意思
3樓：網友
意思是把text1,text2,text3中的內容連線起來顯示在list1中。
vb連線sql 資料庫名，ip ，密碼都用text1.txt,text2.txt,text2.txt,代替
4樓：網友
???應該是吧，改成如下（注意物件屬性和字串的連線）：
str = provider=;user id=sa;password=" & initial catalog=" & data source="
5樓：瀟湘悠竹
寫法有問題，正確寫法：initial catalog='" &
您好，我是vb興趣愛好者請問vb新增text1，text2，text3，text4，text5,內容到access，同時在list1中顯示
6樓：網友
'窗體設計：
新增5個"text"控制項。
先從資料庫調出資料。
dim connectionstring as string
set conn = createobject("")
dbs = 」"'=資料庫路徑=
connectionstring = "dbq=" + dbs + ";driver=;pwd="
connectionstring
sql = "select * from aaa"』=sql語句：查詢aaa表=
set rs =
if not then'=排錯語句，如果"aaa"表沒有資料則跳過=
do while not 顯示完所有記錄後跳出迴圈=
set itmx = , "key" & rs("id"), rs("自動編號"))
" & rs("姓名")
" & rs("**")
" & rs("位址")loop
獲取點選"listview"控制項的一行資料。
用selecteditem獲取滑鼠點選的行數。
subitems獲取列。
text1=」aaa「
text2=
text3=
text4=
text5=
如果你還需要向資料庫新增資料用下面的模組。
dim connectionstring as string
set conn = createobject("")
dbs = 」'=資料庫路徑=
connectionstring = "dbq=" + dbs + ";driver=;pwd="
connectionstring
exec = "insert into aaa(id,名稱，**，位址)values('" + text1 + "','" + text2 + "','" + text3 + "','" + text4 + "')"
exec
vb進。為什麼text2輸出的全是
7樓：岔路程式緣
你只要把st = st & p改成。
st = st & a
就可以啦！！！
vb text2 = a(4, 1, 1) 隨機
8樓：
private sub command1_click()dim tempn as integer
randomize 『-隨機數種子。
tempn = rnd * 80 + 1 '--隨機數text2 = a(tempn, 1, 1)end sub
vb缺少語句結束的問題 private sub command1_click() list1.additem text1.text & " " &text2.text& " " &
9樓：網友
**中的& 與變數名之間應該有空格隔開，你可以直接複製下面的**，然後貼上，修改如下：
private sub command1_click()dim hh%, mm%, ss%, totals!
dim outstr$
hh = val(text1)
mm = val(text2)
ss = val(text3)
totals = hh * 3600 + mm * 60 + ssoutstr = hh & "小時 " & mm & "分 " & ss & "秒"
outstr = outstr & vbcrlf & "總計：" & totals & "秒"
msgbox outstr, ,"輸出結果"
end sub
10樓：
我說，你好像「&」前後沒加空格。。。
photoshop怎麼把裡面顏色替換成另一種顏色
沒你說的上面那種功能 不過ps裡面有替換顏色這功能 你按ctri u 裡面有個替換顏色 比如你想把mm的衣服紅色換成其他顏色選取選種mm的衣服 然後調節就可以了 ps怎麼直接把一種顏色替換成另一種 一般來說，選擇魔棒是最簡單的了，但是你要是不滿意魔棒的效果也可以用可選專顏色來調一屬下。在影象選單那裡...
如何批命名替換成為新檔名，如何批命名替換成為新檔名
兩個步驟就好 1 ctrl a 全選，2 然後右擊選擇 重新命名 就好了，其實跟一般單個的重新命名一樣。只是這樣以後 所有一起重新命名的檔案的名稱後面都會加上數字，不過你反正要改，順手刪了就好 如果兩邊檔案100 一一對應，做個批處理搞定。說出來可能有點麻煩，給我個遠端3分鐘搞定。選定所有檔案以後 ...
excel批量把一組數字替換成一組文字
把問題作為內容 郵件主題一定要包含 excel 本人以此為依據辨別非垃圾郵件 excel樣表檔案 請特別注意 要03版的 如果是03以後的，把檔案 另存為 一下，型別框可以選擇03的 把現狀和目標效果表示出來 作為附件發來看下 yqch134 163.簡單 你只要按ctrl v 就可以得出來查詢和替...