1樓：匿名使用者
**中第四列的**號碼要不是空的話，
if grid1.cell(i, 4).text <> "" then
則從洞南表中讀**號碼資料，
set ks1 = cnn.execute("select **號碼 from 洞南 where **號碼='" & grid1.cell(i, 4).text & "'")
如果沒有記錄則把**中的這一行記錄寫到洞南表中，
if ks1.eof = true then
set ks2 = cnn.execute("insert into 洞南 values('" & grid1.cell(i, 1).
text & "','" & grid1.cell(i, 2).text & "','" & grid1.
cell(i, 3).text & "','" & grid1.cell(i, 4).
text & "','0')")
否則提示管理區存在。
msgbox "第" & i & "行的管理區已存在，系統自動跳過!", vbinformation, "提示"
2樓：
新增新的聯絡人的**號碼，上半段是判斷該聯絡人的**號碼是否已存在於資料庫中，不存在則新增該號碼
vb提問 程式設計
3樓：遠風的夢想家
dim a(11, 11) as longdim b(11) as string
dim i as byte
dim j as byte
private sub command1_click()a(0, 0) = 1
for i = 1 to 10
for j = 1 to 10
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
if a(i, j) <> 0 then
b(j) = b(j - 1) & " " & a(i, j)end if
next
print b(i)
next
end sub
4樓：匿名使用者
你的眼中。你是路上
你還像一棵冬小麥匍匐在北方。
我靠近著擺姿勢，我的手
婚禮的動靜，
等等，等等。這樣便切合時宜。
留中的張望。哈哈
vb程式設計計算VB程式設計計算
第一種 對比計算privatesub mand1 click timer1.enabled truetimer1.interval 1 計算一次用時量endsubprivatesubform load text2.text 0 計算方法初始化text3.text 0 計算開始初始化text4.tex...
vb程式設計題目，VB程式設計題目
private sub mand1 click if len text1 2 thentext1 left text1,2 end if end sub private sub mand2 click text1 end sub private sub form load label1.captio...
VB程式程式設計，什麼是VB程式設計？
private sub command1 click dim t x y z t val text1.text if t 100 or len text1.text 3 then msgbox 輸入的數字不符合要求 vbinformation exit sub end if z t mod 10 y...