Dim cmd As New SQLCommand
Dim Count As Integer
Dim r As DataRow
Dim v As Double
r = DataTables("中转费").DataRows(0)
v = r("末端重量")
cmd.C
cmd.CommandText = " update {rh_ytyd} set 中转费 = (Ceiling( v/0.5)) * rh_zzjg.价格 from {rh_ytyd} join {rh_zzjg} on rh_ytyd.运输方式=rh_zzjg.运输方式 And rh_ytyd.省份=rh_zzjg.价格分区 And rh_ytyd.末端重量 between rh_zzjg.起始重量 And rh_zzjg.结束重量 where DateDiff(dd,发件日期,getdate())<=60"
cmd.ExecuteNonQuery()
[此贴子已经被作者于2014-12-4 11:15:22编辑过]