新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
通常做法,是把所有的panel都操作一遍,当然也可以用一个标志量记录是哪个panel在显示,只针对这个panel操作。
创新互联公司成立与2013年,先为康县等服务建站,康县等地企业,进行企业商务咨询服务。为康县企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
移动时,记录原来的panel位置top和left值(注意用全局变量),显示的时候都改为0,显示完了,改回原值。
你可以这样,如果你用 dataGridview 时不是也要查询表嘛,
我们用datatable/dataset 保存你查询的结果,
然后就可以一条条显示,记录住当前显示的row(行)
eg:你的查询保存 datatable1
第一条时,
我们就来个 dim dtrow as datarow=datatable.rows(0)
textbox1.text=dtrow.item("字段名")'
...
都是如此
当然也是可能绑定的
CurrencyManager 用于管理显示的行数
textbox.DataBindings.add("属性",data,"字段")
试了好久,终于试出来了,把代码发给你分享:
首先,我建了个窗体,放了一个按扭控件,把打开连接EXECL的代码都放在该按扭的click事件里了,你可以根据需要改动。
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _
"Data Source=E:\myexl.xls;" _
"Extended Properties=Excel 8.0;"
’这里面,E:\myexl.xls换成你自己的excel文件完整路径
Dim objConn As New OleDbConnection(sConnectionString)
objConn.Open()
MsgBox("成功打开连接") ’这句我用来测试能不能连接的,
’下面将建立查询命令
Dim objCmdSelect As New OleDbCommand("SELECT * FROM [11$] where 姓名='李三'", objConn)
'11j是我测试用的sheet名,你换成你自己的,注意格式
'程序默认Excel表的第一行内容为字段名,你换成你自己的内容,并建
'立查询条件
'下面将根据查询条件打开连接。
Dim objAdapter1 As New OleDbDataAdapter()
objAdapter1.SelectCommand = objCmdSelect
'下面将打开的数据放在dataset中
Dim objDataset1 As New DataSet()
objAdapter1.Fill(objDataset1, "XLData")
’下面将数据传给DataGrid1控件
DataGrid1.DataSource = objDataset1.Tables(0).DefaultView
' Clean up objects.
objConn.Close()
End Sub