1. 簡化運算有專門的運算符,AndAlso,OrElse
公司專注于為企業(yè)提供成都網(wǎng)站建設(shè)、做網(wǎng)站、微信公眾號開發(fā)、商城網(wǎng)站定制開發(fā),成都小程序開發(fā),軟件按需開發(fā)網(wǎng)站等一站式互聯(lián)網(wǎng)企業(yè)服務(wù)。憑借多年豐富的經(jīng)驗,我們會仔細了解各客戶的需求而做出多方面的分析、設(shè)計、整合,為客戶設(shè)計出具風(fēng)格及創(chuàng)意性的商業(yè)解決方案,創(chuàng)新互聯(lián)建站更提供一系列網(wǎng)站制作和網(wǎng)站推廣的服務(wù)。
2.沒用過,似乎是位運算,分別為位與,位或,位異或
str = "insert into out ( 姓名 , 租出日期 , 規(guī)格 , 數(shù)量 )values(" txtname.Text " , " txtday.Text " , " txtnorm.Text ", " txtamount.Text ")"
估計問題出在這里,把語句用到access中運行下試試
這個只能是一一判斷的:
為了敘述簡單,假設(shè)有兩個可選條件,內(nèi)容在: TextBox1(姓名)、TextBox2(部門)
主要是構(gòu)造 Sql的Where子句,那么:
Dim MySqlWhere As String
MySqlWhere=""
If TextBox1.Text"" Then
MySqlWhere= " Where 姓名 = '" TextBox1.Text "'"
End If
If TextBox2.Text"" Then
if MySqlWhere="" Then
MySqlWhere= " Where 部門 = '" TextBox1.Text "'"
Else
MySqlWhere= MySqlWhere " And 部門 = '" TextBox1.Text "'"
End If
End If
'如果還有第3,第4,那只能這樣了:
If TextBox3.Text"" Then
if MySqlWhere="" Then
MySqlWhere= " Where 字段3 = '" TextBox3.Text "'"
Else
MySqlWhere= MySqlWhere " And 字段3 = '" TextBox3.Text "'"
End If
End If
......
If TextBoxn.Text"" Then
if MySqlWhere="" Then
MySqlWhere= " Where 字段n = '" TextBoxn.Text "'"
Else
MySqlWhere= MySqlWhere " And 字段n = '" TextBoxn.Text "'"
End If
End If
注意:對于字符類型的字段,當然要用單引號,上面那樣的,但是對于數(shù)值類型,就不要這個單引號的;但是對于日期類型,那么與字符類型不同的是,把前后的2個單引號,改為井號就是“#”, 這是很多初學(xué)者容易忽略的,也是很多教科書上不提的問題。
對于文本框,由于.NET不提供控件數(shù)組,但是還是可以用語句來實現(xiàn)類似數(shù)組的操作,這樣以上IF語句,就可以簡化。
你那個不是空格吧,是不是多余的tab呢,這樣試試
Dim b As String = replace(Trim(strItemValue(i+1)),chr(9),"")
在邏輯運算中表示 或者
稱作邏輯或
用法 if 1 or 0 then print 111