重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
If "3333aa".EndsWith("aa") Then MessageBox.Show("以aa结尾")
成都创新互联公司主要从事做网站、成都网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务伊美,十余年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务: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,",")