[VB.NET]vb.net+sql汇总表的问题！！！高手请指教！！！
发布时间：2020-12-16 23:46:01 所属栏目：大数据 来源：网络整理
导读：vb.net+sql汇总表的问题！！！高手请指教！！！ 到最后阶段了希望老大们在帮帮小弟。 多表的汇总查询，运算， 可是登陆到汇总浏览表后却没有数据，不知道是哪里的问题请指教。 还有就是我以前的保存 为什么我多按一次数据库中的记录就多一条一样的 应该用程
|
vb.net+sql汇总表的问题！！！高手请指教！！！ 到最后阶段了希望老大们在帮帮小弟。 多表的汇总查询，运算， 可是登陆到汇总浏览表后却没有数据，不知道是哪里的问题请指教。 还有就是我以前的保存 为什么我多按一次数据库中的记录就多一条一样的 应该用程序怎么控制呢？请高手给代码指教！ __________________________________________________________________________ Protected Sub abc_Click(ByVal sender As Object,ByVal e As System.EventArgs) Handles abc.Click If Session( "safepage_exist ") = 0 Then If enviry.Text = " " Then msg.Text = "请将信息填写完整! " Return End If Dim conn As New SqlConnection(System.Configuration.ConfigurationManager.AppSettings( "strConn ")) conn.Open() Dim strSelect As String = "select * from 月份数据动态表 where 企业名称= '' " & Session( "企业名称 ") & " '' and 年 = " & Year(Now) & " and 月 = " & Month(Now) Dim adp As New SqlDataAdapter(strSelect,conn) Dim ds As New DataSet() adp.Fill(ds,"月份数据动态表 ") Dim dt As DataTable = ds.Tables( "月份数据动态表 ") Dim dr As DataRow dr = dt.NewRow() dr( "企业名称 ") = qy.Text …… dr( "录入状态 ") = 1 dt.Rows.Add(dr) Dim cmdbld As New SqlCommandBuilder(adp) adp.Update(ds,"月份数据动态表 ") conn.Close() conn = Nothing End If End Sub 应该怎样才能保存后就不在多增加数据。 __________________________________________________________________________ 预防按钮的多次点击 http://community.csdn.net/Expert/topic/5504/5504913.xml?temp=.7231409 __________________________________________________________________________ Partial Class _Default Inherits System.Web.UI.Page Private shtfy As Single = 0 汇总表中这样定义变量可以吗 ----------------------------------------------------------下面是连接定义 Sub Page_Load(ByVal Sender As Object,ByVal E As EventArgs) Dim conn As New SqlConnection(System.Configuration.ConfigurationManager.AppSettings( "strConn ")) Dim sql As String = "select * from 月份数据动态表 where 年 = " & Year(Now) & " And 月 = " & Month(Now) Dim sql1 As String = "select * from 单船统计指标 where 年 = " & Year(Now) & " And 月 = " & Month(Now) Dim comm As SqlCommand = New SqlCommand(sql,conn) Dim comm1 As SqlCommand = New SqlCommand(sql1,conn) conn.Open() Dim rs As SqlDataReader = comm.ExecuteReader() Dim rs1 As SqlDataReader = comm1.ExecuteReader() 大家看我这样连接打开数据库 然后进行查询运算有问题不 do while rs.read（） if 条件 then shtfy = shtfy + rs( "营业费用 ") …… 这样给变量赋上值可以吗，然后还有计算 shtye = shtfy / shte * 100% shtottrexp.Text = shtye.ToString 最后在表中显示 大家看看 我哪里出问题了 __________________________________________________________________________ 这种计算应该在存储过程中做…… __________________________________________________________________________ 存储过程是什么意思 __________________________________________________________________________ 没有人来呀 大家帮帮忙阿 __________________________________________________________________________ 去 sql的板块去问问就知道啦 __________________________________________________________________________ 还有保存问题呢 可是我改的话工作量很大的 我需要尽快完成 谁能帮我在原有基础上改一下 小弟再次谢谢大家了 __________________________________________________________________________ shei 来救火 __________________________________________________________________________ 很急了 请大家来 多给指点 感激不尽 __________________________________________________________________________ （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |