开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 医药行业 > 查看源码
frmMedRkTotals.vb
资源名称：SALEOUTSYSTEM.rar　[点击查看]
上传用户：wj57717022
上传日期：2014-12-16
资源大小：4093k
文件大小：18k
源码类别：

医药行业

开发平台：

Visual Basic

frmMedRkTotals.vb：源码内容
  1. Public Class frmMedRkTotals
  2.     Inherits System.Windows.Forms.Form
  4. #Region " Windows 窗体设计器生成的代码 "
  6.     Public Sub New()
  7.         MyBase.New()
  9.         '该调用是 Windows 窗体设计器所必需的。
  10.         InitializeComponent()
  12.         '在 InitializeComponent() 调用之后添加任何初始化
  14.     End Sub
  16.     '窗体重写 dispose 以清理组件列表。
  17.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  18.         If disposing Then
  19.             If Not (components Is Nothing) Then
  20.                 components.Dispose()
  21.             End If
  22.         End If
  23.         MyBase.Dispose(disposing)
  24.     End Sub
  26.     'Windows 窗体设计器所必需的
  27.     Private components As System.ComponentModel.IContainer
  29.     '注意: 以下过程是 Windows 窗体设计器所必需的
  30.     '可以使用 Windows 窗体设计器修改此过程。
  31.     '不要使用代码编辑器修改它。
  32.     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  33.     Friend WithEvents Label1 As System.Windows.Forms.Label
  34.     Friend WithEvents Label2 As System.Windows.Forms.Label
  35.     Friend WithEvents Label3 As System.Windows.Forms.Label
  36.     Friend WithEvents txtmedname As System.Windows.Forms.TextBox
  37.     Friend WithEvents Label4 As System.Windows.Forms.Label
  38.     Friend WithEvents Label5 As System.Windows.Forms.Label
  39.     Friend WithEvents txtkhname As System.Windows.Forms.TextBox
  40.     Friend WithEvents btnqueryall As System.Windows.Forms.Button
  41.     Friend WithEvents btnQuery As System.Windows.Forms.Button
  42.     Friend WithEvents btnPrint As System.Windows.Forms.Button
  43.     Friend WithEvents txtmedtype As System.Windows.Forms.ComboBox
  44.     Friend WithEvents txtbegintime As System.Windows.Forms.DateTimePicker
  45.     Friend WithEvents txtendtime As System.Windows.Forms.DateTimePicker
  46.     Friend WithEvents Panel1 As System.Windows.Forms.Panel
  47.     Friend WithEvents Panel2 As System.Windows.Forms.Panel
  48.     Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
  49.     Friend WithEvents tabtable As System.Windows.Forms.TabControl
  50.     Friend WithEvents tbmed As System.Windows.Forms.TabPage
  51.     Friend WithEvents tbtype As System.Windows.Forms.TabPage
  52.     Friend WithEvents tbkh As System.Windows.Forms.TabPage
  53.     Friend WithEvents tbywy As System.Windows.Forms.TabPage
  54.     Friend WithEvents Panel3 As System.Windows.Forms.Panel
  55.     Friend WithEvents dgview As System.Windows.Forms.DataGrid
  56.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  57.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  58.         Me.txtmedtype = New System.Windows.Forms.ComboBox
  59.         Me.txtkhname = New System.Windows.Forms.TextBox
  60.         Me.Label5 = New System.Windows.Forms.Label
  61.         Me.Label4 = New System.Windows.Forms.Label
  62.         Me.txtmedname = New System.Windows.Forms.TextBox
  63.         Me.Label3 = New System.Windows.Forms.Label
  64.         Me.txtendtime = New System.Windows.Forms.DateTimePicker
  65.         Me.txtbegintime = New System.Windows.Forms.DateTimePicker
  66.         Me.Label2 = New System.Windows.Forms.Label
  67.         Me.Label1 = New System.Windows.Forms.Label
  68.         Me.btnPrint = New System.Windows.Forms.Button
  69.         Me.btnQuery = New System.Windows.Forms.Button
  70.         Me.btnqueryall = New System.Windows.Forms.Button
  71.         Me.Panel1 = New System.Windows.Forms.Panel
  72.         Me.Panel2 = New System.Windows.Forms.Panel
  73.         Me.GroupBox2 = New System.Windows.Forms.GroupBox
  74.         Me.tabtable = New System.Windows.Forms.TabControl
  75.         Me.tbmed = New System.Windows.Forms.TabPage
  76.         Me.tbtype = New System.Windows.Forms.TabPage
  77.         Me.tbkh = New System.Windows.Forms.TabPage
  78.         Me.tbywy = New System.Windows.Forms.TabPage
  79.         Me.Panel3 = New System.Windows.Forms.Panel
  80.         Me.dgview = New System.Windows.Forms.DataGrid
  81.         Me.GroupBox1.SuspendLayout()
  82.         Me.Panel1.SuspendLayout()
  83.         Me.Panel2.SuspendLayout()
  84.         Me.GroupBox2.SuspendLayout()
  85.         Me.tabtable.SuspendLayout()
  86.         Me.Panel3.SuspendLayout()
  87.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).BeginInit()
  88.         Me.SuspendLayout()
  89.         '
  90.         'GroupBox1
  91.         '
  92.         Me.GroupBox1.Controls.Add(Me.txtmedtype)
  93.         Me.GroupBox1.Controls.Add(Me.txtkhname)
  94.         Me.GroupBox1.Controls.Add(Me.Label5)
  95.         Me.GroupBox1.Controls.Add(Me.Label4)
  96.         Me.GroupBox1.Controls.Add(Me.txtmedname)
  97.         Me.GroupBox1.Controls.Add(Me.Label3)
  98.         Me.GroupBox1.Controls.Add(Me.txtendtime)
  99.         Me.GroupBox1.Controls.Add(Me.txtbegintime)
  100.         Me.GroupBox1.Controls.Add(Me.Label2)
  101.         Me.GroupBox1.Controls.Add(Me.Label1)
  102.         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
  103.         Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
  104.         Me.GroupBox1.Name = "GroupBox1"
  105.         Me.GroupBox1.Size = New System.Drawing.Size(694, 112)
  106.         Me.GroupBox1.TabIndex = 0
  107.         Me.GroupBox1.TabStop = False
  108.         '
  109.         'txtmedtype
  110.         '
  111.         Me.txtmedtype.Location = New System.Drawing.Point(544, 64)
  112.         Me.txtmedtype.Name = "txtmedtype"
  113.         Me.txtmedtype.Size = New System.Drawing.Size(136, 23)
  114.         Me.txtmedtype.TabIndex = 10
  115.         '
  116.         'txtkhname
  117.         '
  118.         Me.txtkhname.Location = New System.Drawing.Point(85, 62)
  119.         Me.txtkhname.Name = "txtkhname"
  120.         Me.txtkhname.Size = New System.Drawing.Size(363, 25)
  121.         Me.txtkhname.TabIndex = 9
  122.         Me.txtkhname.Text = ""
  123.         '
  124.         'Label5
  125.         '
  126.         Me.Label5.AutoSize = True
  127.         Me.Label5.Location = New System.Drawing.Point(8, 72)
  128.         Me.Label5.Name = "Label5"
  129.         Me.Label5.Size = New System.Drawing.Size(75, 21)
  130.         Me.Label5.TabIndex = 8
  131.         Me.Label5.Text = "客户名称:"
  132.         '
  133.         'Label4
  134.         '
  135.         Me.Label4.AutoSize = True
  136.         Me.Label4.Location = New System.Drawing.Point(472, 72)
  137.         Me.Label4.Name = "Label4"
  138.         Me.Label4.Size = New System.Drawing.Size(75, 21)
  139.         Me.Label4.TabIndex = 6
  140.         Me.Label4.Text = "药品类别:"
  141.         '
  142.         'txtmedname
  143.         '
  144.         Me.txtmedname.Location = New System.Drawing.Point(544, 21)
  145.         Me.txtmedname.Name = "txtmedname"
  146.         Me.txtmedname.Size = New System.Drawing.Size(136, 25)
  147.         Me.txtmedname.TabIndex = 5
  148.         Me.txtmedname.Text = ""
  149.         '
  150.         'Label3
  151.         '
  152.         Me.Label3.AutoSize = True
  153.         Me.Label3.Location = New System.Drawing.Point(469, 31)
  154.         Me.Label3.Name = "Label3"
  155.         Me.Label3.Size = New System.Drawing.Size(75, 21)
  156.         Me.Label3.TabIndex = 4
  157.         Me.Label3.Text = "药品名称:"
  158.         '
  159.         'txtendtime
  160.         '
  161.         Me.txtendtime.Location = New System.Drawing.Point(312, 21)
  162.         Me.txtendtime.Name = "txtendtime"
  163.         Me.txtendtime.Size = New System.Drawing.Size(136, 25)
  164.         Me.txtendtime.TabIndex = 3
  165.         Me.txtendtime.Value = New Date(2006, 2, 23, 0, 0, 0, 0)
  166.         '
  167.         'txtbegintime
  168.         '
  169.         Me.txtbegintime.Location = New System.Drawing.Point(85, 21)
  170.         Me.txtbegintime.Name = "txtbegintime"
  171.         Me.txtbegintime.Size = New System.Drawing.Size(136, 25)
  172.         Me.txtbegintime.TabIndex = 2
  173.         Me.txtbegintime.Value = New Date(2006, 2, 23, 0, 0, 0, 0)
  174.         '
  175.         'Label2
  176.         '
  177.         Me.Label2.AutoSize = True
  178.         Me.Label2.Location = New System.Drawing.Point(235, 31)
  179.         Me.Label2.Name = "Label2"
  180.         Me.Label2.Size = New System.Drawing.Size(75, 21)
  181.         Me.Label2.TabIndex = 1
  182.         Me.Label2.Text = "结束日期:"
  183.         '
  184.         'Label1
  185.         '
  186.         Me.Label1.AutoSize = True
  187.         Me.Label1.Location = New System.Drawing.Point(8, 31)
  188.         Me.Label1.Name = "Label1"
  189.         Me.Label1.Size = New System.Drawing.Size(75, 21)
  190.         Me.Label1.TabIndex = 0
  191.         Me.Label1.Text = "开始日期:"
  192.         '
  193.         'btnPrint
  194.         '
  195.         Me.btnPrint.Dock = System.Windows.Forms.DockStyle.Top
  196.         Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  197.         Me.btnPrint.Location = New System.Drawing.Point(0, 66)
  198.         Me.btnPrint.Name = "btnPrint"
  199.         Me.btnPrint.Size = New System.Drawing.Size(96, 30)
  200.         Me.btnPrint.TabIndex = 2
  201.         Me.btnPrint.Text = "打印"
  202.         '
  203.         'btnQuery
  204.         '
  205.         Me.btnQuery.Dock = System.Windows.Forms.DockStyle.Top
  206.         Me.btnQuery.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  207.         Me.btnQuery.Location = New System.Drawing.Point(0, 31)
  208.         Me.btnQuery.Name = "btnQuery"
  209.         Me.btnQuery.Size = New System.Drawing.Size(96, 35)
  210.         Me.btnQuery.TabIndex = 1
  211.         Me.btnQuery.Text = "条件查询"
  212.         '
  213.         'btnqueryall
  214.         '
  215.         Me.btnqueryall.Dock = System.Windows.Forms.DockStyle.Top
  216.         Me.btnqueryall.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  217.         Me.btnqueryall.Location = New System.Drawing.Point(0, 0)
  218.         Me.btnqueryall.Name = "btnqueryall"
  219.         Me.btnqueryall.Size = New System.Drawing.Size(96, 31)
  220.         Me.btnqueryall.TabIndex = 0
  221.         Me.btnqueryall.Text = "全部查询"
  222.         '
  223.         'Panel1
  224.         '
  225.         Me.Panel1.Controls.Add(Me.btnPrint)
  226.         Me.Panel1.Controls.Add(Me.btnQuery)
  227.         Me.Panel1.Controls.Add(Me.btnqueryall)
  228.         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Right
  229.         Me.Panel1.Location = New System.Drawing.Point(598, 112)
  230.         Me.Panel1.Name = "Panel1"
  231.         Me.Panel1.Size = New System.Drawing.Size(96, 398)
  232.         Me.Panel1.TabIndex = 4
  233.         '
  234.         'Panel2
  235.         '
  236.         Me.Panel2.Controls.Add(Me.GroupBox2)
  237.         Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
  238.         Me.Panel2.Location = New System.Drawing.Point(0, 112)
  239.         Me.Panel2.Name = "Panel2"
  240.         Me.Panel2.Size = New System.Drawing.Size(598, 63)
  241.         Me.Panel2.TabIndex = 5
  242.         '
  243.         'GroupBox2
  244.         '
  245.         Me.GroupBox2.Controls.Add(Me.tabtable)
  246.         Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Fill
  247.         Me.GroupBox2.Location = New System.Drawing.Point(0, 0)
  248.         Me.GroupBox2.Name = "GroupBox2"
  249.         Me.GroupBox2.Size = New System.Drawing.Size(598, 63)
  250.         Me.GroupBox2.TabIndex = 0
  251.         Me.GroupBox2.TabStop = False
  252.         '
  253.         'tabtable
  254.         '
  255.         Me.tabtable.Appearance = System.Windows.Forms.TabAppearance.FlatButtons
  256.         Me.tabtable.Controls.Add(Me.tbmed)
  257.         Me.tabtable.Controls.Add(Me.tbtype)
  258.         Me.tabtable.Controls.Add(Me.tbkh)
  259.         Me.tabtable.Controls.Add(Me.tbywy)
  260.         Me.tabtable.Dock = System.Windows.Forms.DockStyle.Fill
  261.         Me.tabtable.Location = New System.Drawing.Point(3, 21)
  262.         Me.tabtable.Name = "tabtable"
  263.         Me.tabtable.SelectedIndex = 0
  264.         Me.tabtable.Size = New System.Drawing.Size(592, 39)
  265.         Me.tabtable.TabIndex = 5
  266.         '
  267.         'tbmed
  268.         '
  269.         Me.tbmed.Location = New System.Drawing.Point(4, 27)
  270.         Me.tbmed.Name = "tbmed"
  271.         Me.tbmed.Size = New System.Drawing.Size(584, 8)
  272.         Me.tbmed.TabIndex = 0
  273.         Me.tbmed.Text = "按药品品种"
  274.         '
  275.         'tbtype
  276.         '
  277.         Me.tbtype.Location = New System.Drawing.Point(4, 27)
  278.         Me.tbtype.Name = "tbtype"
  279.         Me.tbtype.Size = New System.Drawing.Size(827, 6)
  280.         Me.tbtype.TabIndex = 1
  281.         Me.tbtype.Text = "按药品类别"
  282.         Me.tbtype.Visible = False
  283.         '
  284.         'tbkh
  285.         '
  286.         Me.tbkh.Location = New System.Drawing.Point(4, 27)
  287.         Me.tbkh.Name = "tbkh"
  288.         Me.tbkh.Size = New System.Drawing.Size(827, 6)
  289.         Me.tbkh.TabIndex = 2
  290.         Me.tbkh.Text = "按供应商"
  291.         Me.tbkh.Visible = False
  292.         '
  293.         'tbywy
  294.         '
  295.         Me.tbywy.Location = New System.Drawing.Point(4, 27)
  296.         Me.tbywy.Name = "tbywy"
  297.         Me.tbywy.Size = New System.Drawing.Size(827, 6)
  298.         Me.tbywy.TabIndex = 3
  299.         Me.tbywy.Text = "按业务员"
  300.         Me.tbywy.Visible = False
  301.         '
  302.         'Panel3
  303.         '
  304.         Me.Panel3.Controls.Add(Me.dgview)
  305.         Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
  306.         Me.Panel3.Location = New System.Drawing.Point(0, 175)
  307.         Me.Panel3.Name = "Panel3"
  308.         Me.Panel3.Size = New System.Drawing.Size(598, 335)
  309.         Me.Panel3.TabIndex = 6
  310.         '
  311.         'dgview
  312.         '
  313.         Me.dgview.DataMember = ""
  314.         Me.dgview.Dock = System.Windows.Forms.DockStyle.Fill
  315.         Me.dgview.HeaderForeColor = System.Drawing.SystemColors.ControlText
  316.         Me.dgview.Location = New System.Drawing.Point(0, 0)
  317.         Me.dgview.Name = "dgview"
  318.         Me.dgview.Size = New System.Drawing.Size(598, 335)
  319.         Me.dgview.TabIndex = 3
  320.         '
  321.         'frmMedRkTotals
  322.         '
  323.         Me.AutoScaleBaseSize = New System.Drawing.Size(8, 18)
  324.         Me.ClientSize = New System.Drawing.Size(694, 510)
  325.         Me.Controls.Add(Me.Panel3)
  326.         Me.Controls.Add(Me.Panel2)
  327.         Me.Controls.Add(Me.Panel1)
  328.         Me.Controls.Add(Me.GroupBox1)
  329.         Me.Name = "frmMedRkTotals"
  330.         Me.Text = "药品入库统计"
  331.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  332.         Me.GroupBox1.ResumeLayout(False)
  333.         Me.Panel1.ResumeLayout(False)
  334.         Me.Panel2.ResumeLayout(False)
  335.         Me.GroupBox2.ResumeLayout(False)
  336.         Me.tabtable.ResumeLayout(False)
  337.         Me.Panel3.ResumeLayout(False)
  338.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).EndInit()
  339.         Me.ResumeLayout(False)
  341.     End Sub
  343. #End Region
  344.     Public lsweb As New jxcmanage
  345.     Private Sub frmMedRkTotals_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  346.         txtbegintime.Value = Today.ToString
  347.         txtendtime.Value = Today.ToString
  348.     End Sub
  350.     Private Sub btnQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuery.Click
  351.         Dim strmedname, strmedtype, strkhname, strquery As String
  352.         If txtmedname.Text = "" Then
  353.             strmedname = ""
  354.         Else
  355.             strmedname = " and 药品名称='" & txtmedname.Text & "'"
  356.         End If
  357.         If txtmedtype.Text = "" Then
  358.             strmedtype = ""
  359.         Else
  360.             strmedtype = " and substring(药品编号,1,1)='" & txtmedtype.Text.Substring(0, 1) & "'"
  361.         End If
  362.         If txtkhname.Text = "" Then
  363.             strkhname = ""
  364.         Else
  365.             strkhname = " and 客户名称='" & txtkhname.Text & "'"
  366.         End If
  368.         Dim strsql As String
  369.         strsql = " where 日期 between '" & txtbegintime.Value & "' and '" & txtendtime.Value & "'" & strmedname & strmedtype & strkhname
  372.         Select Case tabtable.SelectedTab.Text
  373.             Case "按药品品种"
  374.                 strquery = "select 药品编号,药品名称,药品规格,单位,包装,sum(数量) as 数量,avg(进价) as 进价,sum(数量*进价) as 金额,批号,产地,有效期,avg(批发价) as 批发价,avg(零售价) as 零售价 from wz_rk" & strsql & " group by 药品编号,药品名称,药品规格,单位,包装,批号,产地,有效期 "
  375.             Case "按药品类别"
  376.                 strquery = "select SUM(CASE WHEN substring(药品编号,1,1)='P' THEN 金额 ELSE 0.00 END) AS 片剂,SUM(CASE WHEN substring(药品编号,1,1)='Z' THEN 金额 ELSE 0.00 END) AS 针剂,SUM(CASE WHEN substring(药品编号,1,1)='F' THEN 金额 ELSE 0.00 END) AS 粉剂,SUM(CASE WHEN substring(药品编号,1,1)='K' THEN 金额 ELSE 0.00 END) AS 口服,SUM(CASE WHEN substring(药品编号,1,1)='W' THEN 金额 ELSE 0.00 END) AS 外用,SUM(CASE WHEN substring(药品编号,1,1)='Q' THEN 金额 ELSE 0.00 END) AS 器械,SUM(CASE WHEN substring(药品编号,1,1)='B' THEN 金额 ELSE 0.00 END) AS 保健,SUM(金额) AS 合计 FROM wz_rk"
  377.             Case "按供应商"
  378.                 strquery = "select 客户编号,客户名称,药品编号,药品名称,药品规格,包装,单位,sum(数量) as 数量,avg(进价) as 进价,sum(进价*数量) 金额,产地,批号,有效期,avg(批发价) as 批发价,avg(零售价) as 零售价 from wz_rk" & strsql & " group by 客户编号,客户名称,药品编号,药品名称,药品规格,包装,单位,产地,批号,有效期"
  379.             Case "按业务员"
  380.                 strquery = "select 操作员 as 业务员,药品编号,药品名称,药品规格,包装,单位,sum(数量) as 数量,avg(进价) as 进价,sum(进价*数量) 金额,产地,批号,有效期,avg(批发价) as 批发价,avg(零售价) as 零售价 from wz_rk" & strsql & " group by 操作员,药品编号,药品名称,药品规格,包装,单位,产地,批号,有效期"
  383.         End Select
  388.         lsweb.runSql(strquery)
  389.         Dim dslocal As DataSet
  390.         dslocal = lsweb.runSql(strquery)
  391.         dgview.DataSource = dslocal.Tables(0).DefaultView
  392.     End Sub
  394.     Private Sub btnqueryall_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnqueryall.Click
  395.         Dim strqueryes As String
  397.         Dim dslocal As DataSet
  398.         Select Case tabtable.SelectedTab.Text
  399.             Case "按药品品种"
  400.                 strqueryes = "select 药品编号,药品名称,药品规格,单位,包装,sum(数量) as 数量,avg(进价) as 进价,sum(数量*进价) as 金额,批号,产地,有效期,avg(批发价) as 批发价,avg(零售价) as 零售价 from wz_rk group by 药品编号,药品名称,药品规格,单位,包装,批号,产地,有效期 "
  401.             Case "按药品类别"
  402.                 strqueryes = "select SUM(CASE WHEN substring(药品编号,1,1)='P' THEN 金额 ELSE 0.00 END) AS 片剂,SUM(CASE WHEN substring(药品编号,1,1)='Z' THEN 金额 ELSE 0.00 END) AS 针剂,SUM(CASE WHEN substring(药品编号,1,1)='F' THEN 金额 ELSE 0.00 END) AS 粉剂,SUM(CASE WHEN substring(药品编号,1,1)='K' THEN 金额 ELSE 0.00 END) AS 口服,SUM(CASE WHEN substring(药品编号,1,1)='W' THEN 金额 ELSE 0.00 END) AS 外用,SUM(CASE WHEN substring(药品编号,1,1)='Q' THEN 金额 ELSE 0.00 END) AS 器械,SUM(CASE WHEN substring(药品编号,1,1)='B' THEN 金额 ELSE 0.00 END) AS 保健,SUM(金额) AS 合计 FROM wz_rk"
  403.             Case "按供应商"
  404.                 strqueryes = "select 客户编号,客户名称,药品编号,药品名称,药品规格,包装,单位,sum(数量) as 数量,avg(进价) as 进价,sum(进价*数量) 金额,产地,批号,有效期,avg(批发价) as 批发价,avg(零售价) as 零售价 from wz_rk group by 客户编号,客户名称,药品编号,药品名称,药品规格,包装,单位,产地,批号,有效期"
  406.             Case "按业务员"
  407.                 strqueryes = "select 操作员 as 业务员,药品编号,药品名称,药品规格,包装,单位,sum(数量) as 数量,avg(进价) as 进价,sum(进价*数量) 金额,产地,批号,有效期,avg(批发价) as 批发价,avg(零售价) as 零售价 from wz_rk group by 操作员,药品编号,药品名称,药品规格,包装,单位,产地,批号,有效期"
  410.         End Select
  412.         dslocal = lsweb.runSql(strqueryes)
  413.         dgview.DataSource = dslocal.Tables(0).DefaultView
  414.     End Sub
  415. End Class