13518219792
RichTextBox1.SelectionStart = RichTextBox1.Text.IndexOf(string3,RichTextBox1.SelectionStart1)
我們提供的服務有：成都網站設計、網站建設、微信公眾號開發、網站優化、網站認證、臨夏ssl等。為1000+企事業單位解決了網站和推廣的問題。提供周到的售前咨詢和貼心的售后服務，是有科學管理、有技術的臨夏網站制作公司
這樣可以查找多個重復的值.但是到最后沒有的時候就會提示:InvalidArgument=“-1”的值對于“SelectionStart”無效。
參數名: SelectionStart
怎么搞定.查找就是這個問題不能解決,至于替換感謝你們提供的replace.
wuyazhe 朋友,你那個我不太懂啊.而且我也不需要太復雜.現在主要的問題是查找！
這個簡單呀，select?*?from?表名稱?where? 列名稱'全部' (也就是查找某列的值ComboBox當前值,就顯示出所有的記錄了），希望能幫到你
舉例說明，實現如下多條件查詢：
Private Sub Command1_Click() Dim jsql jsql = ""
Dim smyregion As String If Check1.Value = 1 Then
jsql = "圖書名稱 like '%" + Text1.Text + "%'" End If
If Check2.Value = 1 Then ? ?If jsql = "" Then
jsql = "作者姓名 like'%" + Text2.Text + "%'" ? ?Else
jsql = jsql "and 作者姓名 like'%" + Text2.Text + "%'" ? ? End If End If
If Check3.Value = 1 Then ? ?If jsql = "" Then
jsql = "出版社名稱 like'%" + Text3.Text + "%'" ? ? Else
jsql = jsql "and 出版社名稱 like '%" + Text3.Text + "%'" ? ? End If End If
If Check4.Value = 1 Then ? If jsql = "" Then
jsql = "出版時間 like '%" + Text4.Text + "%'" ? ? Else
?jsql = jsql "and 出版時間 like '%" + Text3.Text + "%'" ? ? End If End If
If Check5.Value = 1 Then ? ?If jsql = "" Then
jsql = "圖書類別 like '%" + Text5.Text + "%'"
Else
?jsql = jsql "and 圖書類別 like '%" + Text5.Text + "%'" ? ? End If End If
If jsql = "" Then
MsgBox "請選擇查詢條件！", vbInformation, "圖書音像管理系統" ? Exit Sub Else
Adodc1.RecordSource = "select * from book where " jsql ? Adodc1.Refresh End If
If Adodc1.Recordset.RecordCount 0 Then ? Set DataGrid1.DataSource = Adodc1 End If ? ?End Sub
Private Sub Command2_Click() Unload Me End Sub
這個只能是一一判斷的：
為了敘述簡單，假設有兩個可選條件，內容在： TextBox1(姓名)、TextBox2（部門）
主要是構造 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
注意：對于字符類型的字段，當然要用單引號，上面那樣的，但是對于數值類型，就不要這個單引號的；但是對于日期類型，那么與字符類型不同的是，把前后的2個單引號，改為井號就是“#”， 這是很多初學者容易忽略的，也是很多教科書上不提的問題。
對于文本框，由于.NET不提供控件數組，但是還是可以用語句來實現類似數組的操作，這樣以上IF語句，就可以簡化。
N=length(R);
scatter(C(:,1),C(:,2));
hold on
plot([C(R(1),1),C(R(N),1)],[C(R(1),2),C(R(N),2)])
hold on
for ii=2:N
plot([C(R(ii-1),1),C(R(ii),1)],[C(R(ii-1),2),C(R(ii),2)])
hold on
end
select * from 表 where
(case when 條件 then 1 else 0 end+
case when 條件 then 1 else 0 end+
case when 條件 then 1 else 0 end+
case when 條件 then 1 else 0 end+
case when 條件 then 1 else 0 end) BETWEEN 2 and 5
