重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
如图所示,工具箱的“所有Windows窗体”中有,如果没有,可选择“选择项”添加
站在用户的角度思考问题,与客户深入沟通,找到陇县网站设计与陇县网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:网站设计制作、做网站、企业官网、英文网站、手机端网站、网站推广、国际域名空间、虚拟主机、企业邮箱。业务覆盖陇县地区。
1拖放控件
2代码添加
如
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.ResizeRedraw = True
Dim ff As New DataGridView
ff.ReadOnly = False‘在这里设置是否可编辑单元格
ff.Parent = Me
ff.AllowUserToAddRows = True'这里设置是否显示添加新行
ff.Columns.Add("aa", "啊啊")
ff.Columns.Add("a1", "啊")
End Sub
到底要怎么显示,某一列的数据可能是多条记录,如果显示在textbox中,是显示到一行里呢,还是每条记录显示一样呢。我给你做了个例子,你参考一下吧:(用的微软企业库连接数据库的)
Dim myCommond = myDatabase.GetSqlStringCommand("SELECT title FROM article")
Dim myDatareader = myDatabase.ExecuteReader(myCommond)
While myDatareader.Read
textbox1.Text = myDatareader("title") vbCrLf
End While
给你看一段我的代码
Public xlApp As Excel.Application
Public xlBook As Excel.Workbook
Public xlSheet As Excel.Worksheet
xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlBook = xlApp.Workbooks.Open(OpenFileDialog1.FileName) '打开已经存在的EXCEL工件簿文件
xlSheet = xlBook.Worksheets(xlBook.Sheets(1).name) '读取excel
'****************************读取excel数据,显示在数据表上****************************************
DataGridView1.Rows.Clear() '清空记录
For i = 5 To 19
If xlSheet.Cells(i, 1).value "" Then
DataGridView1.Rows.Add(xlSheet.Cells(2, 9).value, xlSheet.Cells(i, 1).value, xlSheet.Cells(2, 2).value, xlSheet.Cells(2, 7).value, xlSheet.Cells(2, 4).value, CDate(DateTimePicker1.Value), "", xlSheet.Cells(i, 5).value, Combo_CZZ.Text, Combo_MacName.Text, "", xlSheet.Cells(1, 3).value, xlSheet.Cells(1, 6).value, "", Combo_BanCi.Text, "")
End If
Next
DataGridView控件,放一个DataGridView1和Button1到窗体,下面是按钮下代码
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.DataGridView1.AllowUserToAddRows = False
DataGridView1.RowTemplate.Height = 200
DataGridView1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None
For i = 1 To 3
Me.DataGridView1.Columns.Add("列" i.ToString, "列" i.ToString)
Me.DataGridView1.Rows.Add()
Next
Me.DataGridView1.Columns(0).Width = 100
Me.DataGridView1.Columns(1).Width = 500
Me.DataGridView1.Columns(0).Width = 300
End Sub
'自己设置相关需要的属性即可