1樓：匿名使用者
重新整理ado 和 datagrid
adodc1.refresh
datagrid1.refresh
這裡是顯示資料.
你要是用一個ado控制元件的話，就要每次改變ado資料來源.
我瞭解你的意思，不同條件，就代表ado的資料來源變了哇，你得每次改變資料來源，改變後重新整理ado控制元件，這樣就可以出來了。
如：這是第一次顯示：adodc1.recordsource = "select * from table"
adodc1.refresh
顯示資料
這是第二次顯示：adodc1.recordsource = "select * from table where id=5"
adodc1.refresh
顯示資料
2樓：匿名使用者
連線是不用斷開的,查詢時最好是先清空前一個記錄物件再建一個.
vb高手請進，有問題請教
3樓：網海1書生
你的這些datagrid最好做成控制元件陣列，而且其index要和sstab的tab號一一對應。另外介面上再放一個adodc控制元件，和資料庫連線好，並且設為不可見的。這樣就簡單了：
private sub sstab1_click(previoustab as integer)
adodc1.recordsource = "select * from " & sstab1.caption
adodc1.refresh
set datagrid1(sstab1.tab).datasource = adodc1
end sub
如何實現vb中用datagrid控制元件顯示資料？ 10
4樓：匿名使用者
set datagrid.datasource = adodc
將這句的「datagrid」換成datagrid控制元件的名稱
vb程式設計高手請進！！急急急 100
5樓：匿名使用者
第一題:
'編寫過程計算1+1/2+1/3+….+1/100private function sum()dim i as integer
for i = 1 to 100
sum = sum + (1 / i)
next
end function
'2．編寫過程列印如下圖形
'* '* *
'* * *
'* * * *
private sub printstr()dim i as integer
for i = 1 to 4
for j = 1 to i
print "* "
next
print chr(13)
next
end sub
跟你講講思路和方法行，幫你做現成的，那是害你。
現在的人，都不喜歡自己努力，喜歡得現成的，實在是看不過眼。
6樓：匿名使用者
第一題:
'編寫過程計算1+1/2+1/3+….+1/100private function sum()dim i as integer
for i = 1 to 100
sum = sum + (1 / i)
next
end function
'2．編寫過程列印如下圖形
'*'* *
'* * *
'* * * *
private sub printstr()dim i as integer
for i = 1 to 4
for j = 1 to i
print "* "
next
print chr(13)
next
end sub
第二題已發到你的郵箱
第三題已發到你的郵箱
第四題已發到你的郵箱
7樓：來自龍泉山顧盼生輝的小熊貓
跟你講講思路和方法行，幫你做現成的，那是害你。
現在的人，都不喜歡自己努力，喜歡得現成的，實在是看不過眼。
vb程式設計mscomm控制元件問題?高手請進
8樓：匿名使用者
option explicit
dim strdata as string
private sub form_load()
mscomm1.commport = 1 'com埠
mscomm1.settings = "9600,n,8,1"
mscomm1.inputmode = cominputmodetext
mscomm1.inbuffercount = 0 '清空接受緩衝區
mscomm1.outbuffercount = 0 '清空傳輸緩衝區
mscomm1.rthreshold = 1 '產生mscomm事件
mscomm1.inbuffersize = 1024
mscomm1.portopen = true
text1 = ""
end sub
private sub mscomm1_oncomm() '接收資料
dim bytreceived() as byte
dim strbuff as string
select case mscomm1.commevent
case 2
mscomm1.inputlen = 0
strdata = strdata & mscomm1.input
'資料處理**
if left(strdata, 1) = "#" and right(strdata, 1) = "!" then
text1 = strdata
else
strdata = ""
end if
end select
end sub
9樓：
首先要知道你串列埠裝置返回的是asc碼,還是16進位制數
mscomm1.inputmode = cominputmodetext '返回的asc碼
do while mscomm1.inbuffercount>1
if instr(mscomm1.input,"#")<>0 then
me.text1.text=me.text1.text & mscomm1.input
doevents
end if
if instr(mscomm1.input,"!")<>0 then exit do
loop
vb中datagrid控制元件即時重新整理問題
10樓：匿名使用者
我是這樣做的,你參考一下
adodc1.recordsource = "select * from tb_stu where 性別='" + combo2.text + "'"
adodc1.refresh
set datagrid1.datasource = adodc1
11樓：三斷笛
重新查詢後再重新繫結記錄集，再重新整理
12樓：匿名使用者
只需要把每次查詢出來的資料集datagird重新繫結就行了呀。。根本不需要什麼refresh//
vb中的datagrid 控制元件如何增加列數？
13樓：du瓶邪
datagrid1.visiblerows
返回一個整數，其範圍從 0 到 datagrid 控制元件的 rows 屬性所設定的行數。visiblerows 屬性包含全部或部分可見的 datagrid 控制元件行
14樓：
都說的太複雜了，只需要在控制元件那點右鍵，選擇追加就增加了。
vb高手請進來看看，急急急~~~~ 20
15樓：望月閣中文
新見一個窗體，a
單擊的時候，在單擊事件裡寫a.show()
16樓：匿名使用者
先要把待顯示窗體設定為隱藏屬性，然後在按鈕裡面加**把這個窗體的屬性改為顯示，已經過好好幾年了，具體**我忘記了，你自己查下。
17樓：匿名使用者
樓上說的已經很清楚了
VB裡的timer控制元件
可以一次在timer裡執行兩次或多次。如果你要在短時間內迴圈執行一個指令可以使用for語句或迴圈呼叫自定函式，但是如果你要長時間迴圈一個語句只能用timer控制元件。使用for或迴圈呼叫自定函式都會造成程式假死。自己 再 在裡面 寫個 迴圈 就是 每次 觸發 執行 多次 這樣就行。見註釋。optio...
vb程式設計計算，VB程式設計計算 1 2
private sub command1 click dim i as integer,j as integerdim l as long,h as longfor i 1 to 10 h 1 for j 1 to i h h j next l l h next print l end sub pr...
vb程式設計教程答案，vb程式設計教程答案
option explicit private sub command1 click dim a as integer dim i,j,n redim a 9,9 for i 1 to 8 print tab 25 i 2 for j 1 to i a i,1 1 a i,i 1 a i 1,j 1...