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

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

医药行业

开发平台：

Visual Basic

frmMedCkTotals.vb：源码内容
  1. Public Class frmMedCkTotals
  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 txtmedtype As System.Windows.Forms.ComboBox
  34.     Friend WithEvents txtkhname As System.Windows.Forms.TextBox
  35.     Friend WithEvents Label5 As System.Windows.Forms.Label
  36.     Friend WithEvents Label4 As System.Windows.Forms.Label
  37.     Friend WithEvents txtmedname As System.Windows.Forms.TextBox
  38.     Friend WithEvents Label3 As System.Windows.Forms.Label
  39.     Friend WithEvents Label2 As System.Windows.Forms.Label
  40.     Friend WithEvents Label1 As System.Windows.Forms.Label
  41.     Friend WithEvents txtendtime As System.Windows.Forms.DateTimePicker
  42.     Friend WithEvents txtbegintime As System.Windows.Forms.DateTimePicker
  43.     Friend WithEvents Panel1 As System.Windows.Forms.Panel
  44.     Friend WithEvents btnPrint As System.Windows.Forms.Button
  45.     Friend WithEvents btnQuery As System.Windows.Forms.Button
  46.     Friend WithEvents btnqueryall As System.Windows.Forms.Button
  47.     Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
  48.     Friend WithEvents tabtable As System.Windows.Forms.TabControl
  49.     Friend WithEvents tbmed As System.Windows.Forms.TabPage
  50.     Friend WithEvents tbtype As System.Windows.Forms.TabPage
  51.     Friend WithEvents tbkh As System.Windows.Forms.TabPage
  52.     Friend WithEvents tbywy As System.Windows.Forms.TabPage
  53.     Friend WithEvents Panel2 As System.Windows.Forms.Panel
  54.     Friend WithEvents dgview As System.Windows.Forms.DataGrid
  55.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  56.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  57.         Me.txtmedtype = New System.Windows.Forms.ComboBox
  58.         Me.txtkhname = New System.Windows.Forms.TextBox
  59.         Me.Label5 = New System.Windows.Forms.Label
  60.         Me.Label4 = New System.Windows.Forms.Label
  61.         Me.txtmedname = New System.Windows.Forms.TextBox
  62.         Me.Label3 = New System.Windows.Forms.Label
  63.         Me.txtendtime = New System.Windows.Forms.DateTimePicker
  64.         Me.txtbegintime = New System.Windows.Forms.DateTimePicker
  65.         Me.Label2 = New System.Windows.Forms.Label
  66.         Me.Label1 = New System.Windows.Forms.Label
  67.         Me.Panel1 = New System.Windows.Forms.Panel
  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.GroupBox2 = New System.Windows.Forms.GroupBox
  72.         Me.tabtable = New System.Windows.Forms.TabControl
  73.         Me.tbmed = New System.Windows.Forms.TabPage
  74.         Me.tbtype = New System.Windows.Forms.TabPage
  75.         Me.tbkh = New System.Windows.Forms.TabPage
  76.         Me.tbywy = New System.Windows.Forms.TabPage
  77.         Me.Panel2 = New System.Windows.Forms.Panel
  78.         Me.dgview = New System.Windows.Forms.DataGrid
  79.         Me.GroupBox1.SuspendLayout()
  80.         Me.Panel1.SuspendLayout()
  81.         Me.GroupBox2.SuspendLayout()
  82.         Me.tabtable.SuspendLayout()
  83.         Me.Panel2.SuspendLayout()
  84.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).BeginInit()
  85.         Me.SuspendLayout()
  86.         '
  87.         'GroupBox1
  88.         '
  89.         Me.GroupBox1.Controls.Add(Me.txtmedtype)
  90.         Me.GroupBox1.Controls.Add(Me.txtkhname)
  91.         Me.GroupBox1.Controls.Add(Me.Label5)
  92.         Me.GroupBox1.Controls.Add(Me.Label4)
  93.         Me.GroupBox1.Controls.Add(Me.txtmedname)
  94.         Me.GroupBox1.Controls.Add(Me.Label3)
  95.         Me.GroupBox1.Controls.Add(Me.txtendtime)
  96.         Me.GroupBox1.Controls.Add(Me.txtbegintime)
  97.         Me.GroupBox1.Controls.Add(Me.Label2)
  98.         Me.GroupBox1.Controls.Add(Me.Label1)
  99.         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
  100.         Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
  101.         Me.GroupBox1.Name = "GroupBox1"
  102.         Me.GroupBox1.Size = New System.Drawing.Size(514, 87)
  103.         Me.GroupBox1.TabIndex = 4
  104.         Me.GroupBox1.TabStop = False
  105.         '
  106.         'txtmedtype
  107.         '
  108.         Me.txtmedtype.Location = New System.Drawing.Point(402, 50)
  109.         Me.txtmedtype.Name = "txtmedtype"
  110.         Me.txtmedtype.Size = New System.Drawing.Size(102, 20)
  111.         Me.txtmedtype.TabIndex = 10
  112.         '
  113.         'txtkhname
  114.         '
  115.         Me.txtkhname.Location = New System.Drawing.Point(60, 48)
  116.         Me.txtkhname.Name = "txtkhname"
  117.         Me.txtkhname.Size = New System.Drawing.Size(276, 21)
  118.         Me.txtkhname.TabIndex = 9
  119.         Me.txtkhname.Text = ""
  120.         '
  121.         'Label5
  122.         '
  123.         Me.Label5.AutoSize = True
  124.         Me.Label5.Location = New System.Drawing.Point(6, 56)
  125.         Me.Label5.Name = "Label5"
  126.         Me.Label5.Size = New System.Drawing.Size(60, 17)
  127.         Me.Label5.TabIndex = 8
  128.         Me.Label5.Text = "客户名称:"
  129.         '
  130.         'Label4
  131.         '
  132.         Me.Label4.AutoSize = True
  133.         Me.Label4.Location = New System.Drawing.Point(348, 56)
  134.         Me.Label4.Name = "Label4"
  135.         Me.Label4.Size = New System.Drawing.Size(60, 17)
  136.         Me.Label4.TabIndex = 6
  137.         Me.Label4.Text = "药品类别:"
  138.         '
  139.         'txtmedname
  140.         '
  141.         Me.txtmedname.Location = New System.Drawing.Point(400, 16)
  142.         Me.txtmedname.Name = "txtmedname"
  143.         Me.txtmedname.Size = New System.Drawing.Size(102, 21)
  144.         Me.txtmedname.TabIndex = 5
  145.         Me.txtmedname.Text = ""
  146.         '
  147.         'Label3
  148.         '
  149.         Me.Label3.AutoSize = True
  150.         Me.Label3.Location = New System.Drawing.Point(344, 24)
  151.         Me.Label3.Name = "Label3"
  152.         Me.Label3.Size = New System.Drawing.Size(60, 17)
  153.         Me.Label3.TabIndex = 4
  154.         Me.Label3.Text = "药品名称:"
  155.         '
  156.         'txtendtime
  157.         '
  158.         Me.txtendtime.Location = New System.Drawing.Point(234, 16)
  159.         Me.txtendtime.Name = "txtendtime"
  160.         Me.txtendtime.Size = New System.Drawing.Size(102, 21)
  161.         Me.txtendtime.TabIndex = 3
  162.         Me.txtendtime.Value = New Date(2006, 2, 23, 0, 0, 0, 0)
  163.         '
  164.         'txtbegintime
  165.         '
  166.         Me.txtbegintime.Location = New System.Drawing.Point(60, 16)
  167.         Me.txtbegintime.Name = "txtbegintime"
  168.         Me.txtbegintime.Size = New System.Drawing.Size(102, 21)
  169.         Me.txtbegintime.TabIndex = 2
  170.         Me.txtbegintime.Value = New Date(2006, 2, 23, 0, 0, 0, 0)
  171.         '
  172.         'Label2
  173.         '
  174.         Me.Label2.AutoSize = True
  175.         Me.Label2.Location = New System.Drawing.Point(176, 24)
  176.         Me.Label2.Name = "Label2"
  177.         Me.Label2.Size = New System.Drawing.Size(60, 17)
  178.         Me.Label2.TabIndex = 1
  179.         Me.Label2.Text = "结束日期:"
  180.         '
  181.         'Label1
  182.         '
  183.         Me.Label1.AutoSize = True
  184.         Me.Label1.Location = New System.Drawing.Point(8, 24)
  185.         Me.Label1.Name = "Label1"
  186.         Me.Label1.Size = New System.Drawing.Size(60, 17)
  187.         Me.Label1.TabIndex = 0
  188.         Me.Label1.Text = "开始日期:"
  189.         '
  190.         'Panel1
  191.         '
  192.         Me.Panel1.Controls.Add(Me.btnPrint)
  193.         Me.Panel1.Controls.Add(Me.btnQuery)
  194.         Me.Panel1.Controls.Add(Me.btnqueryall)
  195.         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Right
  196.         Me.Panel1.Location = New System.Drawing.Point(442, 87)
  197.         Me.Panel1.Name = "Panel1"
  198.         Me.Panel1.Size = New System.Drawing.Size(72, 295)
  199.         Me.Panel1.TabIndex = 8
  200.         '
  201.         'btnPrint
  202.         '
  203.         Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  204.         Me.btnPrint.Location = New System.Drawing.Point(0, 48)
  205.         Me.btnPrint.Name = "btnPrint"
  206.         Me.btnPrint.Size = New System.Drawing.Size(68, 24)
  207.         Me.btnPrint.TabIndex = 5
  208.         Me.btnPrint.Text = "打印"
  209.         '
  210.         'btnQuery
  211.         '
  212.         Me.btnQuery.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  213.         Me.btnQuery.Location = New System.Drawing.Point(0, 24)
  214.         Me.btnQuery.Name = "btnQuery"
  215.         Me.btnQuery.Size = New System.Drawing.Size(68, 24)
  216.         Me.btnQuery.TabIndex = 4
  217.         Me.btnQuery.Text = "条件查询"
  218.         Me.btnQuery.TextAlign = System.Drawing.ContentAlignment.TopCenter
  219.         '
  220.         'btnqueryall
  221.         '
  222.         Me.btnqueryall.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  223.         Me.btnqueryall.Location = New System.Drawing.Point(0, 0)
  224.         Me.btnqueryall.Name = "btnqueryall"
  225.         Me.btnqueryall.Size = New System.Drawing.Size(68, 24)
  226.         Me.btnqueryall.TabIndex = 3
  227.         Me.btnqueryall.Text = "全部查询"
  228.         Me.btnqueryall.TextAlign = System.Drawing.ContentAlignment.TopCenter
  229.         '
  230.         'GroupBox2
  231.         '
  232.         Me.GroupBox2.Controls.Add(Me.tabtable)
  233.         Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Top
  234.         Me.GroupBox2.Location = New System.Drawing.Point(0, 87)
  235.         Me.GroupBox2.Name = "GroupBox2"
  236.         Me.GroupBox2.Size = New System.Drawing.Size(442, 48)
  237.         Me.GroupBox2.TabIndex = 9
  238.         Me.GroupBox2.TabStop = False
  239.         '
  240.         'tabtable
  241.         '
  242.         Me.tabtable.Appearance = System.Windows.Forms.TabAppearance.FlatButtons
  243.         Me.tabtable.Controls.Add(Me.tbmed)
  244.         Me.tabtable.Controls.Add(Me.tbtype)
  245.         Me.tabtable.Controls.Add(Me.tbkh)
  246.         Me.tabtable.Controls.Add(Me.tbywy)
  247.         Me.tabtable.Dock = System.Windows.Forms.DockStyle.Fill
  248.         Me.tabtable.Location = New System.Drawing.Point(3, 17)
  249.         Me.tabtable.Name = "tabtable"
  250.         Me.tabtable.SelectedIndex = 0
  251.         Me.tabtable.Size = New System.Drawing.Size(436, 28)
  252.         Me.tabtable.TabIndex = 9
  253.         '
  254.         'tbmed
  255.         '
  256.         Me.tbmed.Location = New System.Drawing.Point(4, 24)
  257.         Me.tbmed.Name = "tbmed"
  258.         Me.tbmed.Size = New System.Drawing.Size(428, 0)
  259.         Me.tbmed.TabIndex = 0
  260.         Me.tbmed.Text = "按药品品种"
  261.         '
  262.         'tbtype
  263.         '
  264.         Me.tbtype.Location = New System.Drawing.Point(4, 24)
  265.         Me.tbtype.Name = "tbtype"
  266.         Me.tbtype.Size = New System.Drawing.Size(430, 2)
  267.         Me.tbtype.TabIndex = 1
  268.         Me.tbtype.Text = "按药品类别"
  269.         Me.tbtype.Visible = False
  270.         '
  271.         'tbkh
  272.         '
  273.         Me.tbkh.Location = New System.Drawing.Point(4, 24)
  274.         Me.tbkh.Name = "tbkh"
  275.         Me.tbkh.Size = New System.Drawing.Size(430, 2)
  276.         Me.tbkh.TabIndex = 2
  277.         Me.tbkh.Text = "按客户名称"
  278.         Me.tbkh.Visible = False
  279.         '
  280.         'tbywy
  281.         '
  282.         Me.tbywy.Location = New System.Drawing.Point(4, 24)
  283.         Me.tbywy.Name = "tbywy"
  284.         Me.tbywy.Size = New System.Drawing.Size(430, 2)
  285.         Me.tbywy.TabIndex = 3
  286.         Me.tbywy.Text = "按销售员"
  287.         Me.tbywy.Visible = False
  288.         '
  289.         'Panel2
  290.         '
  291.         Me.Panel2.Controls.Add(Me.dgview)
  292.         Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
  293.         Me.Panel2.Location = New System.Drawing.Point(0, 135)
  294.         Me.Panel2.Name = "Panel2"
  295.         Me.Panel2.Size = New System.Drawing.Size(442, 247)
  296.         Me.Panel2.TabIndex = 10
  297.         '
  298.         'dgview
  299.         '
  300.         Me.dgview.DataMember = ""
  301.         Me.dgview.Dock = System.Windows.Forms.DockStyle.Fill
  302.         Me.dgview.HeaderForeColor = System.Drawing.SystemColors.ControlText
  303.         Me.dgview.Location = New System.Drawing.Point(0, 0)
  304.         Me.dgview.Name = "dgview"
  305.         Me.dgview.Size = New System.Drawing.Size(442, 247)
  306.         Me.dgview.TabIndex = 7
  307.         '
  308.         'frmMedCkTotals
  309.         '
  310.         Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
  311.         Me.ClientSize = New System.Drawing.Size(514, 382)
  312.         Me.Controls.Add(Me.Panel2)
  313.         Me.Controls.Add(Me.GroupBox2)
  314.         Me.Controls.Add(Me.Panel1)
  315.         Me.Controls.Add(Me.GroupBox1)
  316.         Me.Name = "frmMedCkTotals"
  317.         Me.Text = "药品出库统计"
  318.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  319.         Me.GroupBox1.ResumeLayout(False)
  320.         Me.Panel1.ResumeLayout(False)
  321.         Me.GroupBox2.ResumeLayout(False)
  322.         Me.tabtable.ResumeLayout(False)
  323.         Me.Panel2.ResumeLayout(False)
  324.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).EndInit()
  325.         Me.ResumeLayout(False)
  327.     End Sub
  329. #End Region
  331.     Public lsweb As New jxcmanage
  332.     Private Sub btnQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  333.       
  335.     End Sub
  337.     Private Sub btnqueryall_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  338.         
  339.     End Sub
  341.     Private Sub frmMedCkTotals_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  342.         txtbegintime.Value = Today.ToString
  343.         txtendtime.Value = Today.ToString
  344.     End Sub
  346.     Private Sub btnqueryall_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnqueryall.Click
  347.         Dim strqueryes As String
  349.         Dim dslocal As DataSet
  350.         Select Case tabtable.SelectedTab.Text
  351.             Case "按药品品种"
  352.                 strqueryes = "select 药品编号,药品名称,药品规格,单位,包装,sum(数量) as 数量,avg(单价) as 单价,sum(数量*单价) as 金额,sum(毛利) as 毛利,批号,产地,有效期,avg(批发价) as 批发价,avg(零售价) as 零售价 from wz_ck group by 药品编号,药品名称,药品规格,单位,包装,批号,产地,有效期 "
  353.             Case "按药品类别"
  354.                 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 合计,sum(毛利) as 毛利 FROM wz_ck"
  355.             Case "按客户名称"
  356.                 strqueryes = "select 客户编号,客户名称,药品编号,药品名称,药品规格,包装,单位,sum(数量) as 数量,avg(单价) as 单价,sum(单价*数量) 金额,sum(毛利) as 毛利,产地,批号,有效期,avg(批发价) as 批发价,avg(零售价) as 零售价 from wz_ck group by 客户编号,客户名称,药品编号,药品名称,药品规格,包装,单位,产地,批号,有效期"
  358.             Case "按销售员"
  359.                 strqueryes = "select 销售员,药品编号,药品名称,药品规格,包装,单位,sum(数量) as 数量,avg(单价) as 单价,sum(单价*数量) 金额,sum(毛利) as 毛利,产地,批号,有效期,avg(批发价) as 批发价,avg(零售价) as 零售价 from wz_ck group by 销售员,药品编号,药品名称,药品规格,包装,单位,产地,批号,有效期"
  362.         End Select
  364.         dslocal = lsweb.runSql(strqueryes)
  365.         dgview.DataSource = dslocal.Tables(0).DefaultView
  366.     End Sub
  368.     Private Sub btnQuery_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuery.Click
  369.         Dim strmedname, strmedtype, strkhname, strquery As String
  370.         If txtmedname.Text = "" Then
  371.             strmedname = ""
  372.         Else
  373.             strmedname = " and 药品名称='" & txtmedname.Text & "'"
  374.         End If
  375.         If txtmedtype.Text = "" Then
  376.             strmedtype = ""
  377.         Else
  378.             strmedtype = " and substring(药品编号,1,1)='" & txtmedtype.Text.Substring(0, 1) & "'"
  379.         End If
  380.         If txtkhname.Text = "" Then
  381.             strkhname = ""
  382.         Else
  383.             strkhname = " and 客户名称='" & txtkhname.Text & "'"
  384.         End If
  386.         Dim strsql As String
  387.         strsql = " where 日期 between '" & txtbegintime.Value & "' and '" & txtendtime.Value & "'" & strmedname & strmedtype & strkhname
  390.         Select Case tabtable.SelectedTab.Text
  391.             Case "按药品品种"
  392.                 strquery = "select 药品编号,药品名称,药品规格,单位,包装,sum(数量) as 数量,avg(单价) as 单价,sum(数量*单价) as 金额,sum(毛利) as 毛利,批号,产地,有效期,avg(批发价) as 批发价,avg(零售价) as 零售价 from wz_ck" & strsql & " group by 药品编号,药品名称,药品规格,单位,包装,批号,产地,有效期 "
  393.             Case "按药品类别"
  394.                 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 合计,sum(毛利) as 毛利 FROM wz_ck"
  395.             Case "按客户名称"
  396.                 strquery = "select 客户编号,客户名称,药品编号,药品名称,药品规格,包装,单位,sum(数量) as 数量,avg(单价) as 单价,sum(单价*数量) 金额,sum(毛利) as 毛利,产地,批号,有效期,avg(批发价) as 批发价,avg(零售价) as 零售价 from wz_ck" & strsql & " group by 客户编号,客户名称,药品编号,药品名称,药品规格,包装,单位,产地,批号,有效期"
  398.             Case "按销售员"
  399.                 strquery = "select 销售员,药品编号,药品名称,药品规格,包装,单位,sum(数量) as 数量,avg(单价) as 单价,sum(单价*数量) 金额,sum(毛利) as 毛利,产地,批号,有效期,avg(批发价) as 批发价,avg(零售价) as 零售价 from wz_ck" & strsql & " group by 销售员,药品编号,药品名称,药品规格,包装,单位,产地,批号,有效期"
  402.         End Select
  407.         lsweb.runSql(strquery)
  408.         Dim dslocal As DataSet
  409.         dslocal = lsweb.runSql(strquery)
  410.         dgview.DataSource = dslocal.Tables(0).DefaultView
  411.     End Sub
  412. End Class