主题：遇到问题不能继续

 

此主题相关图片如下：qq截图20120730204852.png

就想上面一样

这个是我自己增加案件的代码，缺点是避免不了重复

 

 

If CurrentTable.Name="酒精"
Tables("酒精").AddNew()
Tables("酒精").Current("录入日期") = Date.Today()
Tables("酒精").current("录入者") = _UserName
Dim r As Row = Tables("酒精").Current  'r为当前行
If r.Isnull("录入日期") Then
       r("案件编号")=Nothing
    Else
        Dim d As Date=r("录入日期")
        Dim y As Integer = d.Year
        Dim m As Integer = d.Month
        Dim Days As Integer = Date.DaysInMonth(y,m)
        Dim fd As Date = New Date(y,m,1) '获得该月的第一天
        Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天
        Dim bh As String = Format(d,"yyyyMM") '生成编号的前6位,4位年,2位月.
        If r("案件编号").startswith(bh)=False
Dim cmd As New SQLCommand
Dim max As String
cmd.C
cmd.CommandText = "Select max(案件编号) From {酒精}"
max=cmd.ExecuteScalar
            Dim idx As Integer
                        If max > "" Then
                  idx=Cint(max.Substring(6,3)+1) '获取最大编号的后三位,并加1'
                  Else idx=1 '否则编号等于1
              End If             
             r("案件编号")=bh & format(idx,"000")
     End If
   End If
End If
Tables("酒精").Current.Save()

 

 

 

 

增加项目的代码

 

If CurrentTable.name="车辆鉴定" 
  With  Tables("车辆鉴定")
        If .Rows.count>0
        Dim r1 As Row = .Rows(.Rows.count - 1) '获取倒数第二行
        Dim r2 As Row = .AddNew
        r2("案件编号") = r1("案件编号")
        r2("委托日期") = r1("委托日期")
        r2("委托人1") = r1("委托人1")
        r2("委托单位") = r1("委托单位")
        r2("鉴定地点") = r1("鉴定地点")
        r2("参加鉴定") = r1("参加鉴定")
        r2("车辆牌号") = r1("车辆牌号")
        r2("车辆型号") = r1("车辆型号")
        r2("出发日期") = r1("出发日期")
        r2("出行方式") = r1("出行方式")
        r2("出行车辆") = r1("出行车辆")
        r2("驾车者") = r1("驾车者")
        r2("录入者") =_UserName
        r2("录入日期") =Date.Today      
        r2("重复补助") =False  '控制补助和驾车补助的列
     Else If .Rows.count=0
     MessageBox.Show("请先增加案件.")
      End If
    End With
End If

我就是这么做的，但是自动加一的时候在局域网上两用户同时测试都有重复，怎么办？

我的问题怎么每人给解决，大家都在应付