是的 我现在数据一导就出现死循环了
下面是我导数据的代码,(盘头_入)库里的计算公式就是刚才发过的
VARS("XZBZ")=0
Dim cmd1 As New SQLCommand
Dim dt1 As DataTable
cmd1.C
cmd1.CommandText = "Select * From {盘头_入库} Where js1=1 and sfyjs=0"
dt1 = cmd1.ExecuteReader()
Dim f As New Filler
f.SourceTable =dt1 '指定数据来源
f.SourceCols = "ptrkID,jth,rkrq,bc,czz,ylmc,ts,gs,ms,sbms,xbms,js" '指定数据来源列
f.DataTable = DataTables("盘头_绩效") '指定数据接收表
f.DataCols = "ptrkID,jth,rq,bc,czz,ylmc,ts,gs,ms,sbms,xbms,js" '指定数据接收列
f.Fill()
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "UPDATE {盘头_入库} SET js1=0,sfyjs=1 Where js1=1 and sfyjs=0"
cmd.ExecuteNonQuery()
DataTables ("盘头_入库").Load()