If "3333aa".EndsWith("aa") Then MessageBox.Show("以aa結尾")
成都創(chuàng)新互聯(lián)公司主要從事做網站、成都網站建設、網頁設計、企業(yè)做網站、公司建網站等業(yè)務。立足成都服務伊美,十余年網站建設經驗,價格優(yōu)惠、服務專業(yè),歡迎來電咨詢建站服務:028-86922220
or :
dim str as string = "3333aa"
if str.EndsWith("aa") Then MessageBox.Show("以aa結尾")
用字符串保存兩個數據,當然只有你這種辦法,另外提供你其它思路:
1. flexcell增加兩列,這兩列隱藏不顯示,額外數據可以從這兩列讀取
2. 用自定義類型數組,保存這兩列數據,數組順序和表格一樣,或者數組中增加一個ID元素,與表格對應
Dim da As String = "SELECT Count(檢測項目) FROM b where 檢測項目='cc'"
這句寫錯啦,你直接傳送的是檢測項目為字符串"cc"的參數,并不是你程序寫的CC參數
改為:
Dim da As String = "SELECT Count(檢測項目) FROM b where 檢測項目='" cc "'"
建議通過程序組織的sql語句可以通過msgbox da 彈出來看看,這樣你較容易查出是什么錯誤,較長的就用textbox1.text=da來看了,不過記得設置斷點"exit sub"
使用ACCESS數據庫的日期列比較,應為:
"select * from 表 where 日期列=" "#" cdate(textbox1.text) "#"
注意前后兩個“#”號
使用sqlserver
"select * from 表 where 日期列=" "'" cdate(textbox1.text) "'"
當然日期格式要注意,如長短日期等。
日期期間:between 小日期 and 大日期(記得加#號)
a="@1991@1205@844@3276@1104@747@1069@0.9@4@3@104810571073
"
a=Replace(a,"@",",")
a=Replace(a,"",",")
dim b()
b=split(a,",")