DataGridView 如何显示符合条件记录(即查找功能)
DataGridView 如何显示符合条件记录(即查找功能) --------------------编程问答-------------------- '填充网格内容Public Sub gFill_DataGrid_Value(ByVal dgView As DataGridView, ByVal p_DataReader As OracleDataReader)
Dim strError As String = ""
Dim strSQL As String = ""
Dim strFieldType As String = ""
Dim iColumns As Integer
Dim i As Integer
dgView.Rows.Clear()
If p_DataReader Is Nothing Then
Return
End If
iColumns = dgView.ColumnCount
Dim strList(iColumns) As String
Try
While p_DataReader.Read
For i = 0 To iColumns - 1
strFieldType = p_DataReader.GetFieldType(i).Name
If strFieldType = "Decimal" Then
strList(i) = gGet_Num(p_DataReader, i)
Else
strList(i) = gGet_Str(p_DataReader, i)
End If
Next i
dgView.Rows.Add(strList)
End While
Catch ex As Exception
gShowErrMsg()
Finally
p_DataReader.Close()
p_DataReader = Nothing
End Try
Return
End Sub --------------------编程问答-------------------- 首先,将DataGridView的数据源设为数据表的视图(绑定它们)
然后,用视图的FIND()方法
--------------------编程问答-------------------- xuexi --------------------编程问答-------------------- 收藏 --------------------编程问答-------------------- 正好刚做过个开票的东西,自己看吧
'通过查询语句填充form上的datatgridview和textbox
Friend Sub displayfortab2(ByVal input As String)
'oledb对access数据库进行操作:
Dim objConn As New OleDb.OleDbConnection
Dim objComm As New OleDb.OleDbCommand
Dim objComm2 As New OleDb.OleDbCommand '
Dim objda As New OleDb.OleDbDataAdapter
Dim objda2 As New OleDb.OleDbDataAdapter
Dim objds As New DataSet
Dim objds2 As New DataSet
//设置DATAGRIDVIEW的外观
With Me.DataGridView4
.CellBorderStyle = DataGridViewCellBorderStyle.Single
.GridColor = Color.Black
End With
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\data.mdb"
objComm2.CommandText = "Select 销货单号码,购货单位,年,月,日,提货签章,发货,复核,制单 From 销货单 where 销货单号码 = '" & input & "'"
objComm.CommandText = "Select 品名及规格,单位,数量,单价,金额,百分比,税金金额,小计 From 销货单详细 where 销货单号码 = '" & input & "'"
objComm.Connection = objConn
objComm2.Connection = objConn
objda.SelectCommand = objComm
objda2.SelectCommand = objComm2
objConn.Open()
objda2.Fill(objds2)
objda.Fill(objds)
objConn.Close()
DataGridView4.DataSource = objds.Tables(0)
DataGridView4.Columns(0).Width = 122
......
DataGridView4.Columns(7).Width = 115
DataGridView4.Columns(3).DefaultCellStyle.Format = "C"
.....
DataGridView4.Columns(7).DefaultCellStyle.Format = "C"
Dim currencySymbol = System.Globalization.CultureInfo.CurrentCulture.NumberFormat.CurrencySymbol
'DataGridView4.Columns(7).DefaultCellStyle.Format = currencySymbol + "0.##"
Dim index_row2 As Integer
Dim sum As Double = 0
'填充DataGridView
For index_row2 = 0 To Me.DataGridView4.RowCount - 1
sum = sum + Me.DataGridView4.Rows(index_row2).Cells(7).Value
Next
'赋值给相应的Textbox
Me.list_hejiRMB.Text = convert(sum)
Me.list_sum2.Text = currencySymbol + sum.ToString
.....
Me.PrintButton.Enabled = True
Me.DataGridView4.ClearSelection()
End Sub --------------------编程问答-------------------- Imports System.Web.UI
Imports System.Web.UI.Control
Imports System.Data
Imports System.Data.SqlClient
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim conn As New SqlConnection("data source=localhost;initial catalog=zls;uid=sa;pwd=;")
Dim sqlAdp As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter("select identity(int,1,1)as id,idi into #id from userinfo order by idi select (id+" + DropDownList6.SelectedValue + ")as id into #idi from #id select top 100 id from #idi where id not in (select idi from #id) order by id drop table #id,#idi", conn)
Dim myDataSet = New DataSet()
Dim dt = New DataTable
sqlAdp.Fill(myDataSet, "dt")
conn.Close()
ListBox1.DataSource = myDataSet.Tables("dt") '绑定
ListBox1.DataBind() '显示
End Sub
End Class --------------------编程问答-------------------- 想学习一下
补充:.NET技术 , VB.NET