vb.net数据表添加列,vb如何在列表框中添加列表项

怎么用VB.NET向SQL新添加一列？求代码

cjsaohan的回答正确

用SQL句Alter table Add ColumnName varchar(50)即可。

我只是指出一点，你的做法不对。一般情况，客户端不去改变数据的结构，客户端做的，只是增加或删除数据记录。这样对后期的维护来说会方便一些。

有一些客户端比如一些软件工厂类软件，会用客户端去建表并做一些数据字段还有其它的一些关联，但小软件，我真的不建议你这样做。学习除外。

相关问答

Q1: vb.net listview如何添加多列项？

不是ListView1.Items.SubItems

而是ListView1.Items(序号).Subitems

首先ListView1.Items是一个集合。

ListView1.Items(序号)表示集合内的一个个体，即ListViewItem

所以应该是这样

Dim litem As New ListViewItem

litem.Text = Fico

litem.SubItems.Add(Fname)

litem.SubItems.Add(Ftype)

litem.SubItems.Add(Fpath)

ListView1.Items.Add(litem)

这里把你的Fico当作了String，如果要显示图标，应该配合ImageList添加。

Q2: 求助vb.net高手，如何在datagridview中添加行，添加列，删除行删除列。

您好，要实现非常简单。需要四个按钮，一个datagridview控件。代码如下

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'添加行

Me.DataGridView1.Rows.Add()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

'添加列

Me.DataGridView1.Columns.Add("1", "on")

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'删除行

Me.DataGridView1.Rows.RemoveAt(0)

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

'删除列

Me.DataGridView1.Columns.RemoveAt(0)

End Sub

End Class

以上如有不清楚，您可以继续追问。希望对您有用！

Q3: vb.net中的list怎样用数组添加列表项

list1.additem j 意思就是把j添加至list1列表中,这是在一个for 循环中，循环了10次，添加了10次 j，即 list1 中 有10列分别为：1,3,6,10,15,21,28,36,45,55

下面又来了一个循环， list1.removeitem 删除列，删除的是 list1.listcount - i ，list1.listcount 就是总列数为10，减去 i ，i 是1到4，即10-1，9-2，8-3，7-4 每减掉一次，list1.listcount 就少了一条记录。

(注意，list1.listcount-1 是最后一条记录)

减掉了第 9，7，5，3列

剩余为 1,3,6,15,28,45

结果为：3,15,28

'ListCount返回列表框中的项目总数

'ListCount-1是列表框中最后一个项目的索引号

'亏你提醒了，我写错了，上面修改了，第一个索引为0，最后一个为9.

'也就是，问题所问的第二列的索引为1，第四列的索引为3...

Q4: vb.net实现数据库的表增加一列？

一种是用ADO.NET来执行alter table student add english int实现数据库 表的列添加

Q5: vb.net 数据插入datagridview的指定列！

Dim n1 As String

n1 = InputBox("请输入数字")

Dim i As Integer '行数

datagridview1.Rows(0).Cells(1).Value = n1

For i = 1 To datagridview1.Rows.count-1

n1=n1+1

datagridview1.Rows(i).Cells(1).Value = n1

Next

......