求助:状态拦显示数据求和的问题
vb.net的一个winform,我通过button查询出符合条件的信息显示在datagrid,有一列是金额.比如我查出5条,金额为100,200,300,400,500.我想要在状态栏显示如下, "金额和为??? "如上的???就是1500.
还个问题是怎么样在状态栏显示出查询的数目,比如查询出有3条,状态栏就显示为 record 3
请教高人怎么写这2个代码
[解决办法]
Private Sub 录入信息_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dafapiao.Fill(Dsfapiao1)
mblnlistsinitialized = True
bm = Me.BindingContext(Dsfapiao1, "发票表 ")
AddHandler bm.PositionChanged, AddressOf position_changed
position_changed(sender, e)
conPubs.ConnectionString = "data source=allen;Initial Catalog=Pubs;User ID=sa;password= "
Try
Dim sqlda As New SqlDataAdapter()
Dim sqlcom As New SqlCommand()
sqlcom.Connection = conPubs
sqlda.SelectCommand = sqlcom
sqlcom.CommandText = "select 公司名称 from 发票表 group by 公司名称 order by 公司名称 "
Dim count As Int32 = sqlda.Fill(ds, "gs ")
Dim i As Int32
Dim sum As Int32
For i = 0 To count - 1
sum += ds.Tables( "gs ").Rows(i)( "金额 ")
Next
StatusBar1.LabelShow.Text = "金额和为 " & sum & "; record " & count
ComboBox1.DataSource = ds.Tables( "gs ").DefaultView
ComboBox1.DisplayMember = "公司名称 "
ComboBox1.ValueMember = "公司名称 "
sqlcom.CommandText = "select 物品名称 from 发票表 group by 物品名称 order by 物品名称 "
sqlda.Fill(ds, "wp ")
ComboBox2.DataSource = ds.Tables( "wp ").DefaultView
ComboBox2.DisplayMember = "物品名称 "
ComboBox2.ValueMember = "物品名称 "
ComboBox1.SelectedIndex = -1
ComboBox2.SelectedIndex = -1
sqlcom.Dispose()
sqlda.Dispose()
Catch ex As Exception
MessageBox.Show( "数据出错 ", "提示 ")
End Try
End Sub
在StatusBar里加一个Label LabelShow,或是别的能显示的控件,把代码里相应的地方改一下,看看行不.我用的是2005有的地方在设计界面里不年(不会?)改你的.
[解决办法]
贴错误代码或错误提示出来
