vb.net编程过程中经验总结-1

最新推荐文章于 2023-11-06 11:33:47 发布

bigheadsheep

最新推荐文章于 2023-11-06 11:33:47 发布

阅读量538

点赞数

分类专栏： vb.net 文章标签： vb.net 编程 string object 产品 exception

本文链接：https://blog.csdn.net/bigheadsheep/article/details/7710599

版权

vb.net 专栏收录该内容

52 篇文章 0 订阅

订阅专栏

1.实体类中变量及属性命名

         '产品ID
         Private _productid As String

       Public Property productid() As String
             Get
                 Return _productid
             End Get
             Set(ByVal value As String)
                 _productid = value.Trim
             End Set
         End Property

注: property的名称尽量与db 中字段名相同,这样就可以免去在sql.xml中定义resultmap的麻烦

2.实体类继承父类
Public Class InputOfSaleBean

         '继承父类DummymanBean
         InheritsDummymanBean

         '日期
         Private _mdate As String
         '销售量
         Private _quantity As Integer
         '产品名称
         Private _pname As String

3.二维数组
     Private product(,) As Object = {{"x-S", 10}, _
       {"x-O", 10}, {"To", 10}, {"Tob", 10}, _
       {"Tra", 5}, {"A", 10}, {"Te", 10}, _
       {"Sys", 10}, {"P", 5}, {"E", 10}}

         ' 产品及该产品的每月的销售情况(10种产品，12个月)
         Dim saleInMonth(UBound(product, 1), monthCount - 1) As Object

注:  UBound(product, 1)=9, monthCount - 1=11
    则创建的数组saleInMonth[0~9][0~11]
  即:  vb.net中定义数组的维数时,设定的是该维的item的最大index

4.For循环
  For k = 0 To temp.Count - 1 Step 1
                          Dim outputOfSale As OutputOfSaleBean
                          outputOfSale = temp.Item(k)
                          outputOfSale.saledate = saledate
  Next k

注:  To 相当于小于等于,所以需要减1

5.属性的set设定
' 设定月份
                 input.mdate = saledate

注:   定义类的属性设定参见以上"实体类中变量及属性命名"部分

6.try…catch
' 属性copy
Try
                 Common.setBeanValue(dummyman, data)
             Catch ex As Exception
                 MsgBox("Common.setBeanValue()'s using is wrong!! ")
             End Try

7.函数结束,返回数组
             Dim result(1) As Object
             result(0) = numAndSale
             result(1) = numberOfPYEnd
             Return result

注:  vb.net中定义数组的维数时,设定的是该维的item的最大index

8.跳出for循环
For m = 0 To lastMonthSize - 1 Step 1
                         Dim tmpOutputOfSaleBean As OutputOfSaleBean
                         tmpOutputOfSaleBean = lastMonth.Item(m)
                         lastMonthKey = tmpOutputOfSaleBean.key.Trim
                         ' 判断后一个月进药医院中key是否存在与PYEnd中
                         If currentMonthKey.Equals(lastMonthKey) Then
                             repeatedFlag = True
                            Exit For
                         End If
      Next m