我有表A“月份”列,B表也有一个“月份”列,这两列都是字符型,现需要参与计算且比较,如何将字符型的月份转换为数字
月份是两位数的,如04
代码写在DataColChanged里,重置列的时候总是提示“调用的目标发生了异常”,导入数据的时候也这样提示
Select Case
e.DataCol.Name
Case "款式季度","品牌名称"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("款式季度") OrElse
dr.IsNull("品牌名称") Then
dr("存跌率") = Nothing
Else
Dim filter As String
filter = "季节 = '" & dr("款式季度") & "' And 品牌 = '" &
dr("品牌名称")
& "'"
pr = DataTables("存跌计价").Find(filter)
If pr IsNot Nothing And (dr("款式季度") = "秋" Or dr("款式季度") = "冬") And
(dr("库存年份")
<= dr("款式年份")
Or (dr("库存年份") =
dr("款式年份")+1
And dr("库存月份")
<= pr("过季月份")))
Then
dr("存跌率") = pr("首次存跌")
ElseIf pr IsNot Nothing And (dr("款式季度") = "秋" Or dr("款式季度") = "冬") And
((dr("库存年份") =
dr("款式年份")+1
And dr("库存月份")
> pr("过季月份"))
Or (dr("库存年份") =
dr("款式年份")+2
And dr("库存月份")
<= pr("过季月份")))
Then
dr("存跌率") = pr("二次存跌")
ElseIf pr IsNot Nothing And (dr("款式季度") = "秋" Or dr("款式季度") = "冬") And
((dr("库存年份")
>= dr("款式年份")+2
And dr("库存月份")
> pr("过季月份")))
Then
dr("存跌率") = pr("三次存跌")
End If
End If
End Select
[此贴子已经被作者于2019/5/30 18:02:43编辑过]